HERBERS Excel-Forum - die Beispiele

Thema: Prüfung, ob ein Laufwerk auf dem Rechner existiert

Home

Gruppe

Extern

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

'Run' & 'IWshShell3' Fehlermeldung VBA Dateiname externer Datei ändern
Tabellenblatt aus externer Exceldatei kopieren ConboBox mit externe Daten füllen
Wert in externer Datei suchen Aufruf externer Programme
Externe Bezüge auslesen mit VBA Externe Verküpfung anpassen
Pivot mit Externer DB am Limit? Externe Verknüpfungen
Blätter in Externer Arbeitsmappe einblenden externes Verzeichnis ansprechen
Externe Datenquelle via VBA Pivot mit Externer DB UNION funzt nich
Nur externe Bezüge rausnehmen *xlt-Dateien als externe Datenquelle nutzen
Externes Programm öffnen Makro: Bezug auf externes xls-File?
Wert an externes Programm übergeben Externe Excel-Verknüpfungen automatisiert ändern
Verlinkung externer Arbeitsmappen Tabelle in externer Datei löschen
externe Bezüge suchen/ersetzen neue Zeile und externe Bezüge....
Externe Verknüpfung finden externe Bezüge
Summenprodukt + Externe Bezüge Datenbank in externer Datei
Fehler beim Kopieren von externer Tabelle anzahl Blätter externer Excel-Datei
Externe Daten aus Access Externe Daten importieren aus Access
Zellwert als Parameter f. externes Script/Programm Worksheetzugriff auf externe Datei
Dropdown - externe Daten Externe Bezüge
Die Methode 'Run' für das Objekt 'IWshShell3' ist Zeitanzeige auf USF wenn ein externes Progr. läut
Externe Daten (QueryTable) ab 1 nummerieren Schnittstelle extern mit Lampen
Zelleninhalt für externes Programm kopieren Archivieren externer Dateien in Arbeitsblatt
Externer Vergleich externe Verknüpfung per Makro einfügen
Externe Verknüpfungen Externen Text mit Makro einfügen
Abfragekriterium externe Daten verändern Daten aus externer Mappe einfügen
externes Programm ausführen externe Verknüpfungen