#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <GUIConstantsEx.au3>
#include <File.au3>
#include <string.au3>
#include <WinAPIFiles.au3>
Func Example()
GUICreate("KAMERA-Tif ", 500, 100, 300, 100)
; ORDNER angeben, wohin die Datein kopiert werden sollen
$folderPRODUKTIV = "C:\B"
; nach txt-Datei durchsuchen & anzeigen
$sFileOpenDialog = FileOpenDialog("Bitte TXT wählen", @ScriptDir & "\", "Textdatei (*.txt)", $FD_FILEMUSTEXIST, "")
$file = FileOpen($sFileOpenDialog, 0)
; GUI
Opt("GUICoordMode", 2)
GUICtrlCreateLabel("Datei gewählt : " & $sFileOpenDialog, 2, 5)
GUICtrlCreateLabel("PRODUKTIV Ordner : " & $folderPRODUKTIV, -1, 5)
$Button1 = GUICtrlCreateButton("KOPIEREN", -1, 0, 100)
$Button2 = GUICtrlCreateButton("LÖSCHEN", 0, -1)
$Button3 = GUICtrlCreateButton("DURCHSUCHEN", 0, -1)
GUISetState()
; Solange anzeigen, bis X gedrückt wird
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
;KOPIEREN
Case $msg = $Button1
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
FileCopy ($line, $folderPRODUKTIV , $FC_OVERWRITE)
WEnd
FileClose($file)
;LÖSCHEN
Case $msg = $Button2
FileDelete($folderProduktiv & "\*")
;DURCHSUCHEN
Case $msg = $Button3
;wenn Button Durchsuchen, Programm schließen & nochmals starten
;Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath))
Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptDir))
Exit
EndSelect
WEnd
EndFunc
Example()
Exit