Private Sub Form_Load()
  File_INFO "C:\\ise.jpg"
End Sub
 
Sub File_INFO(DRV_PATH_FILENAME As String)
  DRV_PATH_FILENAME = "'" + DRV_PATH_FILENAME + "'"
  SQL_TXT = "Select * from CIM_Datafile Where name = " + DRV_PATH_FILENAME
  strComputer = "."
 Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 Set colFiles = objWMIService.ExecQuery(SQL_TXT)
 
  For Each objFile In colFiles
    MsgBox "Access mask: " & objFile.AccessMask
    MsgBox "Archive: " & objFile.Archive
    MsgBox "Compressed: " & objFile.Compressed
    MsgBox "Compression method: " & objFile.CompressionMethod
    MsgBox "Creation date: " & objFile.CreationDate
    MsgBox "Computer system name: " & objFile.CSName
    MsgBox "Drive: " & objFile.Drive
    MsgBox "8.3 file name: " & objFile.EightDotThreeFileName
    MsgBox "Encrypted: " & objFile.Encrypted
    MsgBox "Encryption method: " & objFile.EncryptionMethod
    MsgBox "Extension: " & objFile.Extension
    MsgBox "File name: " & objFile.FileName
    MsgBox "File size: " & objFile.FileSize
    MsgBox "File type: " & objFile.FileType
    MsgBox "File system name: " & objFile.FSName
    MsgBox "Hidden: " & objFile.Hidden
    MsgBox "Last accessed: " & objFile.LastAccessed
    MsgBox "Last modified: " & objFile.LastModified
    MsgBox "Manufacturer: " & objFile.Manufacturer
    MsgBox "Name: " & objFile.Name
    MsgBox "Path: " & objFile.Path
    MsgBox "Readable: " & objFile.Readable
    MsgBox "System: " & objFile.System
    MsgBox "Version: " & objFile.Version
    MsgBox "Writeable: " & objFile.Writeable
  Next
 
End Sub

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)