Executer un fichier avec un parametre en plus!Résolu

Question

Bonjour à tous,

J'ai trouver un code sur le site (je ne sais pu de qui) et il excute bien mon fichier, mais j'aurais besoin de lui passer un parametre (ex: allo.exe /S).

Est-ce que quelqu'un pourrais me dire comment faire pour que cela fonctionne correctement. Merci!

code:
Form : 
 Private Sub Form_Load()
    ExecCmd App.Path & "\Wallpapers.exe /s" Marche pas 
    MsgBox "Programme fermé"
    End
End Sub

Module :Public Function ExecCmd(ByRef vsCmdLine As String, Optional ByRef vsParameters As String, Optional ByRef vsCurrentDirectory As String vbNullString, Optional ByVal vnShowCmd As Long SW_SHOW, Optional ByVal vnTimeOut As Long = 200) As Long
Dim lpShellExInfo As SHELLEXECUTEINFOA
    With lpShellExInfo
        .cbSize = Len(lpShellExInfo)
        .lpDirectory = vsCurrentDirectory
        .lpVerb = "open"
        .lpFile = vsCmdLine
        .lpParameters = vsParameters
        .nShow = vnShowCmd
        .fMask = SEE_MASK_DOENVSUBST Or SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_IDLIST
    End With


    If ShellExecuteEx(lpShellExInfo) Then
        Do While WaitForSingleObject(lpShellExInfo.hProcess, vnTimeOut) = WAIT_TIMEOUT
            DoEvents
        Loop


        GetExitCodeProcess lpShellExInfo.hProcess, ExecCmd
        CloseHandle lpShellExInfo.hProcess
    Else
        ExecCmd = vbError
    End If
End Function

Merci à tous!!
DraaFil

cs_Chatbour · Accepted Answer

Salut,

j'ai pas testé le code, mais je vous invite à essayer
en changeant la ligne :


 ExecCmd App.Path & "\Wallpapers.exe /s" Marche pas 




par la ligne :




ExecCmd App.Path & "\Wallpapers.exe", "/s"
 'pourvu que ça marche ; )

Executer un fichier avec un parametre en plus!

1 réponse

Votre réponse

Discussions similaires