Lấy thuộc tính của file trong windows explorer?

[vonguyen3745]

Các bác cho em hỏi, em muốn xuất thuộc tính này của file ra excel thì có cách nào không nhỉ, bác nào biết giúp em với ạ.
Khi xuất ra nó sẽ có 2 cột là tên file ( tương ứng với cột name) và tài khoản (tương ứng với cột Owner)

 

[ongke0711]

Các bác cho em hỏi, em muốn xuất thuộc tính này của file ra excel thì có cách nào không nhỉ, bác nào biết giúp em với ạ.
Khi xuất ra nó sẽ có 2 cột là tên file ( tương ứng với cột name) và tài khoản (tương ứng với cột Owner)

Không hiểu sao cái tool Get Data - From File - From Folder cũng lấy được các thuộc tính của File nhưng lại không có thuộc tính Owner.




Dùng thủ tục này để lấy thông tin vậy:

Sub GetFileAtributes()
    Dim oShell As Object, oFile As Object, oFldr As Object
    Dim lRow As Long, iCol As Long
    Dim vArray As Variant
   
    vArray = Array(0, 1, 2, 3, 10, 20)
    '0=Name, 1=Size, 2=Item Type, 3=Date Modified, 10=Owner, 20=Authors
   
    Set oShell = CreateObject("Shell.Application")
    lRow = 1
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select the Folder..."
        If .Show Then
            Set oFldr = oShell.Namespace(.SelectedItems(1))
            With oFldr
                For iCol = LBound(vArray) To UBound(vArray)
                    Cells(lRow, iCol + 1) = .getdetailsof(.items, vArray(iCol))
                Next iCol
                For Each oFile In .items
                    lRow = lRow + 1
                    For iCol = LBound(vArray) To UBound(vArray)
                        Cells(lRow, iCol + 1) = .getdetailsof(oFile, vArray(iCol))
                    Next iCol
                Next oFile
            End With
        End If
    End With
End Sub

 

[vonguyen3745]

em cảm ơn bác đã giúp đỡ!