Discussion :

[nico60]

Bonjour le forum ,

Je viens vers vous car j'ai un soucis que je n'arrive pas à régler .

lorsque j'exécute mon Form depuis l'application VB 2010 express ça marche très bien , par contre lorsque je génère le fichier en . exe ça ne marche plus .

J'ai ce lien en exemple pour accéder à mes différents fichier (N:\Dep_NAT\MADE\MAJ_cle_USB\MAJ_Cle_USB\MAJ_Cle_USB\...\Doc\Config\Train1\cstSta.xml" . (les 3 petits point remplace le nom de fichier que je peut pas cité sur le site)

que j'ai saisie comme ceci : TextBox3.Text = Application.StartupPath & "\" & TextBox2.Text & "\Config\Train" & TextBox1.Text & "\cstSta.xml" . (TextBox2.Text est le nom du fichier "..." que l'on sélectionne)

Mais lorsque je déplace le fichier complet dans un autre disque dur ou que je le Génère en .exe ça ne marche plus .

Est ce que quelqu'un à une idée sur mon soucis ?

Par avance merci

Cdlt nicolas .

[Phil Rob]

Bonjour,

Il semble que le chemine d'accès au fichier ne soit pas correct.
D'abord, il y a une erreur dans la phrase que tu soumets, probablement une faute de frappe, mais on ne sait jamais :
"... TextBox3.Text = Application.StartupPath & "\" & TextBox2.Text & "\Config\Train" & TextBox1.Text & "\cstSta.xml" ==> il manque un \ après Train

A part cela, il faut vérifier les données des TextBox 1 et 2 pour voir si elle désigne bien le fichier que tu souhaites là où il se trouve réellement.
Peut-être une lecture "minutieuse" du TextBox3 après l'exécution de cette ligne ..., on a vite fait d'ignorer une erreur lors d'une relecture (en tout cas, ça m'arrive).

Ne peux-tu placer un fichier factice dont tu pourrais montrer le nom et nous envoyer ensuite la chaîne complète ?

[nico60]

Bonjour Phil Rob ,

Tout d'abord un grand merci pour le temps que tu prend à m'aider .

Ensuite concernant l'erreur de frappe en fait il ni en à pas puisque les dossiers sont par exemple Train1 , Train2 etc ... (mais il est vrai que je ne l'avait pas précisé dans mon message).

Ce qui m'étonne c'est que l'orsque j'exécute mon fichier depuis l'appli VB2010 ça fonctionne niquel .

et lorsque le génère sur le bureau il me dit "impossible de trouver une partie du chemin d'accès C:\users\nicol\OneDrive\Bureau\...\Address\address7\addres.xml"

J'ai l'impression qu'il ne prend pas en compte mon fichier.exe !!

[Phil Rob]

Attention, ce n'est pas parce que tu places l'EXE sur le bureau que le fichier addres.XML s'y trouve aussi ...

Peux-tu envoyer le code qui doit utilise ce chemin d'accès ?

[nico60]

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
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
 
        Button4.BackColor = Color.FromArgb(0, 255, 0)
 
        Dim M As String
        M = ComboBox1.Text & "\cstSta.xml"
        TextBox7.Text = M
 
        TextBox3.Text = Application.StartupPath & "\" & TextBox2.Text & "\Config\Train" & TextBox1.Text & "\cstSta.xml"
 
        Dim N As String
        N = ComboBox1.Text & "\address.xml"
        TextBox8.Text = N
 
        TextBox6.Text = Application.StartupPath & "\" & TextBox2.Text & "\Address\address" & SelTb3.Text & "\address.xml"
 
    End Sub

Il est pas très propre mais comme je débute ...

[nico60]

Pour expliquer un peu mon appli :

Combobox1 => je sélectionne la Clé USB ou va être transféré les 2 fichiers .
TextBox1 => la sélection du N° du train

SelTb3 => sélection du fichier "address.xml"

Button4 qui récupère tout mes sélection prétendante .

TextBox3 => qui récapitule l'adresse du fichier Train à récupérer
TextBox7 => la destination .

TextBox6 => qui récapitule la configuration du fichier "Address" à récupérer
TextBox8 => La destination

Button1 qui transfert les 2 fichiers "destination" dans la clé USB .

[Phil Rob]

Je te suggère de placer la ligne MessageBox.Show(Application.StartupPath) en première ligne de la procédure Button4_Click et d'exécuter en mode développement et aussi à partir de l'EXE.
Tu devrais constater une différence qui pourrait te mettre sur la voie ...

[Phil Rob]

Ok pour l'explication.
Toutefois, le problème est bine une question de chemin puisque tu reçois le message "... impossible de trouver une partie du chemin d'accès ...".
Que donne le test avec la MessageBox ?

L'utilisation d'un OpenFileDialogBox ne te conviendrait-l pas ?
Il permettrait la recherche du fichier à ouvrir plutôt que de programmer le chemin dans le programme.

[nico60]

Ce que j'aimerais c'est que tout soit dans l'appli en fait

L'interface et les fichiers

[nico60]

le test avec la MessageBox donne la même chose ,

Fonctionne très bien depuis VB

Mais même soucis dès que je le génère en .exe

[nico60]

je vient de voir "Application.executablepath" sur le web , quel est la différence avec "Application.StartupPath" ?

[Phil Rob]

le test avec la MessageBox donne la même chose ,

Fonctionne très bien depuis VB

Mais même soucis dès que je le génère en .exe

Oui, mais que dit le message affiché par la MessageBox dans un cas et dans l'autre ?

je vient de voir "Application.executablepath" sur le web , quel est la différence avec "Application.StartupPath" ?

StartUpPath donne le chemin jusque et y compris le dernier nom de dossier.

ExecutablePath donne aussi le chemin jusque et y compris le dernier nom de dossier, et y ajoute le nom de l'exécutable

Exemples :

StartUpPath ==> D:\Tmp\VbTest\VbTest\bin\Debug
ExecutablePath ==> D:\Tmp\VbTest\VbTest\bin\Debug\VBTest.exe

Ce que j'aimerais c'est que tout soit dans l'appli en fait

L'interface et les fichiers

Dans ce cas, il te faut prévoir un dossier contenant l'EXE et le fichier et, lors de l'installation de l'EXE quelque part, c'est le dossier complet qu'il faut copier.

Si j'ai un peu de temps dans la soirée, je ferai un projet test dans ce sens ...., mais je promets pas, j'ai des trucs à faire ...

[nico60]

ça me marque le lien suivant

[Phil Rob]

ça me marque le lien suivant

C'est donc l'endroit où se trouve l'EXE et c'est là qu'il doit trouver ton fichier XML.

[nico60]

J'ai inséré comme tu la proposé les fichiers avec le .exe dans le même dossier et maintenant ça marche niquel

[Phil Rob]

J'ai inséré comme tu la proposé les fichiers avec le .exe dans le même dossier et maintenant ça marche niquel

Tout est OK alors ?

Bonne soirée,

[Phil Rob]

Voilà, j'ai fait le test tout de suite ...

Voici le code que j'exécute :

Code :

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

1
2
3
4
5
6
7
8
9
 
        Dim FichierATrouver As String
        FichierATrouver = Application.StartupPath & "\" & "UnFichierTxtQuiNeSertARien.txt"
 
        If System.IO.File.Exists(FichierATrouver) Then
            MessageBox.Show("Fichier trouvé")
        Else
            MessageBox.Show("Fichier non trouvé")
        End If

Voici l'illustration en cours de développement :



Voici l'illustration en exécution directe de l'EXE :



L'EXE et le fichier qu'il doit trouver se trouvent dans le même dossier. Le fichier à traiter par l'EXE est trouvé dans les 2 cas.

J'espère que ceci t'inspirera ...