Informationen über eine Datei auslesen

[AutoitScript]

Hi epvp,
Ich wüsste gerne ob es eine möglichkeit gibt, Informationen über eine Datei auszulesen wie zum Beispiel Autor, Version ect. (rechtsklick auf beliebige Datei, Eigenschaften, das tab wechseln, hier kann man autor , version, kurzbeschreibung ect einstellen)
Danke für eure hilfe
AutoitScript

[omer36]

google hilft immer...

PHP Code:

;===============================================================================
; 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):
;
;===============================================================================


#include <array.au3>
$path = FileOpenDialog("Select a file to read attributes",@ScriptDir,"All (*.*)")
$prop = _GetExtProperty($path,-1)
_ArrayDisplay($prop,"Property Array")

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 


[AutoitScript]

Danke perfekt.
Ich habe in google auch in der SuFu hier gesucht aber nichts gefunden.

[AutoitScript]

Danke perfekt.
Ich habe in google auch in der SuFu hier gesucht aber nichts gefunden.
Edit: keine ahnung warum das zwei mal da ist...

[PenGuin :O]

Lösch einfach deinen 2. Post.

[V8II]

Bei mir kommt ein Fehler:
C:\Dokumente und Einstellungen\Administrator\Desktop\Neu AutoIt v3 Script.au3 (67) : ==> The requested action with this object has failed.:
$oFile = $oDir.Parsename ($sFile)
$oFile = $oDir.Parsename ($sFile)^ ERROR
>Exit code: 1 Time: 3.124


pls help

EDIT: Kann keiner helfen?

[puzzlr]

Originally Posted by V8II

Bei mir kommt ein Fehler:
C:\Dokumente und Einstellungen\Administrator\Desktop\Neu AutoIt v3 Script.au3 (67) : ==> The requested action with this object has failed.:
$oFile = $oDir.Parsename ($sFile)
$oFile = $oDir.Parsename ($sFile)^ ERROR
>Exit code: 1 Time: 3.124


pls help

EDIT: Kann keiner helfen?

dann poste den script. mein gott. dass man das immer sagen muss. ich meine, wie sollen wir dir anständig helfen können, wenn du uns nur die Fehlermeldung schickst?

[omer36]

u_failed:
schau mal weiter oben

V8II:
hmm..mal versucht als admin auszuführen?
#reqire admin einzufügen?

[V8II]

Nein funktioniert nicht außerdem habe ich Windows XP, da muss man normalerweise nie als Admin ausführen.
Edit:
Hier nochmal für u_failed ^^

 Spoiler

#include <array.au3>
$path = FileOpenDialog("Select a file to read attributes",@ScriptDir,"All (*.*)")
$prop = _GetExtProperty($path,-1)
_ArrayDisplay($prop,"Property Array")

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

Edit2: Funktioniert es bei euch?

[AutoitScript]

Push
Hatte am Nachmittag noch keine Zeit um zu testen aber ich habe das selbe Problem.
Auch ich benutze windows xp

@V8II
Ich habe ein ähnliches Script im Internet gefunden, hier kommt kein Fehler jedoch wird kein Wert zurückgeliefert ich schicke es dir mal per PM

[V8II]

Danke funtzt wie in PN besprochen

[TrickGamer]

Originally Posted by V8II

Nein funktioniert nicht außerdem habe ich Windows XP, da muss man normalerweise nie als Admin ausführen.
Edit:
Hier nochmal für u_failed ^^

 Spoiler

#include <array.au3>
$path = FileOpenDialog("Select a file to read attributes",@ScriptDir,"All (*.*)")
$prop = _GetExtProperty($path,-1)
_ArrayDisplay($prop,"Property Array")

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

Edit2: Funktioniert es bei euch?

also bei mir nicht^^ welche autoit version hast du den?


also ich habe diese funktion noch nie gebraucht werde ich auch nicht

bin ma neugirig: Wozu Dient es wenn ich fragen darf?

[PenGuin :O]

Lesen bildet:

Returns an extended property of a given file.

[omer36]

hmm komisch das es bei euch nciht funtz o.O

bei mir klappts ganz normal.