Question

只知道“唯一作业号”子文件夹的名称，我正在尝试编写VBScript，它会快速返回包含我的“唯一作业号”子文件夹的“客户名称”文件夹的名称

这是我的文件夹结构：

客户1

- 独特的工作号码

客户2

- 独特的工作号码

在这里有一些帮助我发现了AppleScript（我想在我的Mac上运行脚本）：

set client_folders to "/Volumes/Jobs/2014"
set my_folder to "TD57706"
set clientName to (do shell script "find " & quoted form of client_folders & " -type d -name " & quoted form of my_folder & " -exec dirname {} +")

不幸的是我的客户端文件夹结构在本地网络中的另一台计算机（Windows）上，我认为这是我的Mac有问题快速搜索它（大约600个客户端文件夹）。我需要在这台Windows计算机上运行此代码，而不是在我的Mac上运行。

任何帮助将不胜感激!!!

Answer 1

您需要的是Scripting.FileSystemObject并循环浏览文件夹中的所有子文件夹。这段代码可以解决问题。

'Declare variables to be used  
Dim oFSO  
Dim myFolder  
Dim FolderToSearch
Dim FolderToFind  

'Define variables  
'Access a Scripting.FileSystemObject  
Set oFSO = CreateObject("Scripting.FileSystemObject")  

'Get the folder to be searched
FolderToSearch = "C:\Folder_To_Be_Searched"
FolderToFind = "TD57706"

'Set the current directory to a folder object  
Set myFolder = oFSO.GetFolder( FolderToSearch )  

'Loop through each of the files in the folder  
For each myFolder in myFolder.SubFolders

    'Output the name of each file
    if myFolder.Name = FolderToFind Then
        wscript.echo myFolder.Path
    End if

Next

有关Scripting.FileSystemObject的更多信息，请查看：http://msdn.microsoft.com/en-us/library/6kxy1a51(v=vs.84).aspx

这是我发布到我的博客的示例的略微修改版本，您可能也感兴趣VBSCRIPT – Loop through all files in a directory。

谢谢，

Sean W。

将简短的AppleScript转换为Windows VBScript

1 个答案: