将文件大小变成相应的字符串
Shlwapi.dll是一个跟随IE一起发行的文件。利用该文件中的一个API函数,你就可
以将以字节显示的文件的大小转变成相应的字符串。例如:"1.41 KB" 或 "1.32
MB." 在NT4, Windows 95+IE, 以及 Windows 98 这几个操作系统中都能找到
Shlwapi.dll文件。
下面是完整的源程序:
Option Explicit
Private Declare Function StrFormatByteSize Lib "shlwapi" Alias "
StrFormatByteSizeA" (ByVal dw As Long, ByVal pszBuf As String, ByRef
cchBuf As Long) As String
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long,
lpFileSizeHigh As Long) As Long
Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As
String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
Private Const OFS_MAXPATHNAME = 128
Private Type OFSTRUCT
cBytes As Byte
fFixedDisk As Byte
nErrCode As Integer
Reserved1 As Integer
Reserved2 As Integer
szPathName(OFS_MAXPATHNAME) As Byte
End Type
Private Const OF_READ = &H0
Private Sub Form_Load()
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载