Ersatz für With Application.FileSearch in Excel 2010
Hallo,
habe in einer Excel Mappe folgendes VBA Script:
Private Function isFileAvailable(filename As String) As Boolean
With Application.FileSearch
.NewSearch
.filename = Right(filename, Len(filename) - InStrRev(filename, "\"))
.LookIn = Left(filename, InStrRev(filename, "\"))
isFileAvailable = .Execute() > 0
End With
End Function
In Excel 2010 funktioniert leider "With Application.FileSearch" nicht mehr.
Kennt jemand eine Alternative?
Gruß
Yvonne
habe in einer Excel Mappe folgendes VBA Script:
Private Function isFileAvailable(filename As String) As Boolean
With Application.FileSearch
.NewSearch
.filename = Right(filename, Len(filename) - InStrRev(filename, "\"))
.LookIn = Left(filename, InStrRev(filename, "\"))
isFileAvailable = .Execute() > 0
End With
End Function
In Excel 2010 funktioniert leider "With Application.FileSearch" nicht mehr.
Kennt jemand eine Alternative?
Gruß
Yvonne
Please also mark the comments that contributed to the solution of the article
Content-Key: 189479
Url: https://administrator.de/contentid/189479
Printed on: April 29, 2024 at 04:04 o'clock
2 Comments
Latest comment