Vba, verfügbare Laufwerke ermitteln
17.12.2007 19:34:03
Reinhard
ich möchte wissen welche Laufwerke derzeit verfügbar/durchsuchbar sind, also Diskettenlaufwerke nur
wenn eine Diskette eingelegt ist, CD-Rom Laufwerke nur wenn eine CD drinnen ist.
Derzeit trickse ich mit Fehlerauswertung bei Dir().
Gibt es einen saubereren Weg, FSO,API?
Sub Laufwerke()
Dim L As Byte, Anz As Byte, Dummy As String
For L = 0 To 25
On Error Resume Next
Dummy = Dir(Chr(65 + L) & ":\") ' "" Then 'C-Z
If Err 68 And Err 76 Then 'ggfs. If Err=0
Anz = Anz + 1
ReDim Preserve Lw(Anz)
Lw(Anz) = Chr(65 + L) & ":\"
End If
On Error GoTo 0
Next L
End Sub
Gruß
Reinhard