Hallo Leute, ich hoffe das ich Euch nur mit einer Kleingkeit belästige. ( bin ein grausamer schlechter Anfänger )

Folgendes, ich möchte mit einem kleinen Programm, verschieden Befehle starten, also zb. möchte ich ein Laufwerks buchstabe anglicken und dann mit dem Befehl CHKDSK verbinden. Ich bin bereits soweit gekommen und hänge jetzt. Bevor ich Hopfweh bekomme dachte ich das ich mich mal bei Euch nachfrage. Mein Code sieht folgendermassen aus. (Problem:Der cmd Befehl wird nur kurz gestartet und bei wechseln des Laufwerks gibt`s eine Fehlermeldung /Debug bei der DirList Box)





Private Sub Command1_Click()
On Error GoTo Err_Command1_Click


Dim stAppName As String


stAppName = ("C:\WINDOWS\system32\chkdsk " & "Drive1.Drive")
Call Shell(stAppName, 1)

Exit_Command1_Click:
Exit Sub

Err_Command1_Click:
MsgBox ERR.Description
Resume Exit_Command1_Click

End Sub



Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub