recuperer un lien de fichierRésolu

Question

Hello

je programme en VB6
Je souhaiterais aller r&#233;cup&#233;rer un fichier via un input box et un bouton parcourir (inclus dans l'input box si possible et qui aurait la meme fonction que dans Windows pour aller chercher des fichiers), comment puis-je le faire ?


Et apr&#232;s faut-il que je donne une variable au fichier r&#233;cup&#233;r&#233; afin de m&#146;en servir dans une ex&#233;cution ?



@+

jpleroisse · Accepted Answer

Bonsoir,

Pour faire ce que tu veux, utilise plut&#244;t un contr&#244;le CommonDialog et tu r&#233;cup&#232;re le nom du fichier dans une variable.



Option Explicit

Dim str1 As String



Private Sub Command1_Click()

With CommonDialog1

     .DialogTitle = "Rechercher un fichier"

     .CancelError = True

     .InitDir = "C:"

     .Filter = "Fichier texte (*.txt)|*.txt|Tous (*.*)|*.*"

     .FilterIndex = 1

     

On Error GoTo Annuler:

     .ShowOpen

End With

MsgBox "Le fichier " & CommonDialog1.FileName & " a &#233;t&#233; s&#233;lectionn&#233;."

str1 = CommonDialog1.FileName



GoTo Suite:

Annuler: MsgBox "Vous n'avez s&#233;lectionn&#233; aucun fichier", vbInformation, "Annler"

Suite:

End Sub



Private Sub Command2_Click()

MsgBox str1

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

manud31 · Answer

merci jp j'ai fait un petite modif pour l'adapter a mon contexte 
mais ca marche nickel !!!!!

Recuperer un lien de fichier

2 réponses

Discussions similaires