'In my haste about 19 people probably had all there .wav files renamed on there
default WE App directory.
'Copy the below to fix the problem and place the .vbs file in the default
directory.
'Renaming any .ogg files back to .wav files.
'Make a .vbs file and insert this into it:
Sub RenameFileExtensions( ByVal OldExt, ByVal NewExt)
'Rename all Old .ogg files back to New .wav files.
Dim objShell, objFSO, objFile, Ext
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objFolder, currentFolder
' Fetchthe the current folder.
Set currentFolder = objFSO.GetFolder( objShell.CurrentDirectory & "\")
NewExt = LCase( Trim( NewExt))
OldExt = LCase( Trim( OldExt))
If InStr( OldExt, ".") > 0 Then OldExt = Mid( OldExt, InStr( OldExt, ".") +1)
If InStr( NewExt, ".") > 0 Then NewExt = Mid( NewExt, InStr( NewExt, ".") +1)
For Each objFile In currentFolder.Files
Ext = LCase( objFSO.GetExtensionName( objFile.Path))
if Ext = OldExt then
FileName = Left( objFile.Name, Len( objFile.Name) -Len( OldExt)) & NewExt
'Now rename with temp to prevent name conflict then rename temp.
TempFileName = objFSO.GetTempName
objFile.Name = TempFileName
objFile.Name = FileName
' msgBox " New Name: " & objFile.Name
End If
Next
Set currentFolder = Nothing
Set objFSO = Nothing
Set objShell = Nothing
End Sub
RenameFileExtensions "ogg", "wav"
---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus
-------------- next part --------------
An HTML attachment was scrubbed...
URL:
<http://lists.window-eyes.com/private.cgi/scripting-window-eyes.com/attachments/20150708/7178ff68/attachment.htm>
_______________________________________________
Any views or opinions presented in this email are solely those of the author
and do not necessarily represent those of Ai Squared.
For membership options, visit
http://lists.window-eyes.com/options.cgi/scripting-window-eyes.com/archive%40mail-archive.com.
For subscription options, visit
http://lists.window-eyes.com/listinfo.cgi/scripting-window-eyes.com
List archives can be found at
http://lists.window-eyes.com/private.cgi/scripting-window-eyes.com
