Problem mit filemove

  • ich habe ein Problem mit dem folgenden Script:

    Spoiler anzeigen
    [autoit]


    #include <File.au3>
    #include <Array.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Global $aFileList
    Global $aFileTime
    Global $fSource
    Global $i = 0

    [/autoit] [autoit][/autoit] [autoit]

    While $i <= 10
    $fSource = FileSelectFolder('Quellverzeichnis', @ScriptDir)
    $aFileList = _FileListToArray($fSource, '*')
    If @Error=1 Then
    MsgBox (0, '', 'No Files\Folders Found.')
    Exit
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    For $x = 1 To $aFileList[0]
    $aFileTime = FileGetTime($fSource & '\' & $aFileList[$x], 0, 0)
    If Not @error Then
    _FileWriteLog('logfile.log', $fSource & '\' & $aFileList[$x])
    _FileWriteLog('logfile.log', '\destination\' & $aFileTime[0] & '\' & $aFileTime[1] & '\' & $aFileTime[0] & '_' & $aFileTime[1] & '_' & $aFileTime[2] & '\' & $aFileList[$x])
    FileMove($fSource & '\' & $aFileList[$x], '\destination\' & $aFileTime[0] & '\' & $aFileTime[1] & '\' & $aFileTime[0] & '_' & $aFileTime[1] & '_' & $aFileTime[2] & '\' & $aFileList[$x], 8)
    Else
    MsgBox (0, '', 'Shit happens' & @CRLF & @error)
    EndIf
    Next

    [/autoit] [autoit][/autoit] [autoit]

    WEnd

    [/autoit]

    als ich mit einem Unterodner gestestet habe, welcher noch weitere Unterordner hatte, wurde aus den Ordnern jeweils eine Datei:
    siehe Anhang

    leider kann ich nicht sagen, ob dies mit besonders wichtigen Dateien passiert ist, aber ... es wäre nicht schlecht an diese Dateien wieder ranzukommen!
    Also hat jemand eine Idee, wie ich so etwas wieder rückgängig machen kann?

    und ich weiss auch, dass ich so besser gefahren wäre: (Zeile 11 im Script)

    [autoit]

    $aFileList = _FileListToArray($fSource, '*', 1)

    [/autoit]

    ach so, unter Windows 7 passiert