Datei mit Pafd in String übernehmen

Für allgemeine Fragen zur Programmierung mit PureBasic.
funkheld
Beiträge: 651
Registriert: 31.12.2009 11:58

Datei mit Pafd in String übernehmen

Beitrag 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

Benutzeravatar
RSBasic
Admin
Beiträge: 8047
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: Datei mit Pafd in String übernehmen

Beitrag 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
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
funkheld
Beiträge: 651
Registriert: 31.12.2009 11:58

Re: Datei mit Pafd in String übernehmen

Beitrag 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.
andi256
Beiträge: 100
Registriert: 06.11.2004 11:23
Computerausstattung: PB 5.30 (x64) Win7
Wohnort: Österreich

Re: Datei mit Pafd in String übernehmen

Beitrag von andi256 »

Code: Alles auswählen

txt$ ="F:\winvice\html\plain\serial.txt"
Debug GetFilePart(txt$)
mfg Andi
funkheld
Beiträge: 651
Registriert: 31.12.2009 11:58

Re: Datei mit Pafd in String übernehmen

Beitrag von funkheld »

Hallo danke für die schnelle Hilfe.

Gruss
Antworten