Código
el problema esque no es capaz de reconocer el comando /q solo, ¿alguna idea?
Option Explicit Dim a As String, z Dim i As Integer Private Sub Command1_Click() a = Text1 z = 0 If z = 0 Then i = InStr(a, "clean /s") If i = 0 Then 'no ta Else i = InStr(a, "/q") If i = 0 Then MsgBox "Clean /S", vbInformation, "info" Else MsgBox "Clean /S /Q", vbInformation, "info" End If End If End If End Sub
saludoss