Gruppe
Datei
Problem
Die zur Verfügung stehenden Laufwerke (ohne CD-ROM) sollen in einer InputBox zur Auswahl angegeben werden.
StandardModule: basMain
Sub LaufwerkAuswahl()
Dim iCounter As Integer
Dim sDrive As String
On Error Resume Next
For iCounter = 97 To 122
ChDrive Chr(iCounter)
If Err > 0 Then
Err.Clear
Else
sDrive = sDrive & Chr(iCounter) & ","
End If
Next iCounter
On Error GoTo 0
sDrive = Left(sDrive, Len(sDrive) - 1)
sDrive = InputBox( _
prompt:="Die Laufwerke: " & sDrive, _
Title:="Bitte ein Laufwerk auswählen")
End Sub