[VB6]Error 76: path not found

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 ??

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

Youps...

Nop, c,est le meme ^^
Je corrige

Si ca peut aider, j'appelle comme ca.

Code:

---

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

---

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;)

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

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

Code:

---

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

---

j'avais bin compris pas un vrai timer ^^

mon code ressemble a ca pour l'instant:

Code:

---

1 2 3

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

---

je fais donc:

Code:

---

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 ?

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 !

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

sinon, tite correction:

Code:

---

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

si tu veux... mais integer va très bien pour compter des secondes entières :lol: 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...)

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 ^^

Code:

---

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 :'(

est ce qu,avoir une redaction de type:

Code:

---

Dir1.Path = CurDir & "\Sauvegarde"

---

donc avec CurDir peut entrainer des pb sous vb6 ?

Edit:
J,ai aussi essayé ainsi:

Code:

---

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... :cry:

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

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) ?

Code:

---

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.

bon dans le Exe, il lance meme pô mes MsgBox...
Cependant, je vous ai fait un printscreen:
http://img338.imageshack.us/img338/1006/error768tn.png

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

Code:

---

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

---

argggg !!!

est-ce que App.path n'aurait pas des espaces, par hasard ? ;)

J'ai gagné !!!

essaie

ret = Shell ("" & App.Path & "" & "\sauv.exe")