Discussion :

[Hobbi1]

Bonjour,

J'ai une form qui sert à parcourir les disques durs pour rechercher des fichiers. Elle est constituée de DriveListBox + DirListBox + FileListBox.

Je me suis rendu compte que pour qu'un répertoire puisse apparaitre dans la DriveListBox, il est nécessaire qu'une lettre lui soit associé.
Les répertoires réseaux qui n'ont pas eu de lettre associée à l'aide de "Connecter un lecteur réseau" ne sont donc pas accessibles.

Est-il donc absolument obligatoire de définir une lettre ?
Ne peut-on pas parcourir un réseau à l'aide du chemin UNC du fichier ?
Comment faire une form qui pourcourt un réseau sans lettre pour chaque lecteur/répertoire ?
Merci

[Paloma]

Bonsoir,

je pense que tu trouveras ton bonheur dans la faq :
http://vb.developpez.com/faq/?page=Systeme

sinon tu devrais avoir un truc du genre, avec un bouton parcourrir dans ton form

code du bouton (désolé,il y a des trucs en plus que j'ai utilisé mais c'est clair et facile à épurer)

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
 
Private Sub CmdBrowseJobDirectory_Click()
    'Récupération du chemin de travail
    'MsgBox SelectFolder("Sélectionnez un répertoire :", 0)
    strPathJob = SelectFolder("Sélectionnez un répertoire :", 0)
 
    ' Permet de modifier la valeur Text du champ de texte.
    txtPathJobDirectory.text = strPathJob 'indique le chemin complet
    txtPathJobDirectory.BackColor = &H80000005  'change la couleur du label
 
    'initialisation des variables pour les chemins de transfert de fichier
    strPathJobIN = strPathJob & "\IN\"
    'MsgBox strPathJobIN
    strPathJobOUT = strPathJob & "\OUT\"
    'MsgBox strPathJobOUT
 
    Call FolderExist(strPathJobIN)
    Call FolderExist(strPathJobOUT)
 
End Sub

et un Module qui contient le code :

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
 
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
 
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, _
    ByVal lpBuffer As String) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, _
    ByVal lpString2 As String) As Long
 
Private Type BrowseInfo
    hWndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As Long
     ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type
 
Declare Function FlashWindow Lib "user32" (ByVal hWnd As Long, ByVal bInvert As Long) As Long
 
 
Public Function SelectFolder(Titre As String, Handle As Long) As String
 
Dim lpIDList As Long
Dim strBuffer As String
Dim strTitre As String
Dim tBrowseInfo As BrowseInfo
 
strTitre = Titre
With tBrowseInfo
    .hWndOwner = Handle
    .lpszTitle = lstrcat(strTitre, "")
    .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With
 
lpIDList = SHBrowseForFolder(tBrowseInfo)
 
If (lpIDList) Then
    strBuffer = String(260, vbNullChar)
    SHGetPathFromIDList lpIDList, strBuffer
    SelectFolder = Left(strBuffer, InStr(strBuffer, vbNullChar) - 1)
End If
 
End Function

à bientôt
Paloma

[Hobbi1]

OK merci ca n'est pas tout à fait pareil...
Ainsi, il n'y a pas la possibilité de progresser par palier comme avec DriveListBox + DirListBox + FileListBox.

En outre, comment fait-on pour ouvrir la fonction "SelectFolder()" dans un répertoire par défaut ?

[ced600]

Peut être quavec les liens suivant, tu trouveras la solution à ton problème :
http://msdn.microsoft.com/library/de...ogicaldisk.asp
Autres liens supprimés par Thierry, désolé
Si tu veux plus d'aide, poste ton code.

[Hobbi1]

Comme je n'ai pas tout à fait trouvé de solution à mon gout, j'ai contourné le problème en gérant de 2 façon,s en fonction de la présence d'une lettre pour un lecteur réseau

Merci.