ich würde gerne beim Start eines Makros via VBA prüfen lassen, ob auf dem Rechner ein Laufwerk mit dem Laufwerksbuchstaben 'Z' vorhanden ist. Das Ergebnis soll in eine Variable gespeichert werden.
Geht das ?
Danke für Eure Hilfe
Fraubi
Sub Aufruf()
MsgBox fncFolderExists("d:")
End Sub
Function fncFolderExists(sFolder As String) As Boolean
Dim oFs As Object
Set oFs = CreateObject("Scripting.FileSystemObject")
fncFolderExists = oFs.FolderExists(sFolder)
End Function
Sub Aufruf()
Dim blnExist As Boolean
blnExist = fncFolderExists("z:")
If blnExist Then
MsgBox "Das Laufwerk wurde gefunden!"
Else
MsgBox "Das Laufwerk wurde nicht gefunden!"
End If
End Sub
Function fncFolderExists(sFolder As String) As Boolean
Dim oFs As Object
Set oFs = CreateObject("Scripting.FileSystemObject")
fncFolderExists = oFs.FolderExists(sFolder)
End Function
gruss hans
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen