exécution avec shell Urgent SVP

Question

Option Explicit
Voici le code que j'utilise et qui fonctionne sur la machine locale.

Ce code fait partie d'un fichier setup.exe qui démarre suite à un autorun sur un CD.

Cependant, à l'ouverture du programme, suite à l'insertion du CD, il y a erreur d'exécution????

Public chemin As String
Const PROG As String _
 = "c:windowsexplorer.exe "
Public GChemin As String

Private Sub CmdLisezMoi_Click()
chemin = App.Path
If Right(chemin, 1) <> "" Then
    chemin = chemin & ""
    chemin = chemin & "Lisezmoi.txt"
    GChemin = PROG & chemin
End If
Call Shell(GChemin, vbMaximizedFocus)
End Sub

VB_MAN · Answer

Ton code est correct y'a juste une petite erreur, voici ton code corriger :

Public chemin As String
Const PROG As String _
= "c:windowsexplorer.exe "
Public GChemin As String

Private Sub CmdLisezMoi_Click()

chemin = App.Path
If Right(chemin, 1) <> "" Then
    chemin = chemin & ""
End If

chemin = chemin & "Lisezmoi.txt"
GChemin = PROG & chemin

 Call Shell(GChemin, vbMaximizedFocus)

End Sub

NitRic28@Hotmail.com

VB_MAN

Exécution avec shell Urgent SVP

1 réponse

Discussions similaires