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