title: List files name and path in worksheet for specific dir and character count
body: <p>I've tried and search through out vba forum to figure out how can I rectify my code (below) to search files within a specific directory and its sub-directories to list and populated list of file that have 20 characters in filename length and just only pdf extension. </p>
  
  <p>I want to list of file with no extension at the end in column A and full file path and name in column B.</p>
  
  <p>Also tried to sort all files ascending after list created but no success yet :(
  any help? Thanks</p>
  
  <pre><code>Sub ListPDF()
  
  Range("A:L").ClearContents
  Range("A1").Select
  
  Dim strPath As String
  strPath = "K:\Test\PDF\"
  Dim OBJ As Object, Folder As Object, File As Object
  Set OBJ = CreateObject("Scripting.FileSystemObject")
  Set Folder = OBJ.GetFolder(strPath)
  Call ListFiles(Folder)
  Dim SubFolder As Object
  For Each SubFolder In Folder.Subfolders
      Call ListFiles(SubFolder)
      Call GetSubFolders(SubFolder)
  Next SubFolder
  Range("A1").Select
  End Sub
  
  Sub ListFiles(ByRef Folder As Object)
  For Each File In Folder.Files
         ActiveCell.Offset(1, 0).Select
          ActiveCell.Offset(0, 0) = File.Name
          ActiveCell.Offset(0, 1) = File.Path
  Next File
  End Sub
  
  Sub GetSubFolders(ByRef SubFolder As Object)
      Dim FolderItem As Object
      For Each FolderItem In SubFolder.Subfolders
      Call ListFiles(FolderItem)
      Call GetSubFolders(FolderItem)
  Next FolderItem
  End Sub
  </code></pre>