msgbox all file in folder

Public Sub DisplayTextFileNames()Dim fso As ObjectDim folder As ObjectDim file As ObjectDim folderPath As String ' Specify the path to your directory folderPath = "C:\path\to\your\directory" ' Create a FileSystemObject Set…