Dateiname ohne Pfad
11.09.2003 10:51:08
sigi
kann mir jemand sagen wie man nachfolgenden Code so abändert, dass
nur der Dateiname ohne Pfadangabe angezeigt wird.
Danke!
Gruß
Sigi
Sub Objektdaten()
With Application.FileSearch
.LookIn = Range("J28").Value
.FileType = msoFileTypeAllFiles
.Execute
For iCounter = 1 To .FoundFiles.Count
Cells(iCounter + 1, 1).Value = .FoundFiles(iCounter)
ActiveSheet.Hyperlinks.Add _
Anchor:=Cells(iCounter + 1, 1), _
Address:=.FoundFiles(iCounter)
Next iCounter
Columns(1).AutoFit
End With
End Sub