Set objFS=CreateObject("Scripting.FileSystemObject")
strFolder = "c:\test"
Set objFolder = objFS.GetFolder(strFolder)
For Each strFile In objFolder.Files
If objFS.GetExtensionName(strFile) = "gif" Then
strFileName = strFile.Name
strNum = Mid(strFileName,2,6)
strNum = strip(strNum)
strNewFileName = Mid(strFileName,1,1) & strNum & Mid(strFileName,8)
strFile.Name strNewFileName
End If
Next
Function strip(str)
s=""
For i=1 To Len(str)
If Mid(str,i,1) <> "0" Then
s=s&Mid(str,i)
Exit For
End If
Next
strip=s
End Function
c:\test> cscript /nologo myscript.vbs