allfiles.vbs 显示子目录下的所有文件的修改时间、大小、文件名、扩展名等

要讲解这个问题，我们需要对allfiles.vbs脚本进行一定的解读和分析。

1. allfiles.vbs的作用

allfiles.vbs脚本的作用是显示某一目录下及其子目录下所有文件的修改时间、大小、文件名和扩展名等信息。这个脚本相当于一个目录遍历器，可以帮助我们快速地了解目录下的文件情况。

2. 如何使用allfiles.vbs

使用allfiles.vbs非常简单，只需要在命令行中输入以下命令：

cscript allfiles.vbs "目录路径"

其中，目录路径是你需要显示文件信息的目录。

例如，如果我们需要显示D盘下所有文件的信息，只需要在命令行中输入：

cscript allfiles.vbs "D:\"

3. allfiles.vbs源代码的解析

下面是allfiles.vbs的源代码：

Option Explicit

Dim Fso, FolderObj, ObjFolder, Files
Dim Fld, BaseFolder, Recursive

Set Fso = CreateObject("Scripting.FileSystemObject")

Set FolderObj = WScript.Arguments
BaseFolder = FolderObj.Item(0)

Recursive = True

Set ObjFolder = Fso.GetFolder(BaseFolder)
Set Files = ObjFolder.Files

Wscript.Echo "Path: " & ObjFolder.Path
Wscript.Echo "------------------------------------------"
WScript.Echo "Filename" & vbTab & "Size" & vbTab & "Date Modified"

For Each Fld In Files
    Wscript.Echo Fld.Name & vbTab & Fld.Size & vbTab & Fld.DateLastModified
Next

If Recursive Then
    RecursiveFolder ObjFolder
End If

Sub RecursiveFolder(Folder)
    Dim SubFolders, SubFolder

    Set SubFolders = Folder.SubFolders

    For Each SubFolder In SubFolders
        Set Files = SubFolder.Files
        WScript.Echo ""
        Wscript.Echo "Path: " & SubFolder.Path
        Wscript.Echo "------------------------------------------"
        WScript.Echo "Filename" & vbTab & "Size" & vbTab & "Date Modified"

        For Each Fld In Files
            Wscript.Echo Fld.Name & vbTab & Fld.Size & vbTab & Fld.DateLastModified
        Next

        RecursiveFolder SubFolder
    Next
End Sub

这段代码比较短，逻辑也比较清晰，我们可以逐行来解析它：

1. 第一行“Option Explicit”是指明强制声明变量，这是一种良好的编程习惯，可以帮我们发现一些编程错误。

2. 第二行到第六行是定义一些变量，其中“FolderObj = WScript.Arguments”是为了获取命令行中输入的目录路径，这里调用了WScript对象的Arguments属性。

3. 第8行到第16行是输出第一级目录下的文件信息，这部分比较简单，就不做赘述。

4. 第18行到第25行是一个递归函数，用于显示子目录下的文件信息。其中“Set SubFolders = Folder.SubFolders”是获取目录下的子目录，然后通过一个循环遍历每个子目录，递归调用RecursiveFolder函数，一直到所有目录都被遍历完为止。

4. 示例说明

下面是两个示例，演示如何使用allfiles.vbs。

第一个示例，我们需要显示D盘根目录下所有文件的信息。我们可以在命令提示符中输入以下命令：

cscript allfiles.vbs "D:\"

这时，我们就可以看到所有文件的信息了。

第二个示例，我们需要显示C盘根目录下所有文件的信息，并且包括子目录下的文件。我们可以在命令提示符中输入以下命令：

cscript allfiles.vbs "C:\" /s

这时，我们就可以看到所有文件的信息，包括子目录下的文件信息。需要注意的是，“/s”参数可以开启递归遍历。