VB6 [Résolu]

Signaler
Messages postés
29
Date d'inscription
vendredi 16 mai 2008
Statut
Membre
Dernière intervention
31 août 2009
-
Messages postés
29
Date d'inscription
vendredi 16 mai 2008
Statut
Membre
Dernière intervention
31 août 2009
-
Bonjour,
Comment créer une un bouton "parcourir" qui me permette de recuperer le chemin complet d'un fichier sur mon PC?

Merci

3 réponses

Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
10
Salut

d'apres trouver sur VBfrance mais je ne me rappel plus l'auteur désolé

Function oldFolderDialog(Root, Optional SelType As Byte = 0)
    Dim objShell As Object, objFolder As Object, FolderPath As String, SecuriteSlash, FlagChoix&
    Dim msg As String, UserProfil As String
    If SelType = 0 Then
        FlagChoix = &H1& 'this value specify :  folder
        msg = "Select Default files location: "
    'Else
        'FlagChoix = &H4000& 'this value specify : file
        'Msg = "Select your file:"
    End If
    Set objShell = CreateObject("Shell.Application")
    'le 3ième paramètre permet de choisir la sélection d'un dossier ou d'un fichier (0 ou 1)
    'le dernier paramètre permet de choisir le dossier racine
    Set objFolder = objShell.BrowseForFolder(&H0&, msg, FlagChoix, Root)
    On Error Resume Next
    FolderPath = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
    UserProfil = Environ("USERPROFILE")    If objFolder.Title "My Documents" Or objFolder.Title "Desktop" Then
        FolderPath = UserProfil & "" & objFolder.Title
    ElseIf objFolder.Title = "" Then
        FolderPath = ""
    End If
    SecuriteSlash = InStr(objFolder.Title, ":")
    If SecuriteSlash > 0 Then
        FolderPath = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
    End If
    FolderDialog = FolderPath
End Function

ou autre façon

Function FolderDialog(Optional Root As String, Optional FolderDialogTitle As String)
  Dim Dossier As String  If FolderDialogTitle "" Then FolderDialogTitle "Select Default files location: "
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = FolderDialogTitle
    .InitialFileName = Root    If .Show -1 Then FolderDialog .InitialFileName
  End With
End Function

Sinon il y plein de truc sur le sujet, Code sources, Snipets, Forum etc

A+
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
salut,

il y a également mon UserControl
http://www.vbfrance.com/codes/COMMONDIALOG-AVEC-PREVIEW-IMAGE-USERCONTROL_42387.aspx

Si c'est une image, la miniature de celle-ci s'affiche
@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
Messages postés
29
Date d'inscription
vendredi 16 mai 2008
Statut
Membre
Dernière intervention
31 août 2009

merci