by Steegy » Thu Feb 16, 2006 7:19 pm
ExtensionToLowercase forum post.
This script changes the file extension to lowercase for all selected files.
The script consists of 1 script file ("ExtensionToLowercase.vbs").
See
How do I install scripts? for more help on installing the script.
ExtensionToLowercase.vbs (for the Scripts folder)
Code: Select all
'====================================================================================
'
' MEDIAMONKEY SCRIPT: ExtensionToLowercase v1.1 (last updated 2007-01-02) by Steegy
' Initiated on 2006-02-17
'
' The ExtensionToLowercase script changes the file extension to lowercase for all selected files.
'
' Installation instructions:
' - Copy this script as plain text file named ExtensionToLowercase.vbs, to the MediaMonkey Scripts folder
' - Add a script entry to file Scripts.ini (example shown below)
'
' [ExtensionToLowercase]
' FileName=ExtensionToLowercase.vbs
' ProcName=ExtensionToLowercase
' Order=7
' DisplayName=ExtensionToLowercase
' Description=ExtensionToLowercase
' Language=VBScript
' ScriptType=0
'
'==========================================================================
Sub ExtensionToLowercase
Dim mySongList : Set mySongList = SDB.CurrentSongList
If mySongList.Count = 0 Then
SDB.MessageBox "Nothing selected!", mtError, Array(mbOK)
Exit Sub
End If
Dim i, mySong, Result
For i = 0 To mySongList.Count - 1
Set mySong = mySongList.Item(i)
Result = FilePathExtensionToLowercase(mySong.Path)
If Result <> "" Then
mySong.Path = Result
mySong.UpdateDB
End If
Next
End Sub
Function FilePathExtensionToLowercase(FilePath)
FilePathExtensionToLowercase = ""
Dim FSO : Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(FilePath) Then
Dim File : Set File = FSO.GetFile(FilePath)
If FSO.GetExtensionName(File) <> LCase(FSO.GetExtensionName(File)) Then
FilePathExtensionToLowercase = File.ParentFolder.Path & "\" & FSO.GetBaseName(File) & "." & LCase(FSO.GetExtensionName(File))
End If
End If
End Function
[u][i][b]ExtensionToLowercase forum post.[/b][/i][/u]
This script changes the file extension to lowercase for all selected files.
The script consists of 1 script file ("ExtensionToLowercase.vbs").
See [url=http://www.mediamonkey.com/faq/index.php?action=artikel&cat=373736&id=8&artlang=en]How do I install scripts?[/url] for more help on installing the script.
[b]ExtensionToLowercase.vbs[/b] (for the Scripts folder)
[code]'====================================================================================
'
' MEDIAMONKEY SCRIPT: ExtensionToLowercase v1.1 (last updated 2007-01-02) by Steegy
' Initiated on 2006-02-17
'
' The ExtensionToLowercase script changes the file extension to lowercase for all selected files.
'
' Installation instructions:
' - Copy this script as plain text file named ExtensionToLowercase.vbs, to the MediaMonkey Scripts folder
' - Add a script entry to file Scripts.ini (example shown below)
'
' [ExtensionToLowercase]
' FileName=ExtensionToLowercase.vbs
' ProcName=ExtensionToLowercase
' Order=7
' DisplayName=ExtensionToLowercase
' Description=ExtensionToLowercase
' Language=VBScript
' ScriptType=0
'
'==========================================================================
Sub ExtensionToLowercase
Dim mySongList : Set mySongList = SDB.CurrentSongList
If mySongList.Count = 0 Then
SDB.MessageBox "Nothing selected!", mtError, Array(mbOK)
Exit Sub
End If
Dim i, mySong, Result
For i = 0 To mySongList.Count - 1
Set mySong = mySongList.Item(i)
Result = FilePathExtensionToLowercase(mySong.Path)
If Result <> "" Then
mySong.Path = Result
mySong.UpdateDB
End If
Next
End Sub
Function FilePathExtensionToLowercase(FilePath)
FilePathExtensionToLowercase = ""
Dim FSO : Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(FilePath) Then
Dim File : Set File = FSO.GetFile(FilePath)
If FSO.GetExtensionName(File) <> LCase(FSO.GetExtensionName(File)) Then
FilePathExtensionToLowercase = File.ParentFolder.Path & "\" & FSO.GetBaseName(File) & "." & LCase(FSO.GetExtensionName(File))
End If
End If
End Function
[/code]