Arborescence des fichiers

**cath007** · 04/07/2007, 23h55

Bonjour,
Je souhaiterais simplement créer un bouton "Parcourir" qui me permettrait de visualiser l'arborescence de mes répertoires et de sélectionner un document Word.

**SfJ5Rpw8** · 05/07/2007, 00h11

En Vb6..

utilise un CommonDialog, .....

où l'activeX à Delbeke :

OCX DiOpenFile6.zip

**Vld44** · 05/07/2007, 00h13

Peeeetiiiiiit paaaaapaaaaaa nooooooooël

Quand tu descendraaaaaas duuuuuuu cieeeeeeel ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
 
Public Type OPENFILENAME
        lStructSize As Long
        hwndOwner As Long
        hInstance As Long
        lpstrFilter As String
        lpstrCustomFilter As String
        nMaxCustFilter As Long
        nFilterIndex As Long
        lpstrFile As String
        nMaxFile As Long
        lpstrFileTitle As String
        nMaxFileTitle As Long
        lpstrInitialDir As String
        lpstrTitle As String
        flags As Long
        nFileOffset As Integer
        nFileExtension As Integer
        lpstrDefExt As String
        lCustData As Long
        lpfnHook As Long
        lpTemplateName As String
End Type
 
Public Enum esFlags
    OFN_ALLOWMULTISELECT = &H200
    OFN_CREATEPROMPT = &H2000
    OFN_ENABLEHOOK = &H20
    OFN_ENABLETEMPLATE = &H40
    OFN_ENABLETEMPLATEHANDLE = &H80
    OFN_EXPLORER = &H80000
    OFN_EXTENSIONDIFFERENT = &H400
    OFN_FILEMUSTEXIST = &H1000
    OFN_HIDEREADONLY = &H4
    OFN_LONGNAMES = &H200000
    OFN_NOCHANGEDIR = &H8
    OFN_NODEREFERENCELINKS = &H100000
    OFN_NOLONGNAMES = &H40000
    OFN_NONETWORKBUTTON = &H20000
    OFN_NOREADONLYRETURN = &H8000
    OFN_NOTESTFILECREATE = &H10000
    OFN_NOVALIDATE = &H100
    OFN_OVERWRITEPROMPT = &H2
    OFN_PATHMUSTEXIST = &H800
    OFN_READONLY = &H1
    OFN_SHAREAWARE = &H4000
    OFN_SHOWHELP = &H10
End Enum
 
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
 
Public Function FichierOuvrir(I_lngHwnd As Long, _
                              I_strFiltre As String, _
                              I_lngIdxFiltre As Long, _
                              Optional I_lngFlags As esFlags = OFN_HIDEREADONLY + OFN_EXPLORER + OFN_LONGNAMES + OFN_PATHMUSTEXIST, _
                              Optional I_strTitre As String = vbNullString, _
                              Optional I_strInitFile As String = vbNullString, _
                              Optional I_strInitDir As String = vbNullString, _
                              Optional I_strDefautExt As String = vbNullString) As String
Dim tyDialog As OPENFILENAME
Dim lngRep As Long
On Error GoTo Err_Handler
 
    tyDialog.lStructSize = Len(tyDialog)
    tyDialog.hwndOwner = I_lngHwnd ' Handle du propriétraire de la fenêtre.
    tyDialog.hInstance = App.hInstance
    tyDialog.lpstrFilter = Replace(I_strFiltre, "|", vbNullChar) & vbNullChar & vbNullChar
    tyDialog.lpstrCustomFilter = vbNullString ' Filtre personnalisé (non géré).
    tyDialog.nMaxCustFilter = 0 ' Index de filtre personnalisé (non géré).
    tyDialog.nFilterIndex = I_lngIdxFiltre ' Index du filtre à utiliser par défaut.
    ' Nom de fichier affiché à l'initialisation de la fenêtre.
    tyDialog.lpstrFile = Left$(I_strInitFile & String$(1024, vbNullChar), 1024)
    tyDialog.nMaxFile = Len(tyDialog.lpstrFile) - 1 ' Longueur du nom de fichier.
    tyDialog.lpstrFileTitle = tyDialog.lpstrFile ' Nom et extension du fichier (sans chemin).
    tyDialog.nMaxFileTitle = tyDialog.nMaxFile ' Taille de la chaîne précédente.
    tyDialog.lpstrInitialDir = I_strInitDir ' Répertoire initial.
    tyDialog.lpstrTitle = I_strTitre ' Titre de la fenêtre.
    tyDialog.flags = I_lngFlags ' Flags pour affichage de la fenêtre.
    'tyDialog.nFileOffset ' Position du nom du fichier dans la chaîne.
    'tyDialog.nFileExtension ' Position de l'extension du fichier dans la chaîne.
    ' Extension par défaut ajoutée automatiquement si l'utilisateur l'oublie.
    tyDialog.lpstrDefExt = I_strDefautExt
    tyDialog.lCustData = 0
    tyDialog.lpfnHook = 0
    tyDialog.lpTemplateName = 0
    ' Affichage de la boîte de dialogue.
    lngRep = GetOpenFileName(tyDialog)
    ' Retourne le nom long du fichier.
    FichierOuvrir = Left$(tyDialog.lpstrFile, InStr(1, tyDialog.lpstrFile, vbNullChar) - 1)
 
    Exit Function
Err_Handler:
    'TO BE IMPLEMENTED
End Function

**cath007** · 05/07/2007, 15h38

Merci d'avoir répondu!

Mon papa noel, je comprends pas tres bien ton joli bout de code... QUe prends en parametre la fonction FichierOuvrir ?

**ThierryAIM** · 05/07/2007, 16h03

un CommonDialog fera très bien l'affaire

Menu Projet >> Composants >> Microsoft Common Dialog Control (comdlg32.ocx)

Pour l'utilisation, voir MSDN ou le forum

**Phifi** · 05/07/2007, 16h27

Merci, petit papa noël de juillet.
Tu permets que je pique ton dialog amélioré ?

**cath007** · 05/07/2007, 16h32

J'ai repris le code qui fonctionne tres bien disponible dans la FAQ
Comment ouvrir une fenêtre de sélection de répertoire ?
Mais y a t il un moyen pour ajouter un filtre qui listerait non pas les répertoires mais tous les documents WORD contenus dedans ?

**Phifi** · 05/07/2007, 16h52

Envoyé par cath007

Mais y a t il un moyen pour ajouter un filtre qui listerait non pas les répertoires mais tous les documents WORD contenus dedans ?

Alors suis le conseil de Thierry, tu n'utilises pas le bon outil !

**cath007** · 05/07/2007, 17h03

OK... j'ai rajouté mon composant et j'ai parcouru les anciens post. J'ai trouvé celui ci qui a l'air de correspondre a ce que je désire. Mais j'ai une erreur de compil sur la variable CD. De quel type est-elle ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Function OuvrirAvecCD(Extension As String, DOSSIER As String, TITRE As String)
    FichierSélectionné = ""
    Set CD = CreateObject("MSComDlg.CommonDialog")
    On Error Resume Next
Debut:
    With CD
        .MaxFileSize = 260
        .InitDir = DOSSIER
        .CancelError = True
        .DialogTitle = TITRE
        .Filter = "Fichiers " & Extension & "(*." & Extension & ")|*." & Extension & "|"
        .FilterIndex = 1
        Err.Clear
        .ShowOpen
        If Err.Number <> 0 Then
            If MsgBox("Vous n'avez pas sélectionné de fichier." & Chr(10) & "Voulez-vous annuler la sélection ?", vbYesNo, TITRE) = vbYes Then
                Exit Function
            Else
                GoTo Debut
            End If
        End If
    End With
    FichierSélectionné = CD.FileName
    Set CD = Nothing
End Function

**Phifi** · 05/07/2007, 17h05

Tu devrais tout simplement prendre l'exemple MSDN à mon avis

L'objet "CD" n'est pas défini

**Vld44** · 05/07/2007, 17h13

Envoyé par Phifi

Merci, petit papa noël de juillet.
Tu permets que je pique ton dialog amélioré ?

Comment ça on est en juillet ??? On dirait qu'il va neiger c'est sûrement ça qui m'a trompé !

**cath007** · 05/07/2007, 17h32

BOn, ca a avancé. J'ai plus d'erreurs de compil mais ma boite de dialogue ne s'affiche pas malgré mon .ShowOpen ! Est ce qu'il me manquerait quelque chose, un autre composant a installer ...?

**zazaraignée** · 05/07/2007, 19h25

Envoyé par cath007

BOn, ca a avancé. J'ai plus d'erreurs de compil mais ma boite de dialogue ne s'affiche pas malgré mon .ShowOpen ! Est ce qu'il me manquerait quelque chose, un autre composant a installer ...?

C'est curieux que tu aies mis

après un tel message.