Seite 1 von 1

Datei mit Pafd in String übernehmen

Verfasst: 16.07.2013 13:55
von funkheld
Hallo, guten Tag.
Ich möchte bitte die Datei die ich unten anklicke mit gesammten Pfad in einem String übernehmen.
Wie geht das?
Kann man eine Voreinstellung vornehmen mit einem bestimmten Laufwerk und Ordner beim ExplorerTreeGadget?

Danke.
Gruss

Code: Alles auswählen

If OpenWindow(0, 0, 0, 300, 300, "ExplorerTreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ExplorerTreeGadget(0, 10, 10, 280, 280, "*.prg;*.tx")
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf


Re: Datei mit Pafd in String übernehmen

Verfasst: 16.07.2013 14:13
von RSBasic
Mit dem folgenden Code wird "C:\" vorausgewält und bei Klick wird der komplette Pfad angezeigt:

Code: Alles auswählen

EnableExplicit

Define EventID

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ExplorerTreeGadget(0, 10, 10, 280, 280, "C:\*.prg;*.txt")
  
  Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      Select EventGadget()
        Case 0
          Select EventType()
            Case #PB_EventType_LeftClick
              Debug GetGadgetText(0)
         EndSelect
      EndSelect
    EndIf
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

Re: Datei mit Pafd in String übernehmen

Verfasst: 16.07.2013 14:25
von funkheld
Danke.
Jetzt habe ich diesen String bzw die anderen können aufgrund der Pfade länger sein :
F:\winvice\html\plain\serial.txt

Mit welchem Befehl kann ich immer nur den Dateinamen "serial.txt" rausfiltern ?

Danke.

Re: Datei mit Pafd in String übernehmen

Verfasst: 16.07.2013 14:51
von andi256

Code: Alles auswählen

txt$ ="F:\winvice\html\plain\serial.txt"
Debug GetFilePart(txt$)
mfg Andi

Re: Datei mit Pafd in String übernehmen

Verfasst: 16.07.2013 15:02
von funkheld
Hallo danke für die schnelle Hilfe.

Gruss