Excel VBA using FileSystemObject to list file last date modified

by

Try this code :

Sub ListFilesinFolder()

    Dim FSO As Scripting.FileSystemObject
    Dim SourceFolder As Scripting.Folder
    Dim FileItem As Scripting.File

    SourceFolderName = "C:\Users\Santosh"

    Set FSO = New Scripting.FileSystemObject
    Set SourceFolder = FSO.GetFolder(SourceFolderName)

    Range("A1:C1") = Array("text file", "path", "Date Last Modified")

    i = 2
    For Each FileItem In SourceFolder.Files
        Cells(i, 1) = FileItem.Name
        Cells(i, 2) = FileItem
        Cells(i, 3) = FileItem.DateLastModified
        i = i + 1
    Next FileItem

    Set FSO = Nothing

End Sub

More Related Contents:

  1. Why Use Integer Instead of Long?
  2. How to error handle 1004 Error with WorksheetFunction.VLookup?
  3. How can Excel VBA open file using default application
  4. How to compare two entire rows in a sheet
  5. Run same excel macro on multiple excel files
  6. VBA : save a file with UTF-8 without BOM
  7. IsDate function returns unexpected results
  8. Saving a Excel File into .txt format without quotes
  9. VBA – Range to jpg picture
  10. vba listbox multicolumn add [duplicate]
  11. Fastest way to delete rows which cannot be grabbed with SpecialCells
  12. Combine multiple Excel workbooks into a single workbook
  13. Excel Macro, inserting internationally valid formula during run-time
  14. VBScript – How to make program wait until process has finished?
  15. VBA Internet Explorer Automation – How to Select “Open” When Downloading a File
  16. Procedure Too Large
  17. VBA Convert date to week number
  18. Inserting an Online Picture to Excel with VBA
  19. Change length of For loop while in the loop
  20. VBA – Run Time Error 1004 ‘Application Defined or Object Defined Error’
  21. Copy filtered data to another sheet using VBA
  22. Range.Find on a Date That is a Formula
  23. Range() vs Cells() vs Range.Cells()
  24. Excel VBA to answer Internet Explorer 11 download prompt, in Windows 10?
  25. How to get address of cell which calls a VBA Functions in a Excel sheet
  26. Add new row to excel Table (VBA)
  27. VBA Function argument list select
  28. Restrict Outlook Items by Date
  29. Excel VBA: auto click and open file from website
  30. Unable to read data from a CSV using ADO due to the driver thinking I am working with integers/number and showing nulls instead of text

Leave a Comment