Loading Directory Conents Into Array

[Aaron Young]

Use the Dir Function:

Private Sub Command1_Click()
    Dim aDir As Variant
    Dim iIndex As Integer
    
    aDir = ListDir("C:\*")
    For iIndex = 0 To UBound(aDir)
        List1.AddItem aDir(iIndex)
    Next
End Sub

Private Function ListDir(ByVal sPath As String) As Variant
    Dim aList() As String
    Dim sDir As String
    Dim iIndex As Integer
    
    sDir = Dir(sPath)
    While Len(sDir)
        ReDim Preserve aList(iIndex)
        aList(iIndex) = sDir
        iIndex = iIndex + 1
        sDir = Dir
    Wend
    ListDir = aList
End Function

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]