aus der excel-ecke gibt es da auch was nettes...
suchen nach Dateien.... wieder nix wirkliches für den mac - oder?
hier das makro:
Dim z, unterordner As Variant
Sub Suchen()
Dim Laufwerk, Dateien As String
z = 2
'Tabellenbereich löschen
[a1:d4000] = ""
Laufwerk = "C:\"
Laufwerk = InputBox("In welchem Ordner wollen Sie suchen:", "Laufwerk & Ordner", "C:\")
If Laufwerk = "" Then Exit Sub
unterordner = MsgBox("Unterordner mit einbeziehen?", vbYesNo, "Unterordner")
Dateien = "*.*"
Dateien = InputBox("Nach welchen Dateien wollen Sie suchen:", "Dateityp", "*.*")
If Dateien = "" Then Exit Sub
Dateisuche Laufwerk, Dateien
End Sub
Sub Dateisuche(Laufwerk, Dateien)
Dim temp, wdhlg, Dateiname As String
On Error Resume Next
If Right(Laufwerk, 1) <> "\" Then Laufwerk = Laufwerk + "\"
temp = Dir(Laufwerk & Dateien)
Do While Len(temp)
Dateiname = Laufwerk & temp
Application.StatusBar = Dateiname
Cells(z, 1).Select
Cells(z, 1) = Laufwerk & temp
Cells(z, 2) = FileLen(Laufwerk & temp)
Cells(z, 3) = FileDateTime(Laufwerk & temp)
Cells(z, 4) = temp
z = z + 1
temp = Dir()
Loop
temp = Dir(Laufwerk, vbDirectory)
If unterordner = vbNo Then temp = ""
Do While Len(temp)
If (temp <> ".") And (temp <> "..") Then
If (GetAttr(Laufwerk & temp) And vbDirectory) = vbDirectory Then
Dateisuche Laufwerk & temp, Dateien
z = z - 1
wdhlg = Dir(Laufwerk, vbDirectory)
z = z + 1
Do While wdhlg <> temp
wdhlg = Dir()
Loop
End If
End If
temp = Dir()
Loop
On Error GoTo 0
Application.StatusBar = False
End Sub
Have Fun
Moffett
