Laufwerk Informationen

 

Home
Nach oben

Last Update 20.07.2004

Copyright  2003
Ramses (C)

 

Laufwerke anzeigen

Filesystem abfragen

Laufwerke anzeigen

Um mit dem File-System-Object z.B. alle Laufwerke ihres Rechners anzuzeigen, können Sie folgenden Code verwenden

Sub Show_all_Drives()
'(c) ramses
Dim myFSO As Object, myDrv As Object, drvCount, drvStr As String, vName As String, drvTyp As String
Set myFSO = CreateObject("Scripting.FileSystemObject")
Set drvCount = myFSO.Drives
'Fehlerbehandlung einschalten für Laufwerke welche nicht erkannt werden können oder
'vor dem User versteckt wurden

On Error Resume Next
'String definieren
drvStr = ""
'Jedes erkannte Laufwerk identifizieren
For Each myDrv In drvCount
        'Laufwerkstyp erkennen
        Select Case myDrv.DriveType
            Case 0: drvTyp = "Unknown"
            Case 1: drvTyp = "Removable"
            Case 2: drvTyp = "Fixed"
            Case 3: drvTyp = "Network"
            Case 4: drvTyp = "CD-ROM"
            Case 5: drvTyp = "RAM Disk"
        End Select
      
 'String erstellen
        drvStr = drvStr & drvTyp & ": " & myDrv.DriveLetter & " - "
        '3 = Netzlaufwerk
        'hier wird der Freigabename je nach Typ abgerufen
        If myDrv.DriveType = 3 Then
            vName = myDrv.ShareName
        Else
            vName = myDrv.VolumeName
        End If
        drvStr = drvStr & vName & vbCrLf
Next
'Ausgabe der Information
MsgBox drvStr
End Sub 

Der Code sollte selbsterklärend sein

 

Zurück


 

Filesystem abfragen

In manchen Fällen kann es hilfreich sein über das verwendete Filesystem Informationen zu haben, z.B. bei Kopiervorgängen die nicht durchgeführt werden können wegen USER-Beschränkungen. Hier kann man sich die Info holen warum es eventuell nicht klappt

 

Sub Give_Filesystem()
    Dim myFSO As Object, myDrv As Object, strFS As String
    Set myFSO = CreateObject("Scripting.FileSystemObject")
    'Laufwerkbuchstabe angeben, oder über InputBox abfragen
    Set myDrv = myFSO.GetDrive("e:")
    strFS = myDrv.FileSystem
    MsgBox strFS
End Sub 

 

Zurück