I need to txt file list in a specific folder, but my code does not work

[Ongbey]

Note : I am using Excel 2013

[FONT=&quot]Option Explicit[/FONT]

[FONT=&quot]Type FoundFileInfo[/FONT]
[FONT=&quot]sPath As String[/FONT]
[FONT=&quot]sName As String[/FONT]
[FONT=&quot]End Type[/FONT]
[FONT=&quot]------------------------------------------------------------------------------------------------------------------------------[/FONT]
[FONT=&quot]Function FindFiles(ByVal sPath As String, ByRef recFoundFiles() As FoundFileInfo, ByRef iFilesFound As Integer, _[/FONT]
[FONT=&quot]Optional ByVal sFileSpec As String = "*.*", Optional ByVal blIncludeSubFolders As Boolean = False) As Boolean[/FONT]
[FONT=&quot]End Function[/FONT]
[FONT=&quot]-----------------------------------------------------------------------------------------------------------------------------[/FONT]
[FONT=&quot]Public Sub Ara()[/FONT]
[FONT=&quot]Dim iFilesNum As Integer[/FONT]
[FONT=&quot]Dim iCount As Integer[/FONT]
[FONT=&quot]Dim recMyFiles() As FoundFileInfo[/FONT]
[FONT=&quot]Dim blFilesFound As Boolean[/FONT]

[FONT=&quot]blFilesFound = FindFiles("C:\Users\XXXXX\Desktop\New Folder", recMyFiles, iFilesNum, "*.txt?", True)[/FONT]
[FONT=&quot]If blFilesFound Then[/FONT]
[FONT=&quot]For iCount = 1 To iFilesNum[/FONT]
[FONT=&quot]With recMyFiles(iCount)[/FONT]
[FONT=&quot]MsgBox "Path:" & vbTab & .sPath & vbNewLine & "Name:" & vbTab & .sName, vbInformation, "Found Files"[/FONT]
[FONT=&quot]End With[/FONT]
[FONT=&quot]Next[/FONT]
[FONT=&quot]Else[/FONT]
[FONT=&quot]MsgBox "No file(s) found matching the specified file spec.", vbInformation, "File(s) not Found"[/FONT]
[FONT=&quot]End If[/FONT]

[FONT=&quot]End Sub[/FONT]

 

[Delfinus25]

Where are you hitting the issue in the code?

[COLOR=#141414]blFilesFound = FindFiles("C:\Users\XXXXX\Desktop\New Folder", recMyFiles, iFilesNum, "*.txt?", True)[/COLOR]

I could be misunderstanding the goal of the macro, but does this line need a \ following New Folder? (C:\Users\XXXXX\Desktop\New Folder\)

 

[Ongbey]

Sorry, of course there is a "" at end of path.

I write the sub into a Module. Is it right? But code is still unsuccessful.

 

[Ongbey]

Sorry, of course there is a "" at end of path.

I write the sub into a Module. Is it right? But code is still unsuccessful.

 

[Ongbey]

Sorry, I cannot add the back slash.