Info Box solange geprüft wird
26.01.2020 17:14:17
sigrid
ich habe folgendes Makro, funktioniert einwandfrei.
Dim fs As Object
Dim testdriveF As String
testdriveF = "\\ww\f\"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.DriveExists(testdriveF) Then
MsgBox "Netzlaufwerk > " & testdriveF & " existiert."
Else
MsgBox "Drive >" & testdriveF & "< existiert nicht."
End If
Ich möchte gern, solange überprüft wird ob das Laufwerk vorhanden ist,ein Info MSGBOX kommt
damit der Anwender sieht das die Prüfung läuft, weil man sonst denkt das ist was defekt.
Geht sowas ?
mfg sigrid