|
Hallo,
klaro hab ich, auch die Frage erwartet...;-)... ist der Indexfehler, da dacht ich, das könnt ich schonmal Dir überlassen, aber ok, ist doch easy, wir haben ja einen Zähler, den fragen wir einfach ab, alles andere bleibt so...
'...
If ialngIndex > 0 Then
For ialngIndex = 0 To UBound(astrNames)
Call objFSO.MoveFile(strSourcePath & "\" & astrNames(ialngIndex), _
strDestinationPath & "\" & astrNames(ialngIndex))
Next
End If
'...
Gruß,
|