Nicht wundern mir war langweilig.... hab ich einfach schnell hingeproggt... vl kann jemand damit was anfangen
[autoit]; by sl4y3r --- VISIT http://www.team-sl4.co.cc
[/autoit][autoit][/autoit][autoit]#include <GuiConstants.au3>
[/autoit][autoit][/autoit][autoit]$GUI_Handle = GuiCreate("Ordner: '" & @ScriptDir & "'", 571, 404,(@DesktopWidth-571)/2, (@DesktopHeight-404)/2)
[/autoit][autoit][/autoit][autoit]$list = GuiCtrlCreateList("", 30, 20, 160, 357)
GuiCtrlCreateGroup("", 20, 10, 530, 380)
GuiCtrlCreateGroup("Options", 200, 20, 340, 70)
$save = GuiCtrlCreateButton("Speichern", 380, 40, 160, 40)
$open = GuiCtrlCreateButton("Öffnen", 210, 40, 160, 40)
$edit = GuiCtrlCreateEdit("wählen Sie eine Datei aus...", 200, 100, 350, 280)
$search = FileFindFirstFile("*.*")
[/autoit][autoit][/autoit][autoit]; Check if the search was successful
If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
GUICtrlSetData($list, $file & "|")
WEnd
; Close the search handle
FileClose($search)
GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ShellExecute("iexplore.exe", "http://www.team-sl4.co.cc/", @ProgramFilesDir & "\Internet Explorer\", "open")
ExitLoop
Case $msg = $open
GUICtrlSetData($edit,FileRead(GUICtrlRead($list)))
Case $msg = $save
$file = FileOpen("Kopie von " & GUICtrlRead($list), 1)
FileWrite($file, GUICtrlRead($edit))
FileClose($file)
Run(@ScriptName)
Exit
Case Else
;;;
EndSelect
WEnd