Hente filnavn

Med funktionen Dir eller Dir$ har du mulighed for at hente navnene på filer. De returnerer en streng (dir en undertype af en streng) Denne kan du splitte op og sætte ind som combobox'ens elementer.

et hurtigt eksempel hvor jeg sætter dem ind i en ListBox efter man har trykket på en knap:

SUB commandButton1_click()
  Dim sFileName As String
  Dim sPath As String

  sPath = "c:\temp\*.txt"
  sFileName = "Dis$(sPath)"

  Do While sFileName > ""
    ListBox1.AddItem sFileName
    sFileName = Dir$
  Loop

END SUB

God arbejds lyst!