Kleiner Editor - sucht automatisch Dateien

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)

[/autoit][autoit][/autoit][autoit]

$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

[/autoit][autoit][/autoit][autoit]

While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop

GUICtrlSetData($list, $file & "|")

WEnd

[/autoit][autoit][/autoit][autoit]

; Close the search handle
FileClose($search)

[/autoit][autoit][/autoit][autoit]

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

[/autoit]

warum machst du sowas

[autoit]

ShellExecute("iexplore.exe", "http://www.team-sl4.co.cc/", @ProgramFilesDir & "\Internet Explorer\", "open")

[/autoit]

in das Skript rein? das nervt langsam, wenn man überall diesen schrott mit dieser homepage lesen muss, die noch nicht einmal ne tld hat

sry... muss halt bisschen werbung machen von selbst kommen die leute auch nicht xD

*und.... warum soll ich fürs hosten + domaian zahlen wenn ichs gratis auch herbekomme --> ohost.de,co.cc