filnavne til array

Jeg ville lave en filelistbox indstille path på den.
Så ville jeg bruge list() fra denne som mit array.
Du kan jo skjule filelistboxen så ingen kan se den.

'------------------------------------------ Module1 ------------------------------------------
Option Explicit

Global FileItems() As String
Global DirsItems() As String

Public Function LoadLocal(Path As String)
On Error Resume Next
Dim NextLocal As String
Dim FullSpec As String
Dim idir As Long
Dim ifil As Long

ChDrive Path
ChDir Path

If Len(CurDir()) = 3 Then
  FullSpec = CurDir() & "*.*"
    Else
  FullSpec = CurDir() & "\*.*"
End If

NextLocal = Dir(FullSpec, vbDirectory + vbNormal)

  Do While NextLocal <> ""
    If Len(CurDir()) = 3 Then
      FullSpec = CurDir() & StrConv(NextLocal, vbProperCase)
        Else
      FullSpec = CurDir() & "\" & NextLocal
    End If

    If (GetAttr(FullSpec) And vbDirectory) = vbDirectory Then
      idir = idir + 1
        ReDim Preserve DirsItems(idir - 1) As String
          DirsItems(idir - 1) = StrConv(NextLocal, vbProperCase) & " - [DIR]" 'Dir
            Else
          ifil = ifil + 1
        ReDim Preserve FileItems(ifil - 1) As String
      FileItems(ifil - 1) = StrConv(NextLocal, vbProperCase) & " - " & FileLen(FullSpec) & " byte" 'File
    End If

    NextLocal = Dir
  Loop
End Function
'------------------------------------------ Module1 ------------------------------------------


'------------------------------------------ Form1 ------------------------------------------
Option Explicit

Private Sub Form_Load()
Dim i As Long
LoadLocal "C:\"

  For i = 0 To UBound(DirsItems())
    List1.AddItem DirsItems(i) 'Dirs
  Next i

  For i = 0 To UBound(FileItems())
    List1.AddItem FileItems(i) 'Files
  Next i

End Sub
'------------------------------------------ Form1 ------------------------------------------

Hvad med ...
Lav en form og lav en FileListBox på den
I Form_Load() skriver du.
File1.Path = "c:\"
Så har du det sammen som sjh møjsommeligt har skrevet ...

Tak begge to, begge løsninger virker.
Jeg havde nu tænkt mig en løsning, der ikke nødvendigvis benytter en form, derfor hælder jeg mest til <sjh's> løsning. I løste begge to mit problem fornemt. Derfor har jeg afsat lidt flere points, håber fordeling er i orden :)

tak. :-)