.mp3 Save File Properties - Search & Google didn't helped

[Yaerox]

Hey guys,

I started to write an Program on my own to edit FileProperties. I found a Thread about it but actual didn't found something what could help me.

I want to Read FileProperties. Got this working with:

expandcollapse popup

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

I wrote a GUI where I just put the informations in Inputcontrols that I can edit them (just editable ones) and now I'd like to get a way to save them. I read the Thread but I couldn't find the right Functions to save them. Could you guys help me please? The Properties I'm looking forward to save are:

Title, Author, Artist, AlbumTitle, Year, TrackNumber, Genre

Regards

[Melba23]

MikeWenzel,

You will have to set/create the ID3 tags to store that information. I do it as I rip the original file and use TagScanner if I need to amend the data, but if you are looking for an AutoIt solution there is this UDF which you might find useful.

M23

[Yaerox]

Hmm, found this solution too ... did I really understood it right, I have to open a file, read this tags, save this tags and close the file? Then I have to look up more ... don't get this running actual ^^

Edit: I tried

$FILE = "PATH/TO/MYFILE.mp3"

_ID3v1Field_SetString("Title", GUICtrlRead($hinput_Titel), 0) ;force pad with 0x00

_ID3v1Tag_WriteToFile($FILE)

But nothing happens. So I think I have to edit both functions and set some Errors maybe to find out where this script is stopping...

Edited March 3, 2013 by MikeWenzel