Hallo...
versuche verzweifelt eine Prgressbar fürs FileCopy zu integrieren. Habe schon über die Suche div. Beiträge gesucht, einiges gefunden und probiert - aber ich krieg es absolut nicht auf die Reihe
So schaut es bisher aus (ja, ich weis - es geht mit sicherheit vieeeeel eleganter :D)
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("MeinProgramm", 314, 196, 192, 114)
$cprog = GUICtrlCreateButton("C:", 72, 45, 75, 25)
$dprog = GUICtrlCreateButton("D:", 166, 45, 75, 25)
$eprog = GUICtrlCreateButton("E:", 72, 77, 75, 25)
$fprog = GUICtrlCreateButton("F:", 166, 77, 75, 25)
$Progress1 = GUICtrlCreateProgress(82, 130, 150, 16)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$data1 = @ScriptDir & '\dateiA*.zip' ;Die Updatedateien sind fortlaufend numeriert, also dateiA001...002...003 usw. darum eine Wildcard wenn mehrere vorhanden sind.
$data2 = @ScriptDir & '\dateiB*.zip' ;Sie sollen auch nur Dateien kopiert werden, die in der ScriptDir sind.
$data3 = @ScriptDir & '\dateiC*.zip'
$data4 = @ScriptDir & '\dateiD*.zip'
$alle = @ScriptDir & '\datei*.zip'
$dir1 = '\meinprogramm\1\update'
$dir2 = '\meinprogramm\2\update'
$dir3 = '\meinprogramm\3\update'
$dir4 = '\meinprogramm\4\update'
Func _message1()
MsgBox(64, "Info","Keine Dateien gefunden in " & @scriptdir )
EndFunc
Func _message2()
MsgBox(64,"Fehler","Meinprog.exe nicht gefunden")
EndFunc
Func _cprog()
If Not FileExists($alle) Then
_message1()
ElseIf FileExists("c:\meinprogramm\meine.exe") Then
FileCopy($data1, "c:" & $dir1,1)
FileCopy($data2, "c:" & $dir2,1)
FileCopy($data3, "c:" & $dir3,1)
FileCopy($data4, "c:" & $dir4,1)
Else
_message2()
EndIf
EndFunc
Func _dprog()
If Not FileExists($alle) Then
_message1()
ElseIf FileExists("d:\meinprogramm\meine.exe") Then
FileCopy($data1, "d:" & $dir1,1)
FileCopy($data2, "d:" & $dir2,1)
FileCopy($data3, "d:" & $dir3,1)
FileCopy($data4, "d:" & $dir4,1)
Else
_message2()
EndIf
EndFunc
Func _eprog()
If Not FileExists($alle) Then
_message1()
ElseIf FileExists("e:\meinprogramm\meine.exe") Then
FileCopy($data1, "e:" & $dir1,1)
FileCopy($data2, "e:" & $dir2,1)
FileCopy($data3, "e:" & $dir3,1)
FileCopy($data4, "e:" & $dir4,1)
Else
_message2()
EndIf
EndFunc
Func _fprog()
If Not FileExists($alle) Then
_message1()
ElseIf FileExists("f:\meinprogramm\meine.exe") Then
FileCopy($data1, "f:" & $dir1,1)
FileCopy($data2, "f:" & $dir2,1)
FileCopy($data3, "f:" & $dir3,1)
FileCopy($data4, "f:" & $dir4,1)
Else
_message2()
EndIf
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $cprog
_cprog()
Case $dprog
_dprog()
Case $eprog
_eprog()
Case $fprog
_fprog()
EndSwitch
WEnd
Als zweites würde mich noch interessieren, ob man den FileCopy Dialog anders gestallten kann. Wie Ihr seht, ändert sich ja immer nur der LW Buchstabe. Dank euch schonmal.