file - 如何使用 Visual Basic Sc​​ript/VBscript 获取目录中的文件列表？

Question

如何获取 Visual Basic 脚本目录中存在的文件列表？

1. 我查看了罗塞塔代码，但它没有指定这样的任务。
2. 我发现的搜索结果被我无法在我的脚本中应用的 vb.net 脚本污染了.vbs。

Answer 1

该代码是以下各项的组合：

1. 在 VBScript 中获取当前目录
2. https://www.go4expert.com/articles/list-files-folder-using-vbscript-t927/

下面的代码可以存储在一个.vbs文件中。它首先获取（执行）脚本的当前目录，然后获取该目录中的文件列表，返回它，最后打印第一个元素。

' Get the path of the current (executing) script
scriptdir = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
msgbox(scriptdir)

' get file list array
Set fileList = listFiles(scriptdir)

' display first element of file list array
msgbox(fileList(0))

On Error Resume Next
Function listFiles(sFolder)
  Set fileList = CreateObject("System.Collections.ArrayList")
  Dim fso, folder, files, NewsFile
  msgbox(sFolder)
  Set fso = CreateObject("Scripting.FileSystemObject")
  If sFolder = "" Then
      Wscript.Echo "No Folder parameter was passed"
      Wscript.Quit
  End If
  Set folder = fso.GetFolder(sFolder)
  Set files = folder.Files

  For each folderIdx In files
    fileList.add(folderIdx.Name)
  Next
  Set listFiles = fileList
End Function