Hallo Community,
ich wollte euch mein Werk Präsentieren...
Für Lob, Kritik, Anregungen und Verbesserungsvorschläge bin ich wie immer sehr offen und würde mich auch über die ein oder andere Bewertung und den ein oder anderen Kommentar freuen!
Spoiler anzeigen
#include <File.au3>
#include <GuiConstants.au3>
#include <GDIPlus.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
$hGUI = GUICreate("Copy and Rename", 700, 330)
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup(" Quelle: ", 10, 10, 680, 130)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateLabel("Sie können den Verzeichnispfad auch per Drag and Drop hier einfügen", 180, 65, 500, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Button_Quelle = GUICtrlCreateButton("Quell Ordner deklarieren", 18, 35, 150, 27)
$Input_Quelle = GUICtrlCreateInput("", 180, 36, 500, 25, BitOR($ES_LEFT,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Input_QuelleName = GUICtrlCreateInput("*", 180, 85, 200, 25, BitOR($ES_RIGHT,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetLimit(-1, 30)
GUICtrlCreateLabel("Dateiname", 313, 115, 70, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel(".", 383, 87, 30, 25)
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetLimit(-1, 3)
$Input_QuelleEndung = GUICtrlCreateInput("jpg", 390, 85, 50, 25, BitOR($ES_LEFT,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetLimit(-1, 3)
GUICtrlCreateLabel("Datei-Endung", 392, 115, 100, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Group2 = GUICtrlCreateGroup(" Ziel: ", 10, 145, 680, 130)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateLabel("Sie können den Verzeichnispfad auch per Drag and Drop hier einfügen", 180, 200, 500, 30)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Button_Ziel = GUICtrlCreateButton("Ziel Ordner deklarieren", 18, 170, 150, 27)
$Input_Ziel = GUICtrlCreateInput("", 180, 171, 500, 25, BitOR($ES_LEFT,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Input_ZielName = GUICtrlCreateInput("*", 180, 220, 200, 25, BitOR($ES_RIGHT,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetLimit(-1, 30)
GUICtrlCreateLabel("Dateiname", 313, 250, 70, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateLabel(".", 383, 222, 30, 25)
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetLimit(-1, 3)
$Input_ZielEndung = GUICtrlCreateInput("jpg", 390, 220, 50, 25, BitOR($ES_LEFT,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetLimit(-1, 3)
GUICtrlCreateLabel("Datei-Endung", 392, 250, 100, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Group2 = GUICtrlCreateGroup("", 10, 270, 680, 50)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Label10 = GUICtrlCreateLabel("Sind alle Angaben richtig?", 18, 290, 200, 20)
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFF0000)
$Button_Umwandeln = GUICtrlCreateButton("Dateien Konvertieren", 230, 287, 150, 25)
$Info = GUICtrlCreateButton("Info zur Software", 530, 287, 150, 25, $BS_MULTILINE)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button_Quelle
$QBild = FileSelectFolder("Bitte Quell Ordner auswählen ..."&@CRLF&"( Welche Datei, oder Dateien sollen geändert werden )", "")
GUICtrlSetData($Input_Quelle, $QBild)
Case $Button_Ziel
$ZBild = FileSelectFolder("Bitte Ziel Ordner auswählen ..."&@CRLF&"( Wohin sollen die geänderten Dateien gespeichert werden )", "")
GUICtrlSetData($Input_Ziel, $ZBild)
Case $Button_Umwandeln
$IQ1 = GuiCtrlRead($Input_Quelle)
$IQ2 = GuiCtrlRead($Input_QuelleName)
$IQ3 = GuiCtrlRead($Input_QuelleEndung)
$IZ1 = GuiCtrlRead($Input_Ziel)
$IZ2 = GuiCtrlRead($Input_ZielName)
$IZ3 = GuiCtrlRead($Input_ZielEndung)
FileMove($IQ1 & "\" & $IQ2 & "." & $IQ3, $IZ1 & "\" & $IZ2 & "." & $IZ3, 9)
Case $Info
If $Info Then ContinueLoop MsgBox(0, "Info: Bitte Lesen", "Bedienungsanleitung:"&@CRLF&""&@CRLF&"1. Quell Ordner wählen / deklarieren"&@CRLF&""&@CRLF&"- Wenn Sie alle Dateien, die sich in diesem Ordner befinden in den Zielordner verschieben möchten, muss als Dateiname und Datei-Endung * deklariert sein."&@CRLF&""&@CRLF&"- Wenn Sie zum Beispiel nur eine Dateiart wie jpg verschieben möchten, dann muss als Dateiname * und als Datei-Endung jpg deklariert sein."&@CRLF&""&@CRLF&"- Wenn Sie eine bestimmte Datei verschieben möchten, dann müssen Sie den Verzeichnispfad zu dieser Datei, Dateiname und Datei-Endung deklarieren."&@CRLF&"Zum Beispiel:"&@CRLF&"Verzeichnispfad = C:\Bilder"&@CRLF&"Dateiname = MeinBild"&@CRLF&"Datei-Endung = jpg"&@CRLF&""&@CRLF&" 2. Ziel Ordner wählen / deklarieren"&@CRLF&""&@CRLF&"- Wenn Sie alle Dateien, vom Quell Ordner in Zielordner verschieben möchten, muss als Dateiname und Datei-Endung * deklariert sein."&@CRLF&""&@CRLF&" - Wenn Sie alle Dateien, vom Quell Ordner in Zielordner verschieben möchten, die Dateinamen behalten und die Datei-Endungen ändern möchten, müssen Sie den Verzeichnispfad zu dieser Datei deklarieren, den Dateinamen durch * deklarieren und Datei-Endung ersetzen."&@CRLF&"Zum Beispiel:"&@CRLF&"Verzeichnispfad = C:\Bilder <= ALT NEU=> Verzeichnispfad = C:\MeineBilder"&@CRLF&" Dateiname = MeinBild <= ALT NEU=> Dateiname = MeinBild"&@CRLF&" Datei-Endung = jpg <= ALT NEU=> Datei-Endung = gif"&@CRLF&" "&@CRLF&"Ergebnis: aus C:\Bilder\MeinBild.jpg wird C:\MeineBilder\MeinBild.gif"&@CRLF&" "&@CRLF&" - Wenn Sie nur eine Datei verschieben möchten, können Sie den Dateinamen oder die Datei-Endung auch hier dementsprechend ändern."&@CRLF&""&@CRLF&"Bei Eingaben bitte beachten:"&@CRLF&"Punkte sowie Backslash werden automatisch durch die Software gesetzt.")
Exit
EndSwitch
WEnd