189 8069 5689
用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 类：
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
上面的就包括所有属性了，如果想要弹出窗口要自己做个窗口，把上面的属性排列上去
将以下代码保存到模块中：
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")
你实例化一个文件对象，就可以获取这个文件的相关属性了，VB.NET实例，以你的文件为例：
Dim sourcefileinfo As New FileInfo(“ c:\1.txt”) '定义并实例化FileInfo对象。length就是它的大小！
label1.Text = "文件大小为: " sourcefileinfo.Length "字节"