Get all file names from a folder

[bushmobile]

Do you mean using the FileSystemObject? If so:

Private sFiles() As String
 
Private Sub Form_Load()
  Erase sFiles
  ReDim sFiles(0)
  GetFiles App.Path
  For N = LBound(sFiles) To (UBound(sFiles))
    Debug.Print sFiles(N)
  Next N
End Sub
 
Private Sub GetFiles(ByVal sFolder As String)
  Dim fso As New FileSystemObject
  Dim fCurFolder As Folder
  Dim fFolder As Folder
  Dim fFile As File
  
  Set fCurFolder = fso.GetFolder(sFolder)
  For Each fFolder In fCurFolder.SubFolders
    GetFiles fFolder.Path
  Next fFolder
  For Each fFile In fCurFolder.Files
    If sFiles(0) = vbNullString Then
      sFiles(0) = fFile.Path
    Else
      ReDim Preserve sFiles(UBound(sFiles) + 1)
      sFiles(UBound(sFiles)) = fFile.Path
    End If
  Next fFile
End Sub

Edit: this gives you files in SubFolders as well, btw.