VBA File list including owner of file

[VBA_uk_85]

Hi all

I have a file lister but cannot work out how to gain the owner name of the file/folder

Any ideas?

Dim iRow As Integer
Sub ListFiles()
  iRow = 11


  Call ListMyFiles(Range("A1"), Range("a2"))
End Sub


Sub ListMyFiles(mySourcePath, IncludeSubfolders)
    Set MyObject = New Scripting.FileSystemObject
    Set mySource = MyObject.GetFolder(mySourcePath)
    On Error Resume Next
    For Each myFile In mySource.Files
        icol = 2
        Cells(iRow, icol).Value = myFile.Name
        icol = icol + 1
  Cells(iRow, icol).Value = myFile.Path
        icol = icol + 1
        Cells(iRow, icol).Value = myFile.DateLastModified
        icol = icol + 1
     iRow = iRow + 1
    Next
    
    If IncludeSubfolders Then
        For Each mySubFolder In mySource.SubFolders
            Call ListMyFiles(mySubFolder.Path, True)
        Next


    End If
End Sub

Thanks in advance

 

[John_w]

You can get the Owner using the class library Shell Controls and Automation and its GetDetailsOf method - see http://www.mrexcel.com/forum/excel-questions/873740-excel-export-windows-explorer-meta-data.html for example code and more information.