• Home
 · 
• Windows System Services
 · 
• Obtain properties of a file.

Obtain properties of a file.

Obtain properties of a file.

Rate Obtain properties of a file.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim Shell As New Shell

Private Sub Form_Load()
    MsgBox GetDetailsOf("C:\a.txt", "Comments")
End Sub

Function GetDetailsOf(FileName As String, FieldName As String) As String
    'Get the folder object
    Dim Folder As Folder
    Set Folder = Shell.NameSpace(Left$(FileName, InStrRev(FileName, "\") - 1))
    
    Dim N As Integer
    For N = 1 To 25 'Search the field name
        If Folder.GetDetailsOf(Nothing, N) = FieldName Then
            'If field name matches, get the field value
            GetDetailsOf = Folder.GetDetailsOf(Folder.ParseName(Dir$(FileName)), N)
            Exit Function
        End If
    Next
End Function