vbs 取文件大小 字节

dim  name
dim fs,  s

'name = Inputbox("姓名")
'msgbox(name)

set fs = wscript.createobject("scripting.filesystemobject")  'fs为FSO实例

if (fs.folderexists("c:\temp")) then  '判断c:\temp文件夹是否存在
        s="is available"
else
        s="not exist"
        set foldr=fs.createfolder("c:\temp")  '不存在则创建
end if

fs.deletefolder("c:\temp")
'  fs.Copyfolder  "D:\HeidiSQL",  "c:\data"
'  fs.Movefolder  "c:\data", "d:\working"

msgbox( ShowFolderSize("c:\aa.xls"))


Function ShowFolderSize(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
' Set f = fso.GetFolder(filespec) 若是是文件夹 用这行
Set f = fso.GetFile(filespec)

s = UCase(f.Name) & " 大小为 " & f.size & " 字节。"
ShowFolderSize = s
End Function