AW: Viele Dateien in Windows
10.12.2008 17:51:45
Tino
Hallo,
Du könntest Dir mit Excel ein Inhaltsverzeichnis erstellen, dieses Speicherst Du an einem anderen Ort und aktualisierst diese Liste nur bei bedarf.
Diese Liste wird mit Hyperlinks versehen damit die entsprechende Datei auch gleich geöffnet werden kann.
Jetzt sind wir doch wieder bei Excel. ;-)
Modul Modul1
Option Explicit
Sub SucheDatei()
Dim Fso, Ordner, varDatei
Dim SucheDatei As String, DateiName As String
Dim meArea
Dim i As Long
SucheDatei = "*.*" 'welche Dateien
Set Fso = CreateObject("Scripting.FileSystemObject")
'hier Pfad angeben
Set Ordner = Fso.getfolder("J:\1 Forum")
'Schleife über alle Dateien im Ordner
Redim meArea(Ordner.Files.Count - 1, 0)
For Each varDatei In Ordner.Files
'Dateifilter, Platzhalter verwenden
If varDatei Like "*" & SucheDatei & "*" Then
DateiName = Right$(varDatei, Len(varDatei) - InStrRev(varDatei, "\"))
meArea(i, 0) = "=HYPERLINK(""" & varDatei & """,""" & DateiName & """)"
i = i + 1
End If
Next varDatei
Range("A1") = "Hyperlink": Range("A1").Font.Bold = True
Range("A2:A" & 2 + i - 1).Formula = meArea
End Sub
Gruß Tino