net.vb获取文件属性 vb获取当前文件夹路径

VB.NET获取Image图片对象属性

用FileStream打开文件查看大小再创建Bitmap显示图片尺寸。

为新源等地区用户提供了全套网页设计制作服务，及新源网站建设行业解决方案。主营业务为成都网站设计、成都网站制作、新源网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！

Dim f As New IO.FileStream("C:\1.bmp", IO.FileMode.Open, IO.FileAccess.Read) '改成你的文件地址。

MsgBox(f.Length / 1024  "KB") '没做仔细，你根据需要自己改吧，Length得到的是字节数。

Dim b As New Bitmap(f)

f.Dispose()

MsgBox(b.Width  " * "  b.Height)

FileStream 类：

Bitmap 类：

如何在vb中实现查看文件的属性?

Option Explicit

Private Sub Command1_Click()

Dim fs, f

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile("C:\新建 文本文档.txt")

Print f.Attributes

'0 一般文件。未设置属性。

'1 只读文件。属性为读/写。

'2 隐藏文件。属性为读/写。

'4 系统文件。属性为读/写。

'8 磁盘驱动器卷标。属性为只读。

'16 文件夹或目录。属性为只读。

'32 自上次备份后已经改变的文件。属性为读/写。

'64 链接或快捷方式。属性为只读。

'128 压缩文件。属性为只读。

Print f.DateCreated

'返回指定文件或文件夹的创建日期和时间?只读?

Print f.DateLastAccessed

'返回最后一次访问指定文件或文件夹的日期和时间。只读。

Print f.DateLastModified

'返回最后一次修改指定文件或文件夹的日期和时间?只读?

Print f.Name

'设置或返回指定的文件或文件夹的名称。可读写。

Print f.Path

'返回指定文件、文件夹或驱动器的路径。

Print f.Size

'对于文件，返回指定文件的字节数；对于文件夹，返回该文件夹中所有文件和子文件夹的字节数。

End Sub

上面的就包括所有属性了，如果想要弹出窗口要自己做个窗口，把上面的属性排列上去

VB.net如何提取system并修改文件安全属性？

将以下代码保存到模块中：

Declare Function GetPrivateProfileString Lib "kernel32" Alias _

"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _

ByVal lpKeyName As Any, _

ByVal lpDefault As String, _

ByVal lpReturnedString As String, _

ByVal nSize As Long, _

ByVal lpFileName As String) As Long

Declare Function WritePrivateProfileStringByKeyName Lib "kernel32" Alias _

"WritePrivateProfileStringA" (ByVal lpApplicationName As String, _

ByVal lpKeyName As String, _

ByVal lpString As String, _

Public Function GetIniParam(NomFichier As String, NomSection As String, NomVariable As String) As String

Dim ReadString As String * 255

Dim returnv As String

Dim mResultLen As Integer

mResultLen = GetPrivateProfileString(NomSection, NomVariable, "(Unassigned)", ReadString, Len(ReadString) - 1, NomFichier)

If IsNull(ReadString) Or Left$(ReadString, 12) = "(Unassigned)" Then

Dim Tempvalue As Variant

Dim Message As String

Message = "配置文件 " NomFichier " 不存在."

returnv = ""

Else

returnv = Left$(ReadString, InStr(ReadString, Chr$(0)) - 1)

End If

GetIniParam = returnv

End Function

Public Function WriteWinIniParam(NomDuIni As String, sLaSection As String, sNouvelleCle As String, sNouvelleValeur As String)

Dim iSucccess As Integer

iSucccess = WritePrivateProfileStringByKeyName(sLaSection, sNouvelleCle, sNouvelleValeur, NomDuIni)

If iSucccess = 0 Then

WriteWinIniParam = False

Else

WriteWinIniParam = True

End If

End Function

调用方法：

Call WriteWinIniParam(App.Path "\LiveUpdate.ini", "LiveUpdate", "AppName", txtAppName.Text)

txtFile.Text = GetIniParam(App.Path "\LiveUpdate.ini", "LiveUpdate", "FILES1")

vbnet 如何获取文件大小

你实例化一个文件对象，就可以获取这个文件的相关属性了，VB.NET实例，以你的文件为例：

Dim sourcefileinfo As New FileInfo(“ c:\1.txt”) '定义并实例化FileInfo对象。length就是它的大小！

label1.Text = "文件大小为: " sourcefileinfo.Length "字节"