Private Sub Command1_Click ()
Dim sofen As String
Sofen=Drive1. Drive + "/F
""Shell" CMD. Exe/k & amp; CHKDSK & amp; Sofen
End Sub
Always make a mistake, beginners ask for advice
CodePudding user response:
Private Sub Command1_Click ()
Dim sofen As String
Sofen=Drive1. Drive + "/F
"The Shell "CMD. Exe CHKDSK/k" & amp; Sofen
End Sub
CodePudding user response:
The building Lord DOS parameters into the vb variables