Vbscript 需要在正则表达式检查时消除不必要的重复文件

我只有3个TestApp.zip文件，但我得到了9个文件，这导致了总共错误的文件大小，文件夹结构如下

---

非常感谢任何帮助！！提前感谢

在你发布的代码中，我看不到这个函数RegExTest？@Hackoo我们又见面了：-）你应该研究正则表达式。“*”并不像你想象的那样是一个通配符。

Source="C:\\SourceDirectory"
Destination="C:\\DestinationDirectory"
pattern1="^"&"TestApp"&".*"&"zip"

Function RegExTest(pattern, stringToSearch)
    Dim regEx  ' Create variable.
    Set regEx = New RegExp    ' Create a regular expression.
    regEx.Pattern = pattern   ' Set pattern.
    regEx.IgnoreCase = True   ' Set case insensitivity.
    regEx.Global = True       ' Set global applicability.
    Set Matches = regEx.Execute(stringToSearch)   ' Execute search.q
      IF Matches.count  > 0 Then
         RegExTest = True
      End IF
End Function 



Sub ProcessFile(Source, Destination)
    Set Folder = FSO.GetFolder(Destination)
    If Not (Right(Destination, 1) = "\") Then
        Destination = Destination & "\"
    End If
    ' Deal with Duplicate Files
    Dim sourceArr, File
    sourceArr = Split(Source, "\")
    File = sourceArr(UBound(sourceArr))
    If Not FSO.FileExists(Destination & File) Then    
        returnValue = True
        For Each File In Folder.Files
            if RegExTest(pattern1,File.Name) And returnValue = "True" Then
                WScript.Echo("filename: "&File.Name&" filesize: "&File.Size)
            End If
        Next
        FSO.MoveFile Source, Destination
    End If  
End Sub