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
上面的就包括所有属性了，如果想要弹出窗口要自己做个窗口，把上面的属性排列上去
用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 类：
将以下代码保存到模块中：
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")
