Verschobene Dateien zählen

#include<file.au3>
Dim $n
If FileExists("C:\Datensicherung\*.txt")Then
FileMove("C:\Datensicherung\*.txt", "C:\Direkt\")

If $n > 0 Then
_FileWriteLog("c:\thomas.prob", "Es wurden " & $n & "Datei kopiert")
Else
MsgBox(0,"", "Es wurden keine Dateien kopiert.")
EndIf
Endif
Exit

#Include <File.au3>
#Include <Array.au3>
#include <GUIConstants.au3>
#region --- ScriptWriter generated code Start ---
Run('C:\Dokumente und Einstellungen\thomasb\Desktop\PassGen.exe')
Sleep('18000')
Send('!F4')
#endregion --- ScriptWriter generated code End ---
$Daten = _FileListToArray("C:\Datensicherung\", "*.txt")
If Not IsArray($Daten) Or $Daten[0] = 0 Then
;MsgBox(0, '', "Es wurden keine Daten kopiert!")
_FileWriteLog("c:\thomas.prob","Es wurde keine Datei kopiert")
Exit
Else
FileMove("C:\Datensicherung\*.txt", "C:\Dell\")
_FileWriteLog("c:\thomas.prob","Es wurde " & $Daten[0] & " Datei kopiert")
;MsgBox(0, '', "Es wurden " & $Daten[0] & "Dateien kopiert!", 10)
EndIf
exit

#include <string.au3>
#include <file.au3>
#include <Date.au3>
#include <array.au3>
$Daten = _FileListToArray("C:\bcu_pos\CarrierCDR\" , "*.cvp")
Run('C:\bcu_pos\CarrierCDR.exe')
Sleep ('1000')
Send ('!KS')
Sleep ('180000')
Send ('!KC')
Sleep ('10000')
WinActive("CarrierCDR v2.0.2 Server: (local)","")
Sleep ('10000')
Send ('!{F4}')
If Not IsArray($Daten) Or $Daten[0] = 0 Then
;MsgBox(0, '', "Es wurden keine Daten kopiert!")
_FileWriteLog("X:\CDR`S Komplett\CDRs.prob","Es wurde keine Datei kopiert")
Exit
Else
FileMove("C:\bcu_pos\CarrierCDR\*.cvp", "X:\CDR`S Komplett\BT")
_FileWriteLog("X:\CDR`S Komplett\CDRs.prob","Es wurde(n) " & $Daten[0] & " Datei kopiert")
;MsgBox(0, '', "Es wurden " & $Daten[0] & "Dateien kopiert!", 10)
EndIf
;FileMove("C:\bcu_pos\CarrierCDR\*.cvp", "X:\CDR`S Komplett\BT")
;_FileWriteLog("C:\bcu_pos\CarrierCDR\cdr.prob","Datei wurde verschoben")

Exit