Hallo nochmal,

Du könntest natürlich noch eine Msgbox einbauen, ist immer ganz nett, ach ja und gute Besserung nachträgl, hoffentl. wieder alles im Lot...

'...
If ialngIndex > 0 Then
    For ialngIndex = 0 To UBound(astrNames)
          Call objFSO.MoveFile(strSourcePath & "\" & astrNames(ialngIndex), _
                    strDestinationPath & "\" & astrNames(ialngIndex))
    Next
Else
    Call MsgBox("Der Ordner enthält keine Dateien mit den nötigen Eigenschaften...", vbExclamation)
End If
'...

Gruß,