Datei ausführen

[Jules]

Hi Leute ich hätte mal ne frage wie kann ich den Dateien ausführen
nachdem ich sie mit

Code: Alles auswählen

explorerlistgadget()

aufgelistet habe ?

[Green Snake]

was meinst du mit ausführen?
also starten?

falls ja, dann musst du das mit RunProgram("Pfad zur datei .s")
machen.
der pfad muss zu jeden deiner programme gehe, also wenn du folgende hast

Programm1.exe
Programm2.exe

Dan musst du jedes aufrufen, eigentlich logisch
RunProgram("Programm1.exe")
RunProgram("Programm2.exe")

ich denke aber nicht, das du das meinst, oder doch?

[Jules]

Ja das hab ich mir schon gedacht doch woher weiß das programm welches programm es aufrufen soll......

daraus ergibt sich die frage wie liest man dateiendungen aus ?

[DarkDragon]

Ja das hab ich mir schon gedacht doch woher weiß das programm welches programm es aufrufen soll......

daraus ergibt sich die frage wie liest man dateiendungen aus ?

RunProgram("C:\test.txt") geht ja genauso gut. Da öffnet sich einfach Notepad .

[Jules]

Axo ok danke damit hat sich meine frage schon geklärt danke

[Jules]

Hätte dann noch ne frage zum thema und zwar:

Code: Alles auswählen

Repeat 
If WindowEvent() = #PB_Eventtype_leftdoubleclick And GetGadgetItemState(3,#pb_explorer_file)

RunProgram(GetGadgetText(3))
EndIf

wieso funktioniert das nicht ?

[DarkDragon]

Code: Alles auswählen

If WindowEvent() = #PB_Event_Gadget And EventType() = #PB_Eventtype_leftdoubleclick And GetGadgetItemState(3,#pb_explorer_file) 

was allerdings GetGadgetItemState(3,#pb_explorer_file) machen soll bei dir weiß ich auch nicht O_o

[Jules]

ich danke dir bin dann auch drauf gekommen aber schau dir das mal an und sag mir warum der nicht im rechten fenster anzeigt was ich im linken angeklickt habe ?

Code: Alles auswählen

OpenWindow(0,100,130,800,600,#PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget,"eXplorer")

CreateGadgetList(WindowID())
ExplorerListGadget(3,0,30,300,531,"C:\")
ExplorerListGadget(4,300,30,500,531,verzeichnis.s)

Repeat

If EventType() = #PB_EventType_LeftDoubleClick 
verzeichnis.s = GetGadgetText(3) 
OpenFile(1,"C:\file.txt")
WriteString(GetGadgetText(3))
CloseFile(1)
EndIf

Until WaitWindowEvent() = #PB_Event_CloseWindow

Das mit der textdatei hab ich nur zur überprüfung mit rein gemacht[/code]

[DarkDragon]

Code: Alles auswählen

OpenWindow(0,100,130,800,600,#PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget,"eXplorer")

verzeichnis.s = "C:\"

CreateGadgetList(WindowID())
ExplorerListGadget(3,0,30,300,531,"C:\")
ExplorerListGadget(4,300,30,500,531,verzeichnis.s)

Repeat

  Event = WaitWindowEvent()
  If Event = #PB_Event_Gadget And EventGadgetID() = 3 
    verzeichnis.s = GetGadgetText(3)
    Debug verzeichnis
    SetGadgetText(4, verzeichnis)
  EndIf

Until Event = #PB_Event_CloseWindow

EventType wird vom ExplorerListGadget nicht so unterstützt. Außerdem fehlte SetGadgetText(4, verzeichnis)

Die Textdatei brauchst du nich, dafür hast du den Debugger.

[Jules]

Achso ich danke dir...