file description ?????

[AlienStar 0]

hello everybody

is there any way to read file (application) description by autoit ???

thanks

[Melba23 2,731]

AlienStar,

Take a look here to see how to read file properties.

M23

[AlienStar 0]

thanks Melba23

would you please tell me where the problem is in this code ? :

expandcollapse popup

; Object code modified from original by Simulcal & PsaltyDS

$message = "choose a file"

$var = FileOpenDialog($message, @DesktopDir & "\", "app(*.exe;*.dll)", 1 + 4 )

_Read_File_Properties($var)

Func _Read_File_Properties($sPassed_File_Name)

    Local  $iError = 0
    
    Local $sDir_Name = StringRegExpReplace($sPassed_File_Name, "(^.*\\)(.*)", "\1")
    MsgBox(0, "sDir_Name", $sDir_Name)
    
    Local $sFile_Name = StringRegExpReplace($sPassed_File_Name, "^.*\\", "")
    MsgBox(0, "sFile_Name", $sFile_Name)
        
    Local $sDOS_Dir = FileGetShortName($sDir_Name, 1)
    MsgBox(0, "sDOS_Dir", $sDOS_Dir)
    
    Local $oShellApp = ObjCreate("shell.application")
    If IsObj($oShellApp) Then
        Local $oDir = $oShellApp.NameSpace($sDOS_Dir)
        MsgBox(0, "oDir ", $oDir)
        
        If IsObj($oDir) Then
            Local $oFile = $oDir.Parsename($sFile_Name)
            If IsObj($oFile) Then

                $sFile_Property = $oDir.GetDetailsOf($oFile,173) ; Insert number for property required
                MsgBox(0, "Property", $sFile_Property)
            Else
                $iError = 3
            EndIf
        Else
            $iError = 2
        EndIf
    Else
        $iError = 1
    EndIf

    If $iError > 0 Then
        Local $sMsg = "Could not read File Properties" & @CRLF & @CRLF & _
                $iError & @CRLF & @CRLF & $sPassed_File_Name
        MsgBox(0, "Error", $sMsg)
    EndIf

EndFunc   ;==>_Read_File_Properties

[Melba23 2,731]

AlienStar,

There is no problem with the code - but I think you are using the wrong property code.

Try using 34 - File Description - and see how you get on.

M23

P.S. You will not see anything displayed when you try MsgBox(0, "oDir ", $oDir) - object references cannot be read by mortals, only computers.

[GEOSoft 64]

P.S. You will not see anything displayed when you try MsgBox(0, "oDir ", $oDir) - object references cannot be read by mortals, only computers.

Oh so true but he might want to read up on ObjName() in the help file. I didn't test it against this particular code but it will sometimes do the job as in

MsgBox(0, "oDir ", ObjName($oDir))

It is imperative to read the help file on this one since there is a remark about it's use.

[AlienStar 0]

oh thanks so much Melba23

it works finally

also thanks GEOSoft for sharing

Edited February 4, 2011 by AlienStar