Problème avec "C:\WINDOWS\explorer "

Bonjour,
Je viens de réaliser une application au cours de mon stage, et je dois l'installer dans l'ordinateur de mon encadrant, c'est la raison pour laquelle j'ai généré le Setup afin de regrouper tous les fichiers dll dont j'aurais besoin. J'ai regroupé le tout dans un dossier avec l'exécutable. Par la suite, j'ai compressé ce dossier avec winrar "SFX" et j'ai le décompressé dans l'ordi de mon encadrant.
Mon problème s'interpose quand je lance l'application à partir d'un ordinateur ds le réseau, quand je clique sur un bouton afin d'ouvrir un répertoire nommé data : il affiche un message d'erreur...
Apparemment, la cause du problème est la commande shell car c'est obligatoire que shell doit être suivit par "C:\WINDOWS\explorer "
Or ceci est innaccessible à partir tous les ordinateurs dans le réseau sauf celui où j'ai décompressé le fichier qui contient tout ce qui concerne mon application.
C'est très urgent, aidez moi s'il vous plaît, je n'ai qu'une semaine avant la fin de mon stage et je dois terminer ma tâche. :cry::cry::cry::cry::cry::cry:
Merci d'avance

Ton problème est pas très clair... Le setup que tu as généré est un programme VB ?

J'ai souvant eu des problèmes pour ouvrir des fichiers quand l'execute le programme depuis le réseau surtout a la definition des chemins. Entre des chemins de la forme Drive:\Dossier\Fichier et des chemins reseaux comme \\Dossier\Fichier beaucoup de choses peuvent changer...

Pourrez tu nous mettre le code?

Citation:

---

Shell "C:\WINDOWS\explorer "

---

C:\WINDOWS\ n'est pas forcement obligatoire, si le chemin n'est pas indiqué, Windows va utiliser l'exe Explorer se trouvant sur l'ordinateur ou et lancé le shell.
Pour ce qui est du dossier et/ou fichier que devrat traiter Explorer, si il est dans le dossier de ton programme, utilise App.Path.
Donc essais de cette façon,

Code:

---

Shell "explorer " & App.Path & "Data"

---

Motif de l'edit:
Dung-Tri a apporté une remarque pertinante, donc cela devient

Code:

---

1 2 3 4 5

If Right(App.Path, 1) = "\" Then Shell "explorer " & App.Path & "Data" Else Shell "explorer " & App.Path & "\" & "Data" End If

---

Ouais avec le "\", sauf si tu travail à la racine; ce qui m'etonnerai

Code:

---

1 2	Shell "explorer " & App.Path & "Data"

---