Seite 1 von 1
eine datei suchen
Verfasst: 15.05.2007 08:10
von 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!
FiFi
Verfasst: 15.05.2007 10:24
von 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.
Verfasst: 15.05.2007 10:35
von DrBladdebabba
danke ich teste es jetzt erstmal!
Verfasst: 15.05.2007 10:45
von 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!
Verfasst: 15.05.2007 11:10
von 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.
Verfasst: 15.05.2007 11:47
von 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
Verfasst: 16.05.2007 12:56
von 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