关于我们

质量为本、客户为根、勇于拼搏、务实创新

< 返回新闻公共列表

vs 取文件大小 字节的方法

发布时间:2020-02-29 18:33:56

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



/template/Home/Zkeys/PC/Static