Chemin d'accés

Résolu
neg03 Messages postés 95 Date d'inscription jeudi 7 mai 2009 Statut Membre Dernière intervention 3 juillet 2009 - 24 avril 2008 à 10:59
neg03 Messages postés 95 Date d'inscription jeudi 7 mai 2009 Statut Membre Dernière intervention 3 juillet 2009 - 24 avril 2008 à 12:04
Bonjour,
je souheterais savoir coment faire pour avoir un controle qui me permette de choisir un fichier sur mon ordinateur et ensuite d'afficher dans un textbox son chemin.
Merci

6 réponses

jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
24 avril 2008 à 11:08
Salut,
Il te faut ajouter Microsoft Common Dialog Control 6.0 (SP6) depuis le menu Composant (Ctrl + T)

@+: Ju£i?n
Pensez: Réponse acceptée
3
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
24 avril 2008 à 11:21
Re,
Ce qui n'est donc pas du tout la meme question.

regarde ceci

Option Explicit

Private Sub Dir1_Change()
   File1.Path = Dir1.Path
End Sub<hr />
Private Sub Drive1_Change()
   Dir1.Path = Drive1.Drive
End Sub<hr />
Private Sub File1_Click()
   Text1.Text = File1.Path & "\" & File1.FileName
End Sub<hr />, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée
3
neg03 Messages postés 95 Date d'inscription jeudi 7 mai 2009 Statut Membre Dernière intervention 3 juillet 2009
24 avril 2008 à 11:10
En gros je souheterais en utilisant un drivListBox , un dirListBox et un fileListBox pouvoir afficher dans une textbox le chemin complet.
0
neg03 Messages postés 95 Date d'inscription jeudi 7 mai 2009 Statut Membre Dernière intervention 3 juillet 2009
24 avril 2008 à 11:26
En faite c'est bon en cherchant un peu http://gilmir.developpez.com/tutoriels-vb6/tutoriel9/

et pour le chemin :
Private Sub File1_Click()


Dim SelectedFile As String
SelectedFile = File1.Path &amp; "" &amp; File1.FileName '
Image1.Picture = LoadPicture(SelectedFile)


chemin.Text = Dir1.Path &amp; File1.Path &amp; File1.FileName


End Sub
0

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

Posez votre question
neg03 Messages postés 95 Date d'inscription jeudi 7 mai 2009 Statut Membre Dernière intervention 3 juillet 2009
24 avril 2008 à 11:27
Désoler je l'écrivait en même temps merci quand même.
0
neg03 Messages postés 95 Date d'inscription jeudi 7 mai 2009 Statut Membre Dernière intervention 3 juillet 2009
24 avril 2008 à 12:04
en faite pr l'affichage dans la textbox je me suis planté faut prendre ta solution
0
Rejoignez-nous