Private Sub Command1_Click()
    Dim fso As New FileSystemObject
    Dim fol As Folder
    Dim f As File
 
    Set fol = fso.GetFolder(App.Path + "\OrdnerA")
 
    For Each f In fol.Files
        If Not fso.FileExists(App.Path + "\OrdnerB\" + f.Name) Then
            Call f.Delete(True)
        End If
    Next f
    Set fol = Nothing
    Set fso = Nothing
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1