Discussion :

[nathantahiti]

Bonjour, je souhaiterais créer un menu déroulant en visual Basic pour parcourir un répertoire: \Users\Jonathan\Desktop\BDD MIS Server\dfiles

J'ai un petit programme trouver sur le site, mais je ne sais trop comment l'adapter:

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
 
Public Class Class1
    Dim fso As New FileSystemObject
    Sub Main()
        Dim Folder As 
        Dim File As
        Dim fd As Folder, PathFolder As String
        PathFolder = "C:"
        fd = fso.GetFolder(PathFolder)
        If fso.FolderExists(PathFolder) Then SearchFolder(fd)
    End Sub
 
 
    Sub SearchFolder(ByVal fld As Folder)
        Dim f As File, SubFld As Folder
        For Each f In fld.Files
            Debug.Print(f.Name)
        Next
        For Each SubFld In fld.SubFolders
            SearchFolder(SubFld)
        Next
    End Sub
End Class

Comment je dois déclarer mes variables?

Merci d'avance de votre aide

[Ehjoe]

Bonjour, voici un exemple qui tourne, testé :

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
 
'
' A copier coller dans nouveau projet sur form1, pour tester, chat marche !
' Il existe peut être des directives propres à vbNet ??? peu importe, ça tourne, testé !
'
Option Explicit On
Public Class Form1
  Dim WithEvents bt As New Button ' objet logique bouton ' #1
  Dim WithEvents cb As New ComboBox ' objet logique combobox ' #2
 
  Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Controls.AddRange(New System.Windows.Forms.Control() {bt, cb})
    Me.Left = 10
    Me.Top = 10
    Me.Width = 400
    Me.Height = 300
    bt.Left = 10 ' commence à "1" dans une collection, ici rien car y en a qu'un
    bt.Top = 10
    bt.Text = "ok"
    bt.AutoSize = True
    cb.Left = 20 + bt.Width
    cb.Top = bt.Top
    cb.Width = 200
    bt.Focus()
  End Sub
 
  Sub bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt.Click
    Dim ligne As String = Dir(My.Application.Info.DirectoryPath & "\*.*")
    Do While ligne <> ""
      My.Application.DoEvents()
      ligne = Dir()
      Try
        cb.Items.Add(ligne) ' #4
      Catch ex As Exception 'valeur nulle
      End Try
    Loop
  End Sub
End Class
 
' SI TU UTILISE DES OBJETS PHYSIQUES :
' - supprimer # 1 + 2 + load + sub bt_clique (remplacé par procédure bouton)
' - A #4 = remplace cb par combobox?
' -fin-