Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Prüfung, ob ein Laufwerk auf dem Rechner existiert

Gruppe

Wsh

Problem

Es soll geprüft werden, ob dass in Zelle B1 genannte Laufwerk auf dem Rechner existiert. Hierzu muß in Der Entwicklungsumgebung ein Verweis zum Windows Scripting Host geschaltet sein.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub CheckDriveExists()
   Dim FSobj As Object
   Set FSobj = CreateObject("Scripting.FilesystemObject")
   If FSobj.DriveExists(Range("B1").Value) Then
      MsgBox "Existiert!"
   Else
      MsgBox "Existiert nicht!"
   End If
   Set FSobj = Nothing
End Sub