
GIL wrote:Why when renaming filenames the status bar says X track(s) to be tagged?
Is it really retagging or just uses the same language as fields that are in the tag?
forschi wrote:copy the numbers to another tag
^.*RegExpEx(oSongData.Comment, "^.*?-\s?(\d+)", 0, 0)forschi wrote:while leaving everything in front of " - " as it is ... and replace it with a 2-digit number
^(\d\d?)(\w/)(\d\d?)(\w)\s?-.*Right("0$1", 2) & "$2" & Right("0$3", 2) & "$4" Execute ("oSongData." & sSongData & " = " & sAfter)If sSongData = "Path" Then
Set oFileSys = CreateObject("Scripting.FileSystemObject")
sFolder = Left(sAfter, InStrRev(sAfter, "\") - 1)
If Not sFolder = oFileSys.GetFolder(sFolder).Path Then
sFolder = Split(sFolder,"\")
Dim A
For A = Ubound(sFolder) To 1 Step -1
If Not sFolder(A) = oFileSys.GetFolder(Join(sFolder,"\")).Name Then Call oFileSys.MoveFolder(Join(sFolder,"\"),Join(sFolder,"\"))
On Error Resume Next
Err.Clear
ReDim Preserve sFolder(A - 1)
Next
'oSongData.path = oFileSys.GetFile(oSongData.path)
End If
End Ifonly one haze wrote:do i have to have the gold version to use this? i tried to install and it says product install error... any help would be greatly appreciated...LOVE MM by the way
Users browsing this forum: medmkone and 13 guests