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