File Scanner

Übersicht

BlitzBasic

Codearchiv

	Buddah Betreff: File Scanner	Do, März 18, 2004 7:53 Antworten mit Zitat
Ich weiss.. is nix kompliziertes oder tolles.. aber musste es grad aus aktuellem anlass schreiben und da dachte ich mir bevor ein anderer dazu genötigt wird gebe ich es weiter Die function scan() scanned wie der name schon sagt das angegebene Laufwerk komplett mit allen unterverzeichnissen durch und sucht nach kompletten dateinamen oder nach dateiendungen. Die such ergebnisse sind dann als File Objekt mit Verzeichnisnamen verfügbar. Im beispiel werden also alle TXT und EXE dateien gesucht und die Datei Autoexec.bat wird gesucht. Das ganze lässt sich prima erweitern... gruß BuDDaH BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Type dir Field name$ Field done End Type Type file Field name$ End Type Type scan Field name$ End Type s.scan = New scan s\name$ = "ExE" s.scan = New scan s\name$ = "txT" s.scan = New scan s\name$ = "AuToExeC.bat" scan("C:") For f.file = Each file Print f\name$ Next WaitKey() End Function scan(start$) If Right$(start$,1) <> "\" Then start$ = start$ + "\" v.dir = New dir v\name$ = start$ v\done = 0 For v.dir = Each dir If v\done = 0 Then path$ = v\name$ ver = ReadDir(path$) Repeat Datei$ = NextFile$(Ver) If Datei$ = "" Then Exit If FileType(path$ + Datei$) = 2 Then If datei$ <> "." And datei$ <> ".." Then ve.dir = New dir ve\name$ = path$ + datei$ + "\" ve\done = 0 EndIf Else For s.scan = Each scan If Upper$(Right$(datei$,3)) = Upper$(s\name$) Or Upper$(datei$) = Upper$(s\name$) f.file = New file f\name$ = path$ + datei$ EndIf Next End If Forever CloseDir Ver For ve.dir = Each dir If ve\name$ = path$ Then ve\done = 1 Next Next For d.dir = Each dir Delete d Next End Function
Alles ist gut so wie es ist und bald wird alles anders.

Buddah

Betreff: File Scanner

Do, März 18, 2004 7:53
Antworten mit Zitat

Ich weiss.. is nix kompliziertes oder tolles.. aber musste es grad aus aktuellem anlass schreiben und da dachte ich mir bevor ein anderer dazu genötigt wird gebe ich es weiter Wink

Die function scan() scanned wie der name schon sagt das angegebene Laufwerk komplett mit allen unterverzeichnissen durch und sucht nach kompletten dateinamen oder nach dateiendungen. Die such ergebnisse sind dann als File Objekt mit Verzeichnisnamen verfügbar.
Im beispiel werden also alle TXT und EXE dateien gesucht und die Datei
Autoexec.bat wird gesucht.

Das ganze lässt sich prima erweitern...

gruß BuDDaH

BlitzBasic: [AUSKLAPPEN]


Type dir 
  Field name$
  Field done
End Type

Type file
  Field name$
End Type

Type scan
  Field name$
End Type

s.scan = New scan
s\name$ = "ExE"
s.scan = New scan
s\name$ = "txT"
s.scan = New scan
s\name$ = "AuToExeC.bat"

scan("C:")
For f.file = Each file
    Print f\name$
Next

WaitKey()
End

Function scan(start$)
  If Right$(start$,1) <> "\" Then start$ = start$ + "\"
  v.dir = New dir
  v\name$ = start$
  v\done = 0
  For v.dir = Each dir
      If v\done = 0 Then path$ = v\name$
      ver = ReadDir(path$)
      Repeat
         Datei$ = NextFile$(Ver)
         If Datei$ = "" Then Exit
         If FileType(path$ + Datei$) = 2 Then
            If datei$ <> "." And datei$ <> ".." Then 
               ve.dir = New dir
               ve\name$ = path$ + datei$ + "\"
               ve\done = 0
            EndIf
         Else
            For s.scan = Each scan
                If Upper$(Right$(datei$,3)) = Upper$(s\name$) Or Upper$(datei$) = Upper$(s\name$)
                   f.file = New file
                   f\name$ = path$ + datei$
                EndIf
            Next
         End If
      Forever
      CloseDir Ver
      For ve.dir = Each dir
          If ve\name$ = path$ Then ve\done = 1
      Next
  Next
  For d.dir = Each dir	
      Delete d
  Next
End Function

Alles ist gut so wie es ist und bald wird alles anders.