Moin,
Ziel ist es am 1. jeden Monats mehrere passende Ordner in einen neuen Ordner zu verschieben.
Beispiel der Ordnerstruktur und des Arrays siehe Anhang.
Alle Ordner mit "2010-11-*" sollen nun in den Ordner "2010-11".
DirMove liefert nun aber jedesman @error = 0.
Woran kann das liegen?
Spoiler anzeigen
;Prüfen, ob neuer Monat
If $Tag = 8 Then
;letzten Monat ermitteln
;~ If $Monat = 1 Then
;~ $Monat = 12
;~ $Jahr = $Jahr - 1
;~ Else
;~ $Monat = $Monat - 1
;~ EndIf
;Monatsordner anlegen
If Not FileExists($Sicherungslaufwerk & $Jahr & "-" & $Monat) Then
DirCreate($Sicherungslaufwerk & $Jahr & "-" & $Monat)
EndIf
;Ordner des letzten Monats holen
$Ordner =_FileListToArray($Sicherungslaufwerk, $Jahr & "-" & $Monat & "-*", 2)
_ArrayDisplay($Ordner, "Ordner")
;Einzelne Ordner kopieren
If @error = 0 Then
For $i = 1 to $Ordner[0]
MsgBox(0,"","'" & $Sicherungslaufwerk & $Ordner[$i] & "'" & " - " & "'" & $Sicherungslaufwerk & $Jahr & "-" & $Monat & "'")
DirMove($Sicherungslaufwerk & $Ordner[$i], $Sicherungslaufwerk & $Jahr & "-" & $Monat, 0)
MsgBox(0,"",@error)
Next
EndIf
EndIf
Laufwerk ist eine USB-Festplatte.
Betriebssystem ist Windows Server 2003 (32-bit)