vb.net获取文件属性 vb获取指定文件路径

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

Option Explicit

创新互联公司云计算的互联网服务提供商,拥有超过13年的服务器租用、中国电信成都枢纽中心、云服务器、虚拟空间、网站系统开发经验，已先后获得国家工业和信息化部颁发的互联网数据中心业务许可证。专业提供云主机、虚拟空间、空间域名、VPS主机、云服务器、香港云服务器、免备案服务器等。

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获取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.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")