List Files in a Folder
To return a list of files in a folder (MsgBox is used here as a demo, but you'll no doubt want to process the list your own way) ...
Function ListFiles(Optional ByVal p_folder As String = "", _
Optional ByVal p_filter As String = "*.*") As String()
Dim fileList() As String
Dim i As Variant
If p_folder = "" Then
p_folder = Environ("USERPROFILE")
End If
fileList = GetFilesDir(p_folder, p_filter)
ListFiles = fileList
End Function
savename.sql
Here's an example showing how to reference this macro ...
Sub FilesInFolder()
Dim filenames() As String
Dim files As String
Dim i As Variant
Dim folder, filter As String
folder = Environ("USERPROFILE")
filter = "*.*"
filenames = ListFiles(folder, filter)
For Each i In filenames
files = files + folder + "\" + i + Chr(13)
Next
MsgBox (files)
End Sub
savename.txt
