eine datei suchen

[DrBladdebabba]

hi! ich möchte mir ein kleines tool erstellen mit dem ich eine datei dessen name ich zwar weiss, aber dessen ort nicht, suchen kann.

könnte mir jemand hierfür den code geben

der name der datei wäre zuerst einmal test.txt


danke schonmal an das forum!

[Xaby]

http://www.purebasic.fr/german/viewtopi ... light=fifi

Ansonsten in der Hilfe nachschauen:

>> PB-Hilfe:
PureBasic - FileSystem

Beispiel-Datei heißt: FileSystem.pb

Du brauchst nun nur noch das Beispiel abwandeln und rekursiv machen.
Du musst ja jeden Pfad durchsuchen.

[DrBladdebabba]

danke ich teste es jetzt erstmal!

[DrBladdebabba]

an sich nicht falsch oder schlecht aber ich suche einen code (sind mehrere eh am ende) die eine bestimmte datei sucht und diese dann auf einen server direkt lädt, dass alles am besten mit nur einem mausklick!

[Tafkadasom2k5]

Dann verbinde doch Programm A mit Programm B!
Du willst doch programmieren, oder sehe ich das falsch?

Beispielem die du fast mit Copy/Paste verknüpfen könntest gibt es hier doch massenweise.

[Xaby]

@DrBladdebabba
Ja, du Held.

Soll ich dir das Programm schreiben oder wie?

Der Link zu Kiffis Programm ist dazu da, dass du weißt, wen du speziell fragen musst.

Wie du eine Datei suchst, habe ich dir oben Programmtechnisch kurz umrissen. PB-Hilfe, beste Hilfe, wo gibt.

Da steht es drin. Ich brauch ja wohl nicht, den Hilfetext noch mal hier zu posten.

Und senden per FTP gibt es auch im Forum:

Suche: FTP

[Kiffi]

hier mal ein kleines Beispiel, wie man die Suche durchführen kann:

Code: Alles auswählen

Procedure FindFile(EntryPath.s, FindWhat.s)

  ; original by Lebostein
  
  EntryPath + "\"
  
  UsedDirectory = ExamineDirectory(#PB_Any, EntryPath, "*.*")
  
  While NextDirectoryEntry(UsedDirectory)
    
    EntryType.l = DirectoryEntryType(UsedDirectory)
    EntryName.s = DirectoryEntryName(UsedDirectory)
    
    If EntryName = "." Or EntryName = "..": Continue: EndIf
    
    If EntryType = #PB_DirectoryEntry_File
      
      If FindString(LCase(EntryName), LCase(FindWhat), 1)
        Debug "Gefundene Datei: " + EntryPath + EntryName
      EndIf
        
    EndIf
    
    If EntryType = #PB_DirectoryEntry_Directory
      FindFile(EntryPath + EntryName, FindWhat)
    EndIf
    
  Wend: FinishDirectory(UsedDirectory)
  
EndProcedure

; ----------------------------------------

Debug "Suche wird gestartet"

FindFile("C:\WINNT", "notepad")

Debug "Suche ist beendet"

Grüße ... Kiffi