I really appreciate you sharing this code! I learn new programming languages by finding things like this.

At work we have a shared drive with a ton of folders. I only need to search through a few of those folders, but all folders have subfolders, so this code is perfect. Is there a good way to give as an input more than one file path? Thank you for your time,

Mike

Hey,

I used this code also and it is working great.
I use it to list a lot of excel documents. I am wondering if it is possible, to get also next to the lastmodified Col the value of a specified cell from the listed file (this is always the value of the same cel).

thanks a lot in advance i hope you can help me out.

Best regards,

Stefan

Ultimately, what I'm trying to create is a 2-sheet workbook to accomplish the following:

Sheet 1: create a list of all .txt files within a directory and it's subdirectories.

Sheet 2: Import the entirety of the first file listed on Sheet 1 into Sheet 2, and then import and append each of the remaining files on Sheet 1 to Sheet 2. All files after the first should start on row 2 of each file so not to repeat the header row, however I would like to change the formatting of the first line that starts a new file (or some other means of flagging the start of a new file)

All text files have the same field settings and structure. I've been trying to amend this post's code to only list .txt files, but I'm a noob and I think I'm nesting conditionals incorrectly.

Sub ListMyFiles(mySourcePath, IncludeSubfolders)
    Set MyObject = New Scripting.FileSystemObject
    Set mySource = MyObject.GetFolder(mySourcePath)
    On Error Resume Next
    If InStr(MyFile.Path, ".txt") <> 0 Then
        For Each MyFile In mySource.Files
       
            iCol = 2
            Cells(iRow, iCol).Value = MyFile.Path
            iCol = iCol + 1
            Cells(iRow, iCol).Value = MyFile.Name
            iCol = iCol + 1
            Cells(iRow, iCol).Value = MyFile.Size
            iCol = iCol + 1
            Cells(iRow, iCol).Value = MyFile.DateLastModified
            iRow = iRow + 1
         Next
    End If
    Columns("C:E").AutoFit
    If IncludeSubfolders Then
        For Each mySubFolder In mySource.SubFolders
            Call ListMyFiles(mySubFolder.Path, True)
        Next
    End If
End Sub

And then to import all of the files, I've been trying to modify this Sub.

Sub Import_All_Text_Files_2010()
    
    Sheets(2).Activate
    Cells.Delete

Dim nxt_row As Long
     
    'Change Path
    Const strPath As String = "C:\"
    Dim strExtension As String
     
    'Stop Screen Flickering
    Application.ScreenUpdating = False
     
    ChDir strPath
     
    'Change extension
    strExtension = Dir(strPath & "*.txt")

 'Sets Row Number for Data to Begin
        nxt_row = Range("A65536").End(xlUp).Offset(1, 0).Row
         
        'Below is from a recorded macro importing a text file
        With ActiveSheet.QueryTables.Add(Connection:= _
            "TEXT;" & strPath & strExtension, Destination:=Range("$A$" & nxt_row))
            .Name = strExtension
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 437
            .TextFileStartRow = 2
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
             'Delimiter Settings:
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = True
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileColumnDataTypes = Array(2, 2, 2, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1)
             
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
        End With
         
        strExtension = Dir
    Loop
     
    Application.ScreenUpdating = True
     
End Sub

Hi! This code is working pretty good! Thanks for this! Is there any chance to list the Author and Owner? I tried to amend your code by myFile.Author (etc.) but without any luck. Thanks!

Is there a way to get this to work on multiple directories?