'遍歷一個文件夾下的所有文件夾
Function FilesTreeClean(NeedCleanPath, ComparePath)
    WScript.Echo "清理目錄: " & NeedCleanPath
    WScript.Echo "保留目錄: " & ComparePath
    Set oFso = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFso.GetFolder(NeedCleanPath)
    Set oSubFolders = oFolder.SubFolders
    
    Set oFiles = oFolder.Files
    For Each oFile In oFiles
        'WScript.Echo oFile.Path
        curFileName = oFso.GetFileName(oFile.Path)
        If(oFso.FileExists(ComparePath & "\" & curFileName)) Then '檢測文件是否存在
            WScript.Echo "刪除重復(fù)文件 " & oFile.Path
            oFile.Delete
        End If
    Next
    
    For Each oSubFolder In oSubFolders
        subFolderName = "\" & oFso.GetFileName(oSubFolder.Path)
        WScript.Echo "=>" & subFolderName
        'oSubFolder.Delete
        call FilesTreeClean(oSubFolder.Path, ComparePath & subFolderName)'遞歸
    Next
    
    Set oFolder = Nothing
    Set oSubFolders = Nothing
    Set oFso = Nothing
End Function

Set args = WScript.Arguments
If args.Count = 2 Then
    NeedCleanPath = WScript.Arguments(0)
    ComparePath = WScript.Arguments(1)
    call FilesTreeClean(NeedCleanPath, ComparePath)
Else
    MsgBox "用法: CSCRIPT DuplicateCleaner.vbs 待清理的文件夾路徑 待保留的文件夾路徑", 0, "溫馨提示"
End If