Ausgelsene Dateipfade kürzen
11.08.2003 10:01:32
thomasM
schönen guten Tag wünsche ich.
Hab da ein kleines Problemchen ;-)
Ich habe mit folgendem Code die Pfade der .xls Dateien aus einem Ordner ausgelesen und will nun, dass er mir in den Zellen nicht:
D:\Exceltabellen\Projekte\Dateiname.xls ausgibt, sonder nur
Dateiname.xls
Hier der Quelltext:
Sub DateienAuflisten()
Dim I As Long
Dim Bereich As Range
Dim Zelle As Range
Const Verzeichnis = "D:\Exceltabellen\Projekte"
With Application.FileSearch
.NewSearch
.LookIn = Verzeichnis
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For I = 1 To .FoundFiles.Count
Cells(I, 1) = .FoundFiles.Item(I)
Next I
End With
End Sub
Danke im Vorraus
MfG,
thomasM