Quirrell Posted May 2, 2007 Share Posted May 2, 2007 I have posted this three times and it still hasn`t appeared, so here goes again. I am new to autoit and despite reading the manual I am still confused as to:- How do I pass filenames and paths to an output windows in my GUI? Link to comment Share on other sites More sharing options...
eltorro Posted May 2, 2007 Share Posted May 2, 2007 How do I pass filenames and paths to an output windows in my GUI?If you could be more specific, maybe post what you have for a script, someone might be able to assist you. Where are the filenames and paths coming from? Your script? Another process? What kind of output window, an edit box??? --=={ GIGO }==--eltorro Regards, [indent]ElTorro[/indent][font="Book"] Decide, Commit, Achieve[/font]_ConfigIO.au3Language Translation --uses Google(tm) MsgBox Move XML wrapper UDF XML2TreeView Zip functionality Split your GUI Save Print ScreenZipPluginEdit In Place listviewSome of my scripts on Google code Link to comment Share on other sites More sharing options...
Quirrell Posted May 2, 2007 Author Share Posted May 2, 2007 If you could be more specific, maybe post what you have for a script, someone might be able to assist you. Where are the filenames and paths coming from? Your script? Another process? What kind of output window, an edit box??? --=={ GIGO }==--eltorroI want to 1) open a group of files (on the HD) with a specific extension2) list them in a window with filesizes etc Link to comment Share on other sites More sharing options...
Samuelhug Posted May 2, 2007 Share Posted May 2, 2007 (edited) Is this what you want? Uses Simucal's "GetExtProperty" Function. CODE#include <GUIConstants.au3> #include <File.au3> #include <Array.au3> $GUI = GUICreate("Files", 633, 474) $ListView = GUICtrlCreateListView("Name|Size|Owner|Author|Date Modified|Date Created", 0, 30, 632, 424, _ BitOR($LVS_SINGLESEL, $LVS_ICON, $LVS_SHOWSELALWAYS, $WS_VSCROLL)) Dim $FileArray[1] $FileArray[0] = 0 GUISetState() $FileListArray = _FileListToArray(@SystemDir, "*.dll") If Not @error Then For $i = 1 To $FileListArray[0] $file = $FileListArray[$i] If @error Then ExitLoop Local $filepath = @SystemDir & "\" & $file Local $author = _GetExtProperty($filepath,9) If $author = "0" Then $author = "" _ArrayAdd($FileArray, GUICtrlCreateListViewItem($file & "|" & _GetExtProperty($filepath,1) & _ "|" & _GetExtProperty($filepath,8) & "|" & $author & "|" & _ _GetExtProperty($filepath,3) & "|" & _GetExtProperty($filepath,4), $ListView)) $FileArray[0] += 1 Next EndIf While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd ;=============================================================================== ; Function Name: GetExtProperty($sPath,$iProp) ; Description: Returns an extended property of a given file. ; Parameter(s): $sPath - The path to the file you are attempting to retrieve an extended property from. ; $iProp - The numerical value for the property you want returned. If $iProp is is set ; to -1 then all properties will be returned in a 1 dimensional array in their corresponding order. ; The properties are as follows: ; Name = 0 ; Size = 1 ; Type = 2 ; DateModified = 3 ; DateCreated = 4 ; DateAccessed = 5 ; Attributes = 6 ; Status = 7 ; Owner = 8 ; Author = 9 ; Title = 10 ; Subject = 11 ; Category = 12 ; Pages = 13 ; Comments = 14 ; Copyright = 15 ; Artist = 16 ; AlbumTitle = 17 ; Year = 18 ; TrackNumber = 19 ; Genre = 20 ; Duration = 21 ; BitRate = 22 ; Protected = 23 ; CameraModel = 24 ; DatePictureTaken = 25 ; Dimensions = 26 ; Width = 27 ; Height = 28 ; Company = 30 ; Description = 31 ; FileVersion = 32 ; ProductName = 33 ; ProductVersion = 34 ; Requirement(s): File specified in $spath must exist. ; Return Value(s): On Success - The extended file property, or if $iProp = -1 then an array with all properties ; On Failure - 0, @Error - 1 (If file does not exist) ; Author(s): Simucal (Simucal@gmail.com) ; Note(s): ; ;=============================================================================== Func _GetExtProperty($sPath, $iProp) Local $iExist, $sFile, $sDir, $oShellApp, $oDir, $oFile, $aProperty, $sProperty $iExist = FileExists($sPath) If $iExist = 0 Then SetError(1) Return 0 Else $sFile = StringTrimLeft($sPath, StringInStr($sPath, "\", 0, -1)) $sDir = StringTrimRight($sPath, (StringLen($sPath) - StringInStr($sPath, "\", 0, -1))) $oShellApp = ObjCreate ("shell.application") $oDir = $oShellApp.NameSpace ($sDir) $oFile = $oDir.Parsename ($sFile) If $iProp = -1 Then Local $aProperty[35] For $i = 0 To 34 $aProperty[$i] = $oDir.GetDetailsOf ($oFile, $i) Next Return $aProperty Else $sProperty = $oDir.GetDetailsOf ($oFile, $iProp) If $sProperty = "" Then Return 0 Else Return $sProperty EndIf EndIf EndIf EndFunc ;==>_GetExtPropertyfilelist.au3 Edited May 2, 2007 by Samuelhug Link to comment Share on other sites More sharing options...
Quirrell Posted May 2, 2007 Author Share Posted May 2, 2007 This is Perfect. Thank you very much Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now