prob pour la creation d'un progRésolu

Question

Bonjour
please help me
j'ai commencer un prog pour ouvrir plusieurs fichier de setup mais gros problème
1 vu que les fichier exe sont sur un disque amovible le chemin change
2 quand je lance le programme et que sélectionne le/les fichiers a installer il n'y en a qu'un qui se lance
si mes explications ne vous sembles pas claire

Private Sub cmd_exe_Click()
If Check1.Value = 1 Then
    Shell "G:\Pack Logiciels\AUDIO & MP3\CDex 1.51.exe"
If Check2.Value = 1 Then
    Shell "G:\Pack Logiciels\AUDIO & MP3\iTunes 6.0.1.3.exe"
End If
End If
End Sub
je crois que le problème se trouve ici sinon je vois pas

Flachy Joe · Accepted Answer

Si ton prog est lui aussi sur le disque amovible, utilise un chemin relatif avec App.Path :

Par expl
Shell App.path & "/../Bidule/Machin.exe"

Le ".." corespond au repertoire parent.

Si le prog est G:/Prog/Project1.exe
alors ça lance G:/Bidule/Machin.exe

[;)] Flachy Joe [;)]

Flachy Joe · Answer

Par ailleur je pense qu'il vaut mieux ecrire

Private Sub cmd_exe_Click()
  If Check1.Value = 1 Then
      Shell "G:\Pack Logiciels\AUDIO & MP3\CDex 1.51.exe"
  End If
  If Check2.Value = 1 Then
      Shell "G:\Pack Logiciels\AUDIO & MP3\iTunes 6.0.1.3.exe"
  End If
End Sub

A moins que tu ne veuille lancer "iTunes 6.0.1.3.exe" seulement si "Check1" ET "Check2" sont cochés.

[;)] Flachy Joe [;)]

PCPT · Answer

salut,
on ne fait pas un Setup en VB. il ne fonctionnera pas si le client n'a pas la VM (ce qui est plus fréquent qu'il n'y paraît).

cs_kurorin · Answer

merci pour l'info ca marche

cs_kurorin · Answer

j'ai une autre question est il possible d'ouvrir les fichier
.exe en décaler avec un timer ou autre pour qu'ils ne s'ouvrent pas tous en même
temps

Flachy Joe · Answer

pas de prob :

sub Timer1_Timer()
 static n as integer
 dim prg as string
 select case n
 case 0
  prg = "machin.exe"
 case 1
  prg = "truc.exe"
 'etc...
 end select
 shell prg
 n=n+1
end sub

[;)] Flachy Joe [;)]

cs_kurorin · Answer

ca marche pas si j'utilise l'instruction sleep je fais comment
j'ai trouver ca mais j'ai un message d'erreur

Option Explicit
Dim chrono As Long
Private Sub cmd_exe_Click()
If Check1.Value = 1 Then
        chrono = (CLng(txttime.Text) * 60)
        Sleep (chrono)
    Shell App.Path & "/Pack Logiciels/AUDIO & MP3/CDex 1.51.exe"

Prob pour la creation d'un prog

7 réponses

Votre réponse

Discussions similaires