Sign in to follow this  
Followers 0
Dizzy

All file info

9 posts in this topic

Hi,

i'm sure, that i've seen a *.au3 file (nearly sure it was an UDF) for all file infos.

They where stored in an array ..

Can someone give me the link? :P

Thx

Dizzy

Share this post


Link to post
Share on other sites



#3 ·  Posted (edited)

ALL files? Hmm.. you'd need a search UDF for that. The _WinAPI_FileFind in my signature does provide you with all file information.. so if you use that to build an array it could work..

*edit: ahh, Jos comes to save the day. Gee, I didn't even know about that function myself haha

Edited by ascendant

Share this post


Link to post
Share on other sites

Hi Jos,

no, it was more than that.

I remember an 2D array up to ~25 postions.

Something like

xxx[0][1] = filesize

xxx[0][2] = last modifed

etc.

Greets

Dizzy

Share this post


Link to post
Share on other sites

http://www.autoitscript.com/forum/index.php?showtopic=25859

;===============================================================================
; 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  ;==>_GetExtProperty

My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list]

Share this post


Link to post
Share on other sites

Yes - right ... this "old" one i was looking for. :P

Thx Achilles :unsure:

Dizzy

Share this post


Link to post
Share on other sites

Has anyone used this in Win 7?

I've been trying to use it to get file owner details in Win 7 Pro but it just returns 0 for everything.

Share this post


Link to post
Share on other sites

The index for owner seems to be 10 on win7.

This udf is clearer for me. Although I havn't tested it much.

Share this post


Link to post
Share on other sites

Thanks ;) Much appreciated.

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0