Microsoft Office Forums - View Single Post - [Solved] How capture a folder's file names to a file?

gmayor · 05-18-2016, 08:32 PM

Perhaps the simplest solution is the Printfolders utility which you can download from my web site - http://www.gmayor.com/downloads.htm

Alternatively you could use a macro. The following is the most basic

Code:

Option Explicit

Sub ListFiles()
Dim strFile As String
Const strPath As String = "C:\Path\" 'The folder to process
Dim strList As String
    strFile = Dir$(strPath & "*.*")
    While strFile <> ""
        strList = strList & strFile & vbCr
        strFile = Dir$()
    Wend
    strList = Left(strList, Len(strList) - 1)
    Selection.Text = strList
lbl_Exit:
    Exit Sub
End Sub