AlienStar 1 Posted February 3, 2011 hello everybody is there any way to read file (application) description by autoit ???thanks Share this post Link to post Share on other sites
Melba23 3,457 Posted February 3, 2011 AlienStar, Take a look here to see how to read file properties. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Share this post Link to post Share on other sites
AlienStar 1 Posted February 3, 2011 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 Share this post Link to post Share on other sites
Melba23 3,457 Posted February 3, 2011 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. M23P.S. You will not see anything displayed when you try MsgBox(0, "oDir ", $oDir) - object references cannot be read by mortals, only computers. Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Share this post Link to post Share on other sites
GEOSoft 67 Posted February 3, 2011 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. GeorgeQuestion about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.*** The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number.Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else."Old age and treachery will always overcome youth and skill!" Share this post Link to post Share on other sites
AlienStar 1 Posted February 3, 2011 (edited) oh thanks so much Melba23 it works finally also thanks GEOSoft for sharing Edited February 4, 2011 by AlienStar Share this post Link to post Share on other sites
