Question

我已编辑了我提供的VBscript，但无法生成结果。我需要提取两个文件夹路径C :(相同类型文件：例如文本文档/ Microsoft excel 2003）和文件名称（例如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

Answer 1

您观察到的错误是由程序ListFiles的签名引起的。在VBScript中，所有变量/参数都是Variant类型，因此您不能显式指定类型。改变这个：

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

进入这个：

Sub ListFiles(f, folderPath, fileType)

如何将两个文件夹路径C :(相同类型文件：例如文本文档）和文件名称提取到文件大小为kb的文本文件中

1 个答案: