AW: 2005 erstellte Dateien inkl. Unterverz. einlesen
23.11.2005 16:06:29
UweD
Hallo
so?
Sub Alter()
Dim TB, Pfad$, Ext$, i&, Jahr%, Z&
Set TB = Sheets("Tabelle1")
Pfad = "C:\Temp" 'anpassen
Ext = "*.*"
Z = 1
Jahr = InputBox("Welches Jahr", , Year(Date))
With Application.FileSearch
.NewSearch
.LookIn = Pfad
.SearchSubFolders = True 'auch die Unterverzeichnisse
.Filename = Ext
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
If Year(FileDateTime(.FoundFiles(i))) = Jahr Then
Z = Z + 1
TB.Cells(Z, 1) = FileDateTime(.FoundFiles(i)) 'Datum
TB.Cells(Z, 1).NumberFormat = "DD/MM/YYYY" 'Datum formatieren
'Link erzeugen******
ActiveSheet.Hyperlinks.Add Anchor:=TB.Cells(Z, 2), _
Address:=.FoundFiles(i), TextToDisplay:=Dir(.FoundFiles(i))
'Pfad eintragen******
TB.Cells(Z, 3) = Left(.FoundFiles(i), Len(.FoundFiles(i)) - Len(Dir(.FoundFiles(i))))
End If
Next i
End With
'******Sortieren********
TB.Columns("A:C").Sort Key1:=TB.Range("A2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
In ein normales Modul copieren,
Startpfad und ggf Ext. anpassen
Gruß UweD
(Rückmeldung wäre schön)