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 Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 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

A voir également:

Vb6 app.path
Path application - Meilleures réponses
Path app - Meilleures réponses
Vb6 sleep ✓ - Forum Visual Basic 6
Vb6 instr - Forum Visual Basic 6
App.Path ✓ - Forum Visual Basic 6
Vb6 wait ✓ - Forum Visual Basic 6
Vb6 windows 10 ✓ - Forum Visual Basic 6

26 réponses

Réponse 21 / 26

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:57

Cela marche renfield, ta technique est nickel
Tu n 'es pas admin pour rien
Merci à tous pour vos réponses et la vitesse à laquelle vous réagissez
Continuez sur votre lancée messieurs (mesdemoiselles s'il y en a)
A++

Réponse 22 / 26

nagstef Messages postés 93 Date d'inscription samedi 11 octobre 2003 Statut Membre Dernière intervention 30 septembre 2008 1
24 mai 2007 à 09:58

Bonjour !!

Petite question simple qui n'a peut-etre rien a voir.
Tu exprimes tes fichiers au format ".tExt" et non ".txt"
L'erreur ne viendrait-elle pas de là ??

Si non, dsl du dérangement :) :)
++, Stef

Réponse 23 / 26

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
24 mai 2007 à 10:02

le fichier sera tout de même crée, même avec cette extension peu orthodoxe ^^

choucroute62, ravi que tu t'en soit sortie

Réponse 24 / 26

cs_Choucroute62 Messages postés 34 Date d'inscription lundi 2 avril 2007 Statut Membre Dernière intervention 17 janvier 2008
24 mai 2007 à 10:07

Encore merci^^

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 25 / 26

cs_espoir514 Messages postés 4 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 25 mai 2007
25 mai 2007 à 00:28

salut a tout.
peut etre c ca.

If Right(App.Path, 1) = "" Then
'si votre path est "c:\dossier" par exemple
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"
Else
'si votre path est "c:" ou "d:" ... par exemple
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"
End If

Réponse 26 / 26

mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
25 mai 2007 à 01:31

Salut,

juste pour répondre à hublet :
Il n'y a qu'un cas où App.Path renvoi le dossier de VB6 :
Si tu l'utilises avec un nouveau projet qui n'a pas encore été enregistré.

Et pour info, Avec VBA c'est (presque) pareil, Application.Path te retournera le dossier où se trouve l'application hôte (ex : MSOffice\Office11), même si le fichier hôte a été enregistré ailleurs.

@++

--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

(

Discussions similaires

probleme avec le chemin "App.Path"

vb net - APP.path

Différence entre App.Path et Curdir

Votre réponse

Discussions similaires