Opgelost Keuzelijst voor een Combobox

[DutchOirs]

Goedemiddag,

Even wennen deze opbouw.

Had een vraagje,
Kan men de keuzelijst voor een Combobox ook gebruiken om bestandsnamen in een bepaalde map in te lezen?
Kom er nog niet achter namelijk.

thanks

Dutch

 

[OctaFish]

Waarom zou dat niet kunnen? Kwestie van de inhoud van de map inlezen en aan de keuzelijst toewijzen. Hangt een beetje van het onderliggende programma af wat de handigste werkwijze is.

 

[PhilJ]

---

Private Sub Form_Load()

Dim MyFile As String
Dim MyPath  As String
MyPath = "C:\YourFolder\"
MyFile = Dir(MyPath)

Do While MyFile <> ""
Combo1.AddItem MyFile
MyFile = Dir
Loop

End Sub

 

[DutchOirs]

Thanks OctaFish en PhilJ voor het meedenken.

Ja vond het ook vreemd, was bezig geweest met List, maar die werkt dus niet buiten Excel
Heb het geprobeerd en yess werkt, thanks.

 

[edmoor]

Of:

Sub MapInh()
    JouwMap = "C:\Diversen"
    ComboBox1.List = Split(CreateObject("WScript.Shell").Exec("cmd /c dir /b " & JouwMap & "\*.*").StdOut.ReadAll, vbCrLf)
End Sub

 

[snb]

Maar waarom niet ?

Sub M_snb()
    with application.filedialog(3)
      .initialfilename "G:\OF\*.*
      if .show then x2=""
   end with
end sub

 

[DutchOirs]

Hoi Edmoor,

Kreeg met List een foutmelding van m'n Virusscanner (Norton) dat "cmg" onveilig was

 

[edmoor]

Je bedoelt cmd neem ik aan.
Dat is gewoon de Windows command opdracht en is niks mis mee.

 

[DutchOirs]

ja sorry cmd.
Ok.

 

[edmoor]

Nog een optie:

Sub Bestanden()
    Dim fls() As String
    
    Map = "C:\Diversen"
    fl = Dir(Map & "\*.*")
    While fl <> ""
        ReDim Preserve fls(i)
        fls(i) = fl
        i = i + 1
        fl = Dir()
    Wend
    ComboBox1.List = fls
End Sub