dir all files in a folder and sub folders

Hello Pero,

This macro will list either all the files in single directory or list all files in the directory and the subfolders. In columns "A - F" the following file information is listed: Name, Path, Size, Date Created, Date Last Modified, File Owner. You can change thor delete these as needed.

Sub ListFilesInFolder(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean)

  Dim FSO As Object
  Dim SourceFolder As Object
  Dim SubFolder As Object
  Dim FileItem As Object
  Dim R As Long
  
     Set FSO = CreateObject("Scripting.FileSystemObject")
     Set SourceFolder = FSO.GetFolder(SourceFolderName)
     
    'Find last row that has data
     R = Cells.Find("*", , xlValues, xlWhole, xlByRows, xlPrevious, False).Row
      
      'Display file properties in the next row in columns "A:F"
       For Each FileItem In SourceFolder.Files
         R = R + 1
         Cells(R, 1) = FileItem.Name
         Cells(R, 2) = FileItem.Path
         Cells(R, 3) = FileItem.Size
         Cells(R, 4) = FileItem.DateCreated
         Cells(R, 5) = FileItem.DateLastModified
         Cells(R, 6) = GetFileOwner(SourceFolder.Path, FileItem.Name)
       Next FileItem
       
       If IncludeSubfolders Then
         For Each SubFolder In SourceFolder.SubFolders
           ListFilesInFolder SubFolder.Path, True
         Next SubFolder
       End If
 
    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing
    
    ActiveWorkbook.Saved = True
    
End Sub

Example

  'This lists all the files in the given directory
   ListFilesInFolder "C:\Documents and Settings\Owner\My Documents", False

  'This will list all the files and subfolders 
   ListFilesInFolder "C:\Documents and Settings\Admin.Admins\My Documents", True

Hello Pero,

You didn't do anything wrong. Any Sub or Function that takes arguments is automatically hidden from the macro list by Excel. Here is a macro that will be visible. Change the path to the one you want.

Sub Macro1()
  ListFilesInFolder "C:\Documents and Settings\Admin.Admins\My Documents", True
End Sub

Thanks again for the help !

The macro is now visible in the macro list but now when i try to run the macro it says "Sub or function could not be defined"
And the text marked yellow text is:

Sub ListFilesInFolder(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean)

I also want the macro to start at J13 to O13 instead of A:F.
Also I want the filepath be be a variabel that is red from the column C3.

Sry for my lack of knowlage in this matter, I'm trying to learn.

Many many thanks !

My code right now is:

  
Sub makro1()
 
  ListFilesInFolder "C:\Users\Per\Desktop\Filer", True
End Sub


Sub ListFilesInFolder(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean)

  Dim FSO As Object
  Dim SourceFolder As Object
  Dim SubFolder As Object
  Dim FileItem As Object
  Dim R As Long
  
     Set FSO = CreateObject("Scripting.FileSystemObject")
     Set SourceFolder = FSO.GetFolder(SourceFolderName)
     
    'Find last row that has data
     R = Cells.Find("*", , xlValues, xlWhole, xlByRows, xlPrevious, False).Row
      
      'Display file properties in the next row in columns "A:F"
       For Each FileItem In SourceFolder.Files
         R = R + 1
         Cells(R, 1) = FileItem.Name
         Cells(R, 2) = FileItem.Path
         Cells(R, 3) = FileItem.Size
         Cells(R, 4) = FileItem.DateCreated
         Cells(R, 5) = FileItem.DateLastModified
         Cells(R, 6) = GetFileOwner(SourceFolder.Path, FileItem.Name)
       Next FileItem
       
       If IncludeSubfolders Then
         For Each SubFolder In SourceFolder.SubFolders
           ListFilesInFolder SubFolder.Path, True
         Next SubFolder
       End If
 
    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing
    
    ActiveWorkbook.Saved = True
    
End Sub

Thanks in advance !


// Per