通过 VBScript 获取文件夹中文件信息

zhang080602

于 2024-08-18 12:45:24 发布

阅读量177

点赞数 5

文章标签： windows

本文链接：https://blog.csdn.net/zhang080602/article/details/141298237

版权

可以获取文件夹中所有文件的信息，具体如下：

文件名称，文件大小，创建时间

Dim Fso, Folder, Files, File
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Folder = Fso.GetFolder("C:\Users\Administrator\Desktop\abc")
Set Files = Folder.Files
Dim LongLocalFileSize 
For Each File In Files
    LongLocalFileSize  = File.Size
    Msgbox File.Name '文件名
    msgbox LongLocalFileSize '文件大小 字节显示Byte
    Msgbox "CreateTime" & File.DateCreated '创建时间
If  LongLocalFileSize  >= 1024 And LongLocalFileSize  < 1024 ^ 2 Then 
    strSizeMess = Round( LongLocalFileSize / 1024, 3 ) & " KB"
ElseIf LongLocalFileSize  >= 1024 ^ 2  And LongLocalFileSize < 1024 ^ 3 Then
    strSizeMess = Round(LongLocalFileSize / 1024 / 1024, 3 ) & " MB"
ElseIf LongLocalFileSize  >= 1024 ^ 3  And LongLocalFileSize < 1024 ^ 4 Then
    strSizeMess = Round(LongLocalFileSize / 1024 / 1024 / 1024, 3 ) & " G"
ElseIf LongLocalFileSize  >= 1024 ^ 4  Then
    strSizeMess = Round(LongLocalFileSize / 1024 / 1024 / 1024 / 1024, 3 ) & " T"
Else
    strSizeMess = LongLocalFileSize & " B"
End If
     Msgbox strSizeMess 
Next