0

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

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

1 回答 1

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
于 2019-09-16T17:08:57.907 回答