Problème de App.Path vb6

Salut à tous, encore une fois j'ai des soucis avec mon appli
Voila avant que je mette l'app.path, cela marchait bien, mais la je viens d'essayer app.path (car cette appli est destinée à un autre utilisateur) mais cela ne fonctionne pas, pourtant la syntaxe est correcte (enfin je crois)....

Private Sub Btnval_Click()
adrca = App.Path & "\Gestion stock\Catégories\Réserve Cadeaux\" & Textnmpdt & ".text"
adrbo = App.Path & "\Gestion stock\Catégories\Réserve Boissons\" & Textnmpdt & ".text"
adrhr = App.Path & "\Gestion stock\Catégories\Hors Réserve\" & Textnmpdt & ".text"
If Textnmpdt.Text = "" Then
    MsgBox "Veuillez donner un nom au produit"
    Else
    If Textpxpdt.Text = "" Then
        MsgBox "Veuillez donner un prix au produit"
        Else
        Select Case Listcat.Text
            Case "Réserve Cadeaux"
                Open adrca For Output As #1
                Print #1, Textnmpdt.Text & "|" & Textpxpdt.Text
                Close #1
                MsgBox ("Produit ajouté")
                Textnmpdt = ""
                Textpxpdt = ""
                Listcat = ""
            Case "Réserve Boissons"
                Open adrbo For Output As #1
                Print #1, Textnmpdt.Text & "|" & Textpxpdt.Text
                Close #1
                MsgBox ("Produit ajouté")
                Textnmpdt = ""
                Textpxpdt = ""
                Listcat = ""
            Case "Hors Réserve"
                Open adrhr For Output As #1
                Print #1, Textnmpdt.Text & "|" & Textpxpdt.Text
                Close #1
                MsgBox ("Produit ajouté")
                Textnmpdt = ""
                Textpxpdt = ""
                Listcat = ""
            Case Else: MsgBox "Veuillez sélectionner une catégorie"
        End Select
    End If
End If
End Sub

les "drca, adrbo et adrhr" sont déclarées dans option explicit, lorsque je lance donc l'appli et lorsque cela doit enregistrer le fichier, cela me marque "path not found"
S'il vous plaît aidez moi!
Merci

Salut,
Je suppose que l'erreur survient lorsque tu essaies Open?

Mais un Msgbox contenant le chemin entier juste avant l'instruction Open et regarde si à ce moment le fichier existe bien sur le disque.



@+: Ju£i€n
Pensez: Réponse acceptée

Salut,

j'ai pas lu le code mais si App.Path est sensé etre égale à  C:\, je crois que ca génére un souci.

Le mieux est de mettre le chemin dans un textbox et de copier ensuite le contenu dans l'explorateur Windows et de voir si ca correspond bien a ce que tu cherches.

Salut,

Chemin, non touvé....Est-ce sur l'autre pc, le répertoires ou tu vas chercher tes fichiers existent bien ? Déjà à vérifier je pense de ce côté là...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

idem, je dirai que tes repertoires n'existent pas.... utilise MkDir : MkDir App.Path & "\Gestion stock\Catégories\Réserve Cadeaux\" MkDir App.Path & "\Gestion stock\Catégories\Réserve Boissons\" MkDir App.Path & "\Gestion stock\Catégories\Hors Réserve\" en déclarant : Private Declare Function MkDir Lib "imagehlp.dll" Alias "MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long

Salut si app.path = "C:\"

fait un msgbox comme l'a dit jrivet pour voir le chemin.

c'est:
adrca = App.Path & "Gestion stock\Catégories\Réserve Cadeaux\" & Textnmpdt & ".text"
et non:
adrca = App.Path & "\Gestion stock\Catégories\Réserve Cadeaux\" & Textnmpdt & ".text"



 Drikce 06 (ForumOfficeEtVBA)
Si la réponse vous convient: Réponse acceptée.

nb, je sais que VB propose une fonction MkDir, mais elle a le facheux inconvénient de ne créer que le dernier repertoire (et non l'arborescence) dans ton cas, par exemple, 'Reserve Cadeaux' ne serait créé que si 'Gestion stock\Catégories\' existe sur ton disque...

Bonjour,

J'attire ton attention que si tu es dans l'interface vb tout dépend de comment tu as ouvert ton code
si tu a lancer vb puis ouvert ton projet le app.path est celui du programme vb, soit c:\program ...

si tu as double_clické sur ton vbp, alors c'est le dossier du projet,

maintenant en mode compilé, c'est le "Démarrer dans" des propriétés du raccourci.

Etienne

NON, le App.Path est le repertoire de l'Exe en mode compilé, ou du .VBP en mode VB quelle que soit là facon dont tu a lancé ton projet !