How to read values in custom tab of file properties dialog box in windows.

[J FelixBosco]

custom tab.jpg
Please help me in getting the values shown in image. I googled for 5 days still couldn't find the solution.

[YasserKhalil]

Can you give more details? upload the file with .dft extension?

[SamT]

Sub t()
Dim CP As Variant
'Dim CPS As Excel.CustomProperties
Dim X
For Each CP In CustomDocumentProperties

X = CP.Name
X = CP.Value
Next

For Each CP In BuiltinDocumentProperties

X = CP.Name
X = CP.Value
Next


End Sub

[J FelixBosco]

Please find the attached file YasserKhalil. Thank you for your reply.
1.zip

[J FelixBosco]

SamT please check this file 1.zip. Below is the code which i tried to get the custom properties of 1.dft file.

Private Declare Function getfileinfo Lib "kernel32.dll" Alias "GetFileInformationByHandleEx" (ByVal hFile As Integer, ByVal FileInformationClass As Long, ByRef lpFileInformation As FILE_ID_EXTD_DIR_INFO, ByVal dwBufferSize As Long) As Integer
Private Declare Function OpenFile Lib "kernel32.dll" (ByVal lpFileName As String, ByRef lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
Private Declare Function er Lib "kernel32.dll" Alias "GetLastError" () As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal fHandle As Long) As Integer


'len with padding should be 40 bytes
'structure padding and packing
Private Const OFS_MAXPATHNAME = 128
Private Const OF_READWRITE = &H2
Private Const extendedFileInfo = &H13


'typedef struct _FILE_ID_EXTD_DIR_INFO {
'  ULONG         NextEntryOffset;
'  ULONG         FileIndex;
'  LARGE_INTEGER CreationTime;
'  LARGE_INTEGER LastAccessTime;
'  LARGE_INTEGER LastWriteTime;
'  LARGE_INTEGER ChangeTime;
'  LARGE_INTEGER EndOfFile;
'  LARGE_INTEGER AllocationSize;
'  ULONG         FileAttributes;
'  ULONG         FileNameLength;
'  ULONG         EaSize;
'  ULONG         ReparsePointTag;
'  FILE_ID_128   FileId;
'  WCHAR         FileName[1];
'} FILE_ID_EXTD_DIR_INFO, *PFILE_ID_EXTD_DIR_INFO;
'
'typedef struct _EXT_FILE_ID_128 {
'  BYTE Identifier[16];
'} EXT_FILE_ID_128, *PEXT_FILE_ID_128;


Private Type EXT_FILE_ID_128
    identifier(16) As Byte
End Type


Private Type FILE_ID_EXTD_DIR_INFO
    NextEntryOffset As Double
    FileIndex As Double
    CreationTime As Double
    LastAccessTime As Double
    LastWriteTime As Double
    ChangeTime As Double
    EndOfFile As Double
    AllocationSize As Double
    FileAttributes As Double
    FileNameLength As Double
    EaSize As Double
    ReparsePointTag As Double
    FileId As EXT_FILE_ID_128
    FileNameStartLetter As Integer
    
End Type




Private Type OFSTRUCT
    cBytes As Byte
    fFixedDisk As Byte
    nErrCode As Integer
    Reserved1 As Integer
    Reserved2 As Integer
    szPathname(0 To OFS_MAXPATHNAME - 1) As Byte '0-based
End Type


Private Type FILE_BASIC_INFORMATION
    CreationTime As Date
    LastcessTime As Date
    LastWriteTime As Date
    ChangeTime As Date
    FileAttribute As Double
End Type




Sub cc()
    Dim OFS As OFSTRUCT
    Dim hFile As Long
    Dim fileExtendedInfo As FILE_ID_EXTD_DIR_INFO
    Dim lSize As Long
    Dim sPath As String
    Dim retval As Integer
    
    
    sPath = "d:\cc\1.dft"
    lSize = 120 'LenB(fileExtendedInfo) '+padding
    hFile = OpenFile(sPath, OFS, OF_READWRITE)
    
  retval = getfileinfo(hFile, 19, fileExtendedInfo, lSize)
    
    Debug.Print er
    Debug.Print hFile
    Debug.Print retval
    Debug.Print
    Debug.Print fileExtendedInfo.AllocationSize
    Debug.Print fileExtendedInfo.ChangeTime
    Debug.Print fileExtendedInfo.CreationTime
    Debug.Print fileExtendedInfo.EaSize
    Debug.Print fileExtendedInfo.EndOfFile
    Debug.Print fileExtendedInfo.FileAttributes
    
    Debug.Print fileExtendedInfo.FileIndex
    Debug.Print fileExtendedInfo.FileIndex
    Debug.Print fileExtendedInfo.FileNameLength
    Debug.Print fileExtendedInfo.FileNameStartLetter
    Debug.Print fileExtendedInfo.LastAccessTime
    Debug.Print fileExtendedInfo.LastWriteTime
    Debug.Print fileExtendedInfo.NextEntryOffset
    Debug.Print fileExtendedInfo.ReparsePointTag
    
    retval = CloseHandle(hFile)
    Debug.Print er
    Debug.Print retval & " 'non-zero if succeeded"
    


 
End Sub

Is is possible to get those values in the image directly using windows libraries, like kernel32.dll, docprop.dll (docprop.dll appears in Dependency walker when I right click on 1.dft and go to properties and disappears when I exit properties dialog box.)?

[J FelixBosco]

SamT your code may work on ms office files. But how to get custom properties of other files like this 1.zip

[J FelixBosco]

Hi YasserKhalil got any ideas how to get the custom properties of 1.dft in 1.zip

[YasserKhalil]

Waiting for experts. They must have ideas about the issue
Just be patient

[J FelixBosco]

Sure YasserKhalil I'll be patient.

[SamT]

: