Renaming a File

 Dim objFSO

Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim FileNum 

FileNum = 0

Dim strCurrentFolder

strCurrentFolder = "c:\temp"

Dim objFolder

Set objFolder = objFSO.GetFolder(strCurrentFolder)

ListDirectory objFolder

Sub ListDirectory(objFolder)

  Dim objFile

  Dim objSubFolder

  For Each objFile In objFolder.Files

    If UCase(Right(objFile.Path, 3)) = "LOG" Then

        objFSO.MoveFile objFile.Path, "c:\temp\" & FileNum & "_tmp.log"

FileNum = FileNum + 1

    End If  

  Next

End Sub

Click here to get more VBS

Script for OS                                    Script for Registries                Script for Addin

Script for File Operations

Script for WindowsService