Need to edge out the competition for your dream job? Train for certifications today.
Public Function fnGetFilenames(Folder As String) As String
Dim strPath As String
Dim strFileName As String
strPath = Replace(Folder & "\", "\\", "\")
strFileName = Dir(strPath & "*")
fnGetFilenames = fnGetFilenames & ";" & strFileName
strFileName = Dir()
Loop While Len(strFileName) > 0
If Len(fnGetFilenames) > 0 Then fnGetFilenames = Mid(fnGetFilenames, 2)
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.