如何获取 Visual Basic 脚本目录中存在的文件列表?
- 我查看了罗塞塔代码,但它没有指定这样的任务。
- 我发现的搜索结果被我无法在我的脚本中应用的 vb.net 脚本污染了
.vbs
。
如何获取 Visual Basic 脚本目录中存在的文件列表?
.vbs
。该代码是以下各项的组合:
下面的代码可以存储在一个.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