Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
636to640
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
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenträgername

Datenträgername
17.07.2005 17:22:54
Guido
Hallo zusammen,
kann mir einer sagen, wie man den Namen eines Datenträgers (CD, Festplatte) auslesen kann?
Besten Dank im voraus.
Guido

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenträgername
17.07.2005 17:28:12
Manfred
hi,
von Nepumuk:

Sub ShowDriveList()
Dim FsyObjekt As Object, DriveObject As Object, DrvObject As Object, Text As String, Namen
On Error Resume Next
Set FsyObjekt = CreateObject("Scripting.FileSystemObject")
Set DrvObject = FsyObjekt.Drives
For Each DriveObject In DrvObject
Text = Text & DriveObject.DriveLetter & " - "
If DriveObject.DriveType = 3 Then
Namen = DriveObject.ShareName
Else
Namen = DriveObject.VolumeName
End If
Text = Text & Namen & vbCrLf
Next
MsgBox Text
End Sub

MfG
Manfred
AW: Datenträgername
17.07.2005 17:31:11
Guido
Hallo Manfred,
besten Dank für die prompte Hilfe.
MfG
Guido
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige