Hente alle filer i en mappe

Du skal tilknytte referencen "Microsoft Scripting Runtime"

Du skal sørge for at du har en reference til Microsoft Scripting Runtime i dit projekt. Under Project->References.. Så burde det virke

Hvad skal du bruge filerne til ? bare en liste ?

Så kan du også bruge filelistbox.....

Hvis det er du specificere lidt mere hvad det er du skal kan jeg lave lidt kode til dig når jeg kommer hjem i aften.....

For at forenkle det:
Jeg har nogle filer, hvor jeg skal læse linie for linie og sætte ind i et og samme array af typen String. Egentligt skal de ind i en collection af objekter, men det er ikke problemet.

lad os sige hver linie i filerne indeholder fugter fx flg streng: "Æbler"

:-)

Jeg mente frugter :-)

Der vil jeg da helt klart bruge en filelistbox kombineret med en listbox og lade dem være usynlige.....

Lade listboxen blive fyldt med filnavne, og når en fil er læst så fjernes den fra listboxen og så den næste....indtil listboxen er tom.....

Jeg har nu skrevet følgende sub men får ikke den sidste 'MsgBox' frem
Private Sub displayFolderInfo(ByVal folderName As String)
    Dim f1, fc, f
    Dim fso As New FileSystemObject
    Dim folderSpec As Folder
    Dim strInfo As String
    Set folderSpec = fso.GetFolder(folderName)
    strInfo = folderSpec.Name & vbCrLf
    strInfo = strInfo & "Created: "
    strInfo = strInfo & folderSpec.DateCreated
    MsgBox strInfo, vbInformation, "Folder Information"
   
  Set f = fso.GetFolder(folderSpec)
  Set fc = f.SubFolders
  'FolderCount = 0
  For Each f1 In fc
    MsgBox f1.Name
  Next
    Set folderSpec = Nothing
End Sub

du kan bare bruge Dir()

Private Sub Form_Load()
Dim strPath As String
Dim strFile As String
  strPath = "C:\"
  strFile = Dir(strPath, vbDirectory)
  Do While strFile <> ""
    If strFile <> "." And strFile <> ".." Then
        If (GetAttr(strPath & strFile) And vbDirectory) = vbDirectory Then
          MsgBox "Directory: " & strFile
            Else
          MsgBox "File: " & strFile
        End If
    End If
    strFile = Dir
  Loop
End Sub