filling an array with filenames from a directory

[reszek]

I'm trying to fill an array with the files in a certain directory, any help would be appreciated.

zach

 

[Foada]

This should work for you. You will need to add a reference to the Microsoft Scripting Runtime from the Project Menu.

Option Explicit

'Requires Reference to the Microsoft Scripting Runtime
Dim fso As New FileSystemObject
Dim arrFiles() As String

Private Sub Command1_Click()
Dim fFolder As Folder
Dim fFile As File
Dim iX As Long
Dim sPath As String

sPath = "C:\Test" 'Path of Directory
Set fFolder = fso.GetFolder(sPath)
For Each fFile In fFolder.Files
ReDim Preserve arrFiles(iX)
arrFiles(iX) = fFile.Name
iX = iX + 1
Next

End Sub

Hope this helps.

If you choose to battle wits with the witless be prepared to lose.