Problème de App.Path vb6

Résolu
cs_Choucroute62 Messages postés 34 Date d'inscription lundi 2 avril 2007 Statut Membre Dernière intervention 17 janvier 2008 - 24 mai 2007 à 09:01
 mortalino - 25 mai 2007 à 01:31
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

26 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
24 mai 2007 à 09:52
en ce cas, choucroute62, fais :

adrca = App.Path & "\Catégories\Réserve Cadeaux" & Textnmpdt & ".text"
adrbo = App.Path & "\Catégories\Réserve Boissons" & Textnmpdt & ".text"
adrhr = App.Path & "\Catégories\Hors Réserve" & Textnmpdt & ".text"

et non

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"
1