本帖最后由 dizimotong 于 2018-12-14 21:32 编辑
问题是这样的:
在一个指定文件目录下,假设为D:\test,里面有许多包含特定编号的文件夹,如XXX123456AXXX,XXX为其他的字符,可能相同,且不一定只有3个字符,这里只是举一个例子,但是它们的每个编号都不一致,现在我想通过这些文件夹的特定编号获取它们的完整的文件夹名进行操作,请问能否提供一个思路给参考一下? 注:用VBS实现
各位好,以下是我用VBS写的代码,大家看一下有什么可以改进的地方,或者提供更好的方法?- Option Explicit
- Dim id,fname,pos
- Dim fso, dir, folder, file
- Set fso = CreateObject("scripting.filesystemobject")
- Set dir = fso.GetFolder("E:\TEST\VBS\TEST")
- fname = ""
- id = InputBox("请输入编号:")
- id = UCase(id)
- For Each folder In dir.SubFolders
- pos = InStr(UCase(folder.Name), id)
- If pos <> 0 Then
- fname = folder.Name
- Exit For
- End If
- Next
-
- If fname = "" Then
- WScript.Echo "没有找到该编号:" &id &"请确认该编号是否正确"
- WScript.Quit 1
- End If
-
- For Each file In folder.Files
- WScript.Echo file.Name
- next
复制代码
|