Vbscript 如何将两个文件夹路径C：（相同类型的文件：例如文本文档）和文件名提取到文本文件中，文件大小以kb为单位

我已编辑了提供的VBscript，但无法生成结果。我需要将两个文件夹路径C：（相同类型的文件：例如Text Document/MicrosoftExcel2003）和文件名（例如AB01、DE02）提取到文本文件中，文件大小以kb为单位。当我运行VBscript时，它会显示

行：16，字符：29，错误：预期''

以下是脚本：

Sub Tester()

    Dim ObjOutFile

    Set ObjOutFile = CreateObject("Scripting.FileSystemObject"). _
    CreateTextFile("C:\Users\User\Desktop\outcome.txt")


    ListFiles ObjOutFile, "C:\Users\User\Desktop\Folder A", "Microsoft Office Word 97 - 2003 Document"

    ListFiles ObjOutFile, "C:\Users\User\Desktop\Folder A", "Microsoft Office Word 97 - 2003 Document"


    ObjOutFile.Close

End Sub


Sub ListFiles(f, folderPath, fileType)
    Dim ObjFiles, ObjFile, sz

    fileType = UCase(fileType)
    Set ObjFiles = CreateObject("Scripting.FileSystemObject") _
    .getfolder(folderPath).Files

    For Each ObjFile In ObjFiles
        If UCase(ObjFile.Type) = fileType Then
            sz = Round(ObjFile.Size / 1024, 2)
            f.WriteLine sz & String(50 - Len(sz), " ") & ObjFile.Path
        End If
    Next

End Sub

---

您观察到的错误是由过程的签名引起的

ListFiles

。在VBScript中，所有变量/参数的类型均为

Variant

，因此不能明确指定类型。更改此项：

Sub ListFiles(f, folderPath As String, fileType As String)

为此：

Sub ListFiles(f, folderPath, fileType)

---

嗨，安斯加，谢谢你的建议。我试图用你的脚本执行，但仍然找不到结果。执行后不会弹出错误消息。我已经编辑了我的脚本作为上面的测试目的。请看一看，并请帮助我。你是什么张贴你的整个脚本？在这种情况下，在文件末尾添加一行

Tester

。否则该过程将永远不会被调用，因此不会执行任何操作。是的，这是我的整个脚本。我将运行此脚本，并让您知道结果。谢谢。