hi ihr
ich nerv mal wieder ein bisschen:)
hab ma wieder ein problem und zwar, ich will ein programm schreiben welches datein mit *.sg1 auflistet... diese möchte ich dann einzeln auswählen können und auf knopfdruck die ausgewähleten in *. sg2 umbenennen... diese sollen dann wiederum in einem anderen fenster aufgelistet werden... hier möchte ich sie auch auswählen können und dan auf knopfdruck in *.sg1 umbenennen... hört sich kompliziert an daher hier mal der gui... damit ises glaub ich zu versteen was ich will^^
achso... alle *.sg1 datein sollen im linken fenster angezeigt werden und die *.sg2 datein im rechten fenster
[autoit]
#include <GUIConstants.au3>
#include <File.au3>
$Form1 = GUICreate("Dateinfinder", 316, 289, 269, 154)
GUICtrlSetState(-1,$GUI_SHOW)
$List1 = GUICtrlCreateList("", 5, 30, 129, 216)
$List2 = GUICtrlCreateList("", 175, 30, 129, 216)
$Button5 = GUICtrlCreateButton(">", 138, 93, 34, 34, 0)
GUICtrlSetFont(-1, 16, 800, 0)
$Button6 = GUICtrlCreateButton("<", 138, 143, 34, 34, 0)
GUICtrlSetFont(-1, 16, 800, 0)
$Button7 = GUICtrlCreateButton("Hilfe", 62, 250, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Beenden", 174, 250, 75, 25, 0)
$Pfad = GUICtrlCreateLabel("D:\Dateifinder\Test\", 6, 5, 298, 18)
GUISetState(@SW_SHOW)
; Shows the filenames of all files in the current directory.
$Ordner = FileFindFirstFile(GUICtrlRead($Pfad) & "*")
; Check if the search was successful
If $Ordner = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf
While 1
$UOrdner = FileFindNextFile($Ordner)
$Datei = FileFindFirstFile($Pfad & $UOrdner & "\")
$UDatei = FileFindNextFile($Datei, "*.sg1")
;~ $Datei = FileFindNextFile($UOrdner)
;~ If @error Then ExitLoop
;~
MsgBox(4096, "File:", $UDatei)
WEnd
; Close the search handle
FileClose($search)
leider schetere ich schon beim ansatz mit dem suchen der datein in den unterordnern...
die herachie: D:\Dateifinder\Test\->gaaanz viele unterordner<-\*.sg1 (bzw nach dem umbenennen .sg2)
hoffe das ist nicht zu dreist wenn ich so viel gleich frage...