Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 18:09:41
UserForm als PDF Speichern [Bild Lösung]
07.05.2024 16:36:49
Excel Arbeitszeit berechnung
07.05.2024 16:27:17
Definition und Nutzung von globalen Variablen
07.05.2024 14:51:38
Endlos-Journal
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1896to1900
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1896to1900
1896to1900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Check ob CD Brenner vorhanden

Check ob CD Brenner vorhanden
09.09.2022 10:30:28
Andy
Hallo alle zusammen,
gibt es eine Möglichkeit zu prüfen, ob ein externer Brenner angeschlossen ist? Ich möchte nicht nach einem LW Buchstaben prüfen, da das Programm auf verschiedenen Rechnern mit unterschiedlichen Konfigurationen verwendet wird.
Es soll mir am Ende sagen, ob tatsächlich ein Brenner angeschlossen ist.
LG und Dank vorab für Eure Hilfe.
Andy

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Check ob CD Brenner vorhanden
09.09.2022 10:33:03
Fennek
Hallo,
https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/drivetype-property 

Sub ShowDriveType(drvpath)
Dim fs, d, s, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(drvpath)
Select Case d.DriveType
Case 0: t = "Unknown"
Case 1: t = "Removable"
Case 2: t = "Fixed"
Case 3: t = "Network"
Case 4: t = "CD-ROM"
Case 5: t = "RAM Disk"
End Select
s = "Drive " & d.DriveLetter & ": - " & t
MsgBox s
End Sub
mfg
Anzeige
AW: Check ob CD Brenner vorhanden
09.09.2022 11:37:28
Andy
Vielen Dank für deine Nachricht,
dieses Sub überprüft einzelne Laufwerksbuchstaben, ob ein Laufwerk oder CD-ROM. Nur leider weiß ich vorher ja nicht, welches Laufwerk dem Brenner zugewiesen wurde und ob überhaupt einer vorhanden ist.
AW: Check ob CD Brenner vorhanden
09.09.2022 11:47:05
peterk
Hallo

Sub ZeigeDrives()
Dim fso As Object
Dim d As Object
Dim ds As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ds = fso.Drives
For Each d In ds
Select Case d.DriveType
Case 0: t = "Unknown"
Case 1: t = "Removable"
Case 2: t = "Fixed"
Case 3: t = "Network"
Case 4: t = "CD-ROM"
Case 5: t = "RAM Disk"
End Select
s = s & "Drive " & d.DriveLetter & ": - " & t & vbCrLf
Next
MsgBox s
End Sub
Peter
Anzeige
AW: Check ob CD Brenner vorhanden
09.09.2022 20:29:36
Andy
Perfekt. Das hat mich weitergebracht. Vielen Dank

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige