Nach Datei suchen

[mbuettner]

Hallo,

ich wollte mal fragen, ob es möglich ist, mit Purebasic eine oder mehrere Dateien zu suchen. Also folgendes:
-Programmstart
-Dateisuche
Ich habe keinen entsprechenden Befehl gefunden (es sei denn, ich habe ihn überlesen).

[ts-soft]

Als erstes mal in der Hilfe ExamineDirectory studieren. Danach hier nochmal nach
Rekursive Funktion suchen.

Einfachen Befehl wie SucheMir(Datei.s) gibt es leider nicht

Gruß
Thomas

[Shadow-Gamer]

vielleicht gibts im codearchiv auch schon was entsprechendes als beispiel, zu finden auf http://www.purearea.net

[KeauHou]

Was du suchst ist vermutlich eine rekursive Funktion zum durchsuchen von Verzeichnissen.

Code: Alles auswählen

Global NewList Files.s()

Procedure Recursive_Search(sPath.s)
  Protected iCurrDir.i, sName.s
  iCurrDir = ExamineDirectory(#PB_Any, sPath.s, "*.*")
  If iCurrDir
    While NextDirectoryEntry(iCurrDir)
      sName = DirectoryEntryName(iCurrDir)
      If  sName <> "." And sName <> ".."                
        If DirectoryEntryType(iCurrDir) = #PB_DirectoryEntry_File
          AddElement(Files())
          Files() = sPath + "\" + sName
        Else
          Recursive_Search(sPath + "\" + sName)
        EndIf
      EndIf  
    Wend                      
    FinishDirectory(iCurrDir)
  EndIf
EndProcedure

Bei nem Aufruf speichert das ALLE gefundenen Dateien in der Linked List Files(). Kannst du ja so modifizieren dass nur Dateien mit bestimmtem Namen oder genau die Datei die du suchst in die Liste kommen, je nachdem wie du das brauchst.

MfG
KeauHou

[CSHW89]

Dafür gibt doch die tollen neuen FAQs:

http://www.purebasic.fr/german/viewtopi ... 76#p270676
ganz unten

Wie kann man mit ExamineDirectory() auch Unterverzeichnisse auslesen?

lg kevin