vbscript - VBScript filesys.CopyFile 到一个部分随机的文件夹

Question

谁能帮我破解这个坚果？

我在 %localappdata% 中有一个文件夹，部分是随机的，我需要将文件移动到该文件夹​​中。

%localappdata%\acroprint\TQP4_{随机字母串}\4.1.15.25435\

dim filesys, oShell

Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%LOCALAPPDATA%")

set filesys=CreateObject("Scripting.FileSystemObject") 
If filesys.FileExists("\\tstcfile\public\tqp41_15\user.config") Then 
   filesys.CopyFile "\\tstcfile\public\tqp41_15\user.config", strHomeFolder & "\Acroprint\TQP4_{random string of letters}\4.1.15.25435\", true 
End If

到目前为止，这是我可以让脚本工作的最接近的。我的问题是每个桌面上唯一的随机数字和字母字符串。我知道我不能在目的地使用 *。有谁知道解决方法？

谢谢克里斯

Answer 1

像这样的东西应该工作：

srcFile = "\\tstcfile\public\tqp41_15\user.config"
parentFolder = filesys.BuildPath(strHomeFolder, "acroprint")

For Each sf In filesys.GetFolder(parentFolder).SubFolders
  If UCase(Left(sf.Name, 5)) = "TQP4_" Then
    filesys.CopyFile srcFile, filesys.BuildPath(sf.Path, "4.1.15.23435\"), True
    Exit For
  End If
Next