Habe das Makro aus dem Archiv.
Lief bislang auch über einen Windows PC, jetzt sind wir auf einem Cirtix Server und jetzt wird immer die FILESearch angemeckert
"Die Methode FileSearch für das Application Objekt ist fehlgeschlagen."
Kann jemand helfen?
Sub DateienAuflisten()
'es werden alle datein im Verzeichnis aufgelistet
Dim i As Long
'Ordener angeben aus dem aufgelistet werden sol
Const verz = "B:\201.2\"
On Error GoTo fehler
ChDir verz
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = Right(.FoundFiles(i), Len(.FoundFiles(i)) - InStrRev(.FoundFiles(i), "\"))
'mit dem Befehl inder nächsten zeile wird die Daftei als Hyperlink eingerichtet
'ActiveCell.Hyperlinks.Add ActiveCell, .FoundFiles(i)
ActiveCell.Offset(1, 0).Select
Next i
End With
Exit Sub
fehler:
MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz
End Sub