VBScript 从冗余备份文件夹中删除不在主备份文件夹中的文件

Question

好吧，所以我真的是VBScript的新手，所以请放心。

我正在尝试构建一个VBScript，它将删除主备份文件夹中不再存在的冗余备份文件夹中的文件。我设想一种方法，将冗余文件夹中的每个文件都放入，并检查主备份文件夹中是否存在同名文件。如果没有，则会删除冗余文件夹中的文件。这看起来很容易，但我认为我缺乏VB知识阻碍了我。

编辑：这将在Server 2003上运行。

到目前为止，我拥有的是：

'variables
dim fso1
dim fso2
dim redundantFolder
dim primaryFolder
dim redundantFile
dim primaryFile
dim counter
'creates file system object
Set fso1 = CreateObject("Scripting.FileSystemObject")
set fso2 = CreateObject("Scripting.FileSystemObject")
'sets the folder object to redundant backup folder
Set redundantFolder = fso1.GetFolder("C:UsersbmcwilliamsDesktopDevTestCompleted")
'sets folder object to primary folder
Set primaryFolder = fso2.getFolder("C:UsersbmcwilliamsDesktopDevTestUnCompleted")
'deletes files that aren't found in primary folder
For Each redundantFile in redundantFolder
For Each primaryFile in primaryFolder
if primaryFile.name == redundantFile.name
flag = false
Next

我知道"For Each"代码块中的逻辑是不完整的，而且完全错误，但这是我小小的大脑所允许的。

提前谢谢。非常感谢您的帮助。

编辑：这是最后的代码。我希望它能对另一个初学者有所帮助：

'creates file system object
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set fso2 = CreateObject("Scripting.FileSystemObject")
'sets the folder object to redundant backup folder
Set redundantFolder = fso1.GetFolder("C:tempredundant")
'sets folder object to primary folder
Set primaryFolder = fso2.GetFolder("C:tempprimary")
'deletes files that aren't found in primary folder
For Each redundantFile In redundantFolder.Files
If Not fso1.FileExists(primaryFolder.Path + "" + redundantFile.Name) Then
redundantFile.Delete
End If
Next

Answer 1

'creates file system object
Set fso = CreateObject("Scripting.FileSystemObject")
'sets the folder object to redundant backup folder
Set redundantFolder = fso.GetFolder("C:tempredundant")
'sets folder object to primary folder
Set primaryFolder = fso.GetFolder("C:tempprimary")
'deletes files that aren't found in primary folder
For Each redundantFile In redundantFolder.Files
If Not fso.FileExists(fso.BuildPath(primaryFolder.Path,redundantFile.Name)) Then
redundantFile.Delete
End If
Next