Internet Files auslesen
08.08.2007 13:35:00
Tino
vieleicht könnt Ihr mir helfen.
versuch meine Temporeren Internetfils auszulesen bekomme es aber mit dem unten stehenden code nicht hin.
bei anderen Ordnern funktioniert dieser super, aber die Temp fils kann ich nicht auslesen.
Hat einer dies schon mal versucht und hat auch eine Lösung für mein Problem?
Sub dateiauflisten()
Dim i As Long
Const verz = "C:\Dokumente und Einstellungen\ts\Lokale Einstellungen\Temporary
Internet Files\"
On Error GoTo fehler
Cells.Clear
ChDir verz
Range("b1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = "*.*" 'Datei Typ
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Offset(0, -1).Value = Right(.FoundFiles(i), Len(.FoundFiles(i)) -
InStrRev(.FoundFiles(i), "\")) 'nur Dateiname anzeigen
ActiveCell.Offset(1, 0).Select
Next i
End With
Exit Sub
fehler:
MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz
End Sub
Gruss
Tino