VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Prüfung, ob ein Laufwerk auf dem Rechner existiert

Gruppe

Extern

Bereich

Wsh

Thema

Prüfung, ob ein Laufwerk auf dem Rechner existiert

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

    


Beiträge aus dem Excel-Forum zu den Themen Extern und Wsh