Option Explicit
Sub Main()
Dim sFile As String
sFile = Dir("C:\文件夹a\*.*")
While LenB(sFile) <> 0
On Error Resume Next
Kill "C:\文件夹b\" & sFile
On Error GoTo 0
sFile = Dir()
Wend
End Sub
Dim fso, File
Dim PathA, PathB
Dim FilesInPathA
Set fso = CreateObject("Scripting.FileSystemObject")
'获得路径A下的文件列表
Set PathA = fso.GetFolder("路径A")
For Each File In PathA.Files
FilesInPathA = FilesInPathA & "|" & File.Name
Next
'获得路径B下的文件列表
Set PathB = fso.GetFolder("路径B")
For Each File In PathB.Files
If InStr(FilesInPathA, File.Name) Then '判断此文件在路径A下是否存在
File.Delete True '如果存在则删除
End If
Next
Set fso = Nothing
