Hallo
und erstmal ein herzliches neues Jahr!
Mein erstes Problem im neuen Jahr sieht so aus:
- Es gibt einen Ordner mit Bildern die ich alle einzeln bearbeiten muß
- Alle Inhalte sollen im Loop mit Pfad nacheinander ausgelesen werden
ZitatAlles anzeigenAlso beim lesen so:
Loop...
Starte C:\Meine Bilder\Bild1.jpg
...dann mach was....
Wenn ich mit der Bearbeitung fertig bin
dann brauche ich den Speicherpfad
also so:
Speichern C:\Meine neuer Ordner\Bild1.jpg
Hier mein Code ohne Loop...
(habe alle Fehlversuche entfernt)
hm...das Inputfeld sollte den Pfad zeigen...geht auch nicht
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Bilder einlesen...", 615, 440, 246, 152)
$Ordnerwahl = GUICtrlCreateButton("Ordnerwahl", 440, 36, 119, 49)
$Start = GUICtrlCreateButton("Start", 444, 220, 115, 61)
$Anzeige = GUICtrlCreateCombo("Anzeige", 444, 180, 117, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "jpg|png")
$Ablageordner = GUICtrlCreateButton("Ablageordner", 440, 96, 119, 49)
$Quelle = GUICtrlCreateInput("Quelle", 48, 52, 381, 21)
$Label1 = GUICtrlCreateLabel("Quellordner", 48, 28, 58, 17)
$Label2 = GUICtrlCreateLabel("Zielordner", 48, 88, 51, 17)
$Ziel = GUICtrlCreateInput("Ziel", 48, 108, 385, 21)
$Label3 = GUICtrlCreateLabel("Welche Formate sollen gelesen werden?", 232, 188, 196, 17)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Ordnerwahl
$Quellordner = FileSelectFolder("Bitte Ordner wählen","",Default,@ScriptDir)
If @error Then Exit
Case $Ablageordner
$Zielordner = FileSelectFolder("Bitte neuen Ordner wählen","",Default,@ScriptDir)
If @error Then Exit
Case $Start
[/autoit][autoit][/autoit][autoit]$Einlesen = MsgBox(4,"","Sollen alle "&GUICtrlRead($Anzeige)& " Dateien eingelesen werden?")
If $Einlesen=6 Then
Else
MsgBox(4096,"Abbruch","Daten wurden nicht eingelesen")
endif
[/autoit][autoit][/autoit][autoit][/autoit][autoit]EndSwitch
WEnd
würd mich freuen, wenn die Profis mal drüberschauen
Viele Grüße
Ilse