vbscript - 获取当前目录下的文件列表

Question

我正在尝试获取一个脚本来读取脚本文件所在目录的内容，然后根据部分名称识别几个特定文件并压缩它们。但我无法让 object.Files 属性起作用。有人可以告诉我这里出了什么问题吗？

Set FSO = CreateObject("Scripting.FileSystemObject")
objFolder = FSO.GetParentFolderName(WScript.ScriptFullName)
Set allFiles = objFolder.Files
For Each objFile in allFiles
    Wscript.Echo objFile.Name
Next

Answer 1

你的

objFolder = FSO.GetParentFolderName(WScript.ScriptFullName)

将路径(字符串)分配给 objFolder(检测到类型前缀欺诈!)。使用

Set objFolder = FSO.GetFolder(FSO.GetParentFolderName(WScript.ScriptFullName))

相反。