将VBScript filesys.CopyFile复制到部分随机的文件夹

有人能帮我把这个坚果弄碎吗

我在%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

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

谢谢

---

克里斯

像这样的东西应该有用：

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

---

是否只有一个文件夹

TQP4.*

，或者可以有多个文件夹（使用不同的随机字符串）？如果是后者，文件是复制到所有文件夹还是只复制到一个文件夹？对于每个桌面，将有\acroprint\TQP4\u aaasssddddffffggghhh\4.1.15.23435\，其中aaass字符串。。。对于每个安装实例都是随机的。我需要将user.config移动到该目录中的子文件夹。我想问的是，有没有一种方法可以将文件移动到4.1.15.25435文件夹中，而不必硬编码随机字符串？