Discussion :

[Barbu15-95]

Impossible de faire exécuter le fichier trans.bat de la commande2.
Je vais directement Selec1.Show

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Const SPI_SCREENSAVERRUNNING = 97
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
 
Private Sub Form_Load()
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, "1", 0)
End Sub
 
Private Sub Command1_Click()
Dim ret As Long
On Error Resume Next
ret = Shell("c:\Program files\YP30H\YP30H.exe", vbNormaldFocus)
End Sub
 
Private Sub Command2_Click()
Dim ret As Long
On Error Resume Next
ret = Shell("c:\trans.bat", vbNormaldFocus)
Selec1.Show
End Sub

Je voir pas l'erreur que j'ai fais.
Le Shell de Command1 fonctionne sans problème.
Merci de votre aide

[ThierryAIM]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ret = Shell ("cmd /c c:\trans.bat")

et à l'avenir,merci de poster dans le bon forum, le VB6 c'est ICI, je ne le redirai pas

[Barbu15-95]

Merci ThierryAIM,
Désolé pour l'erreur de forum.
La réponse m'a permis de voir mon erreur
J'ai résolu mon problème en remplacant cmd par command.com car le programme doit fonctionné sous W98