Comment Sauvegarder Textbox+Parcourir

Question

Je ne suis pas capable de sauvegarder le text d'une textbox lorsque l'on a appuyer sur parcourir pour mettre le lien du fichier dans le textbox.

J'appuis sur parcourir, je vais chercher example photoshop, le lien apparait dans ma textbox mais quand j'appuie par après sur le bouton sauvegarder afin d'enregistrer le lien, la sauvegarde s'annule, parcontre, si je copie le lien et je le met dans le textbox, le bouton sauvegarder fonctionne, pourtant le même lien y ai inscrit.

Vous avez une idée pourquoi??

cs_liquide · Answer

liquide
est ce que ca te derange d'envoyer ta source ? pour jeter un coup d'oeil

cs_liquide · Answer

liquide
ahok, je crois savoir, quand tu parcours tes dossiers, le path change, va voir si dans les repertoires, par exemple celui de photoshop si tu n'a pas suavegarder dedans, par rapport a ce que j'ai pu voir, tu ne conserve pas la path de ton soft pour ta sauvegarde. je pense qu'il faut faire dans un premier temps une variable ou tu met le path et puis apres tu le recupere
par exemple tu rajutes dans un module:
************
dim MonDir as string
MonDir = App.Path
************
Form_load
ChDrive App.Path ' Prend lecteur courant de l'appli en cours
ChDir App.Path ' Prend les directories courant de l'appli en cours
************
ensuite dans le bouton valider:

Private Sub valider_Click()
Open MonDir & "config.ini" For Output As #1
Print #1, frmoption.Text1.Text
Print #1, frmoption.Text2.Text
Print #1, frmoption.Text3.Text
Print #1, frmoption.Text4.Text
Print #1, frmoption.Text5.Text
Print #1, frmoption.Text6.Text
Close #1 ' Ferme le fichier
End Sub

essaie qqe chose comme ca, Bonne Prog

cs_vb666 · Answer

Parcourir :

Private Sub Parcourir_Click()
CommonDialog2.Filter = "All|*.*|"
CommonDialog2.ShowOpen
file = CommonDialog2.filename
chemin.Text = file
End Sub

Open "config.ini" For Output As #1
    Print #1, frmoption.Text1.Text
    Print #1, frmoption.Text2.Text

Close #1   ' Ferme le fichier


ma aller verifier si sque tu dis marche

cs_vb666 · Answer

sa marche po :((, le module est po capable de savoir ce quoi sa veu dir le app.path

:(

cs_liquide · Answer

liquide
ok alors envoi moi ta source directement mais pas le code, si tu veux que je jette un coup d'oeil

cs_liquide · Answer

liquide

essais du style: 
dans la procedure ****
dim MonDir as string
dans le form_load ****
Mondir = App.Path

je viens de faire un essais et ca marche par contre pas d'essais quant a la bonne sauvegarde, mais vas y cea ne coute rien

cs_rene38 · Answer

Bonsoir

Pense à ajouter :
If Right(MonDir, 1) <> "" Then MonDir = MonDir & ""

Comment Sauvegarder Textbox+Parcourir

7 réponses

Discussions similaires