[VB6]Error 76: path not found

**riesseg** · 29/05/2006, 17h16

Alors petit bug sur mon appli que j'aimerai bien regler.

Mon appli principale a une option de sauvegarde.
Cette option de sauvegarde fait appelle a un Sauv.exe que j'appelle par shell.

Le pb, est le suivant:

Si je ne lance pas Sauv.exe avant de lancer mon appli, bin quand j'essaye de la lancer depuis l'appli il me met un message d'erreur.

Mais une fois que je l'ai lancer en solo, bin il ne me fait plus l'erreur...
Je ne comprends pas pourquoi...

Un probleme de rafraichissement de dossier ??

**zazaraignée** · 29/05/2006, 17h32

Explique la différence entre sauvegarde.exe et Sauv.exe

**riesseg** · 29/05/2006, 17h38

Youps...

Nop, c,est le meme ^^
Je corrige

**riesseg** · 29/05/2006, 17h54

Si ca peut aider, j'appelle comme ca.

Code :

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

Attend = Shell(App.Path & "\Sauv.exe", vbNormalFocus)

**jmfmarques** · 29/05/2006, 18h09

Ton sauv.exe se lance-t-il seul ou faut-il en plus cliquer quelque part dessus ?
Si se lance seul : une petite pause (avec la fonction timer)
si besoin d'un clic : utilisation d'un sendkeys

**riesseg** · 29/05/2006, 18h43

bin le Sauv.exe se lance seul.
Il donne sur une fenetre avec choix de repertoire de sauvegarde...
Ou apres, pour effectivement sauvegarder, faut cliquer ^^
Mais de base non

Tu dis un Timer ?
Ca va changer quoi ? Oo

**jmfmarques** · 29/05/2006, 18h49

Non : pas un contrôle Timer mais la fonction timer !
du genre :

Code :

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

1
2
3
4
5
6
 
dim depart as integer
depart = timer
while timer < depart + 10 'attendra 10 secondes dans cette boucle
  doevents 'tout en donnant la main au système
wend

**riesseg** · 29/05/2006, 18h58

j'avais bin compris pas un vrai timer ^^

mon code ressemble a ca pour l'instant:

Code :

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

1
2
3
 
        Attend = Shell(App.Path & "\Sauv.exe", vbNormalFocus) 'retourne taskID
        DoEvents

je fais donc:

Code :

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

1
2
3
4
5
6
7
8
 
dim depart as integer
depart = timer
while timer < depart + 10 'attendra 10 secondes dans cette boucle
  doevents 'tout en donnant la main au système
wend
        Attend = Shell(App.Path & "\Sauv.exe", vbNormalFocus) 'retourne taskID
        DoEvents

???

Mais ca va changer quoi exacrement...
Il va juste mettre du temps a aller lancer mon Appli... et pour ca, il va la trouver ?
Et un sleep (300) ca marche ?

**jmfmarques** · 29/05/2006, 19h19

Je ne sais pas si tu as un sleep (pas sous vb5)
Je préfère une boucle avec le doevents, car je ne sais pas ce que fais ton appli au départ et je ne peux que penser que le système a besoin d'avoir la main...
Cà ne coute pas cher, d'essayer... juste pour voir...
Maintenant : es-tu sur du chemin de ton appli sauv.exe, quand-même ?

Autre chose : lancer d'abord sauve.exe et ensuite seulement la boucle d'attente, pas le contraire !

**riesseg** · 29/05/2006, 19h41

Ok, boucle apres mon Shell...
Apres le doevents ?

sinon, tite correction:

Code :

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

1
2
3
4
5
Dim depart As Double
        depart = Timer
        While Timer < depart + 2 'attendra 1 secondes dans cette boucle
          DoEvents 'tout en donnant la main au système
        Wend

because Timer peut etre un chiffre a virgule

**jmfmarques** · 29/05/2006, 19h45

si tu veux... mais integer va très bien pour compter des secondes entières

et depart + 2 attendra 2 secondes (pas une ...)
mets-en une bonne dizaine, va, pour un 1er essai (mange pas de pain... surtout qu'une sauvegarde est une sauvegarde... et qu'il n'est nul besoin de la faire démarrer illico presto...)

**riesseg** · 29/05/2006, 19h49

nan marche pas integer.

Il ma fait un beau stock overflow en essayant de mettre je crois 1424,18 dedans depart ^^

Pis effectivement, me suis tromper dans ls secondes ^^

**riesseg** · 29/05/2006, 19h58

Code :

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

1
2
3
4
5
6
7
8
 
        Attend = Shell(App.Path & "\Sauv.exe", vbNormalFocus) 'retourne taskID
        'Unload mdiMain
        Dim depart As Double
        depart = Timer
        While Timer < depart + 2 'attendra 1 secondes dans cette boucle
          DoEvents 'tout en donnant la main au système
        Wend

ne marche pas, j'ai toujours mon erreur :'(

**riesseg** · 29/05/2006, 20h19

est ce qu,avoir une redaction de type:

Code :

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

Dir1.Path = CurDir & "\Sauvegarde"

donc avec CurDir peut entrainer des pb sous vb6 ?

Edit:
J,ai aussi essayé ainsi:

Code :

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

1
2
3
4
5
6
7
8
9
 
        Refresh
        Attend = Shell(App.Path & "\Sauv.exe", vbNormalFocus) 'retourne taskID
        'Unload mdiMain
        Dim depart As Double
        depart = Timer
        While Timer < depart + 2 'attendra 1 secondes dans cette boucle
          DoEvents 'tout en donnant la main au système
        Wend

Mais ne marche pas.
Ca m'enerve, puisque si je lance l'execution ca marche tres bien...
Ca plante que sur un nouvel install...

**ThierryAIM** · 29/05/2006, 20h34

Essaie ShellExecute au lieu de Shell, a tout hasard (attention à la syntaxe, un peu différente de shell)

**jmfmarques** · 29/05/2006, 20h43

J'ai comme l'impression, je ne sais pas pourquoi (trop fatigué), que le problème est dans le chemin de sauv.exe !
peux-tu :
faire un msgbox de app.path & "\sauv.exe" et nous le communiquer, avec le chemin complet exact (dans l'explorateur) de sauv.exe ?
peux-tu nous confirmer, enfin, que sauv.exe est bien un programme tournant sous windows (pas DOS) ?

**riesseg** · 29/05/2006, 20h52

Code :

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

1
2
Attend = ShellExecute(hWnd, vbNullString, App.Path & "\Sauv.exe", _
         "", vbNullString, 1)

ne marche pas.
Je te regarde avec les Msgbox

Edit:
Avec VB (F5) pas de prob, ca correspond parfaitement.
Je vais faire un nouvel install et le tester, ca va prendre qques minutes.

**riesseg** · 29/05/2006, 21h03

bon dans le Exe, il lance meme pô mes MsgBox...
Cependant, je vous ai fait un printscreen:

voila...
pis le debut de Sauv.exe (enfin... le code source quoi )

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
21
22
23
24
25
Private Sub Form_Load()
MsgBox App.Path
 
Label16.Caption = 0 & "%"
ProgressBar1.Visible = True
Refresh
Sleep 100
 
Dir1.Enabled = True
Command1.Enabled = True
Command2.Enabled = True
Drive1.Enabled = True
Check1.Enabled = True
 
Dir1.Path = CurDir & "\Sauvegarde"
Filebox.Path = CurDir
File1.Path = CurDir
File2.Path = CurDir
File3.Path = CurDir & "\PicIcons"
File4.Path = CurDir & "\Cartes"
File6.Path = CurDir & "\AccFiles"
File7.Path = CurDir & "\Alarmes"
File8.Path = CurDir & "\Arcdirs"
File9.Path = CurDir & "\XtraDirs"
End Sub