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