rename file using vbscript

@Blue

Can i have any date function for this statement ?

'strCurrentFolder = "G:\\kamaraj\\YYYY\\MMM\\"

my script has to replace the YYYY as 2009 and MMM as NOV
and next month the MMM has to be DEC

any idea ?

And do i have any log information ? ( if any file is failed )

"Can i have any date function for this statement ?"
Sure, that's easy.  Replace line 5 with

    strCurrentFolder = "G:\kamaraj\" & Year(Date) & "\" & MonthName(Date,True) & "\"

"And do i have any log information ? ( if any file is failed )"
No logging in this version.  Could add logging if you need it.

yes, i  need logging :)

it gives some more details ( when i run this script in bulk files )

What sort of details do you want to log?  

Log has like the original file name and the replace file name.

and status of the rename - success or failed

---------------------------------------------------------------
Original File Name          After Rename           Status
---------------------------------------------------------------
ABC-9-adfaf.txt             ABC_09.txt             Success
ABC-8-adfaf.txt             ABC_08.txt             Success
ABC-7-adfaf.txt             ABC_07.txt             Success
ABC-6-adfaf.txt             ABC_06.txt             Success
                                              

1:
2:
3:
4:
5:
6:
7:

Showing the file name before and after renaming is easy enough, but I don't see how to determine whether the rename was successful or not.  With very few exceptions the file is going to be renamed even if the resulting name is wrong.  It's easy for you and I with our human intelligence to see that a file name didn't come out right.  That's because our brains are great at pattern recognition.  I can have the script see if the new file name matches the pattern of three letters followed by an underscore followed by two digits, but that doesn't mean the file name is correct.  If the input file name was "ABC-9-adfaf.txt" and the renamed file came out as "BAC_90" that test would report success even though the name is clearly wrong.  The only failure the script can readily detect is if the input file name doesn't match the required pattern.  The pattern for input is 3 letters dash 1 number dash 3 letters dash some numbers and periods.  The key is the first two segments of the name separated by a dash.  I can have the script check to make sure that those two segments exist and are the right type and length.  Testing the new name seems impossible since there's really nothing to test it against.  

I accept your points,

Can you wait for some more time. I will show my script (modified one) to you (after i reach office). If my boss needs a log facility then we both will work out :)

thanks a lot for your help.

Sure.  I'll be here when you're ready to move on.

This is the final script. And i will work on the logging and if i have any doubt then i will open another question.
thanks
kamaraj.s

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
Dim strCurrentFolder
 
strCurrentFolder = "G:\\MarketMaking\\plapptext\\"& Year(Date) & "\\" & MonthName(Month(Date),True) & "\\"
 
 
Dim objFolder
Set objFolder = objFSO.GetFolder(strCurrentFolder) 
ListDirectory objFolder
WScript.Quit
 
Sub ListDirectory(objFolder)
  Dim objFile
  Dim objSubFolder
  Dim strNewFilename
  Dim cnt
 
  For Each objFile In objFolder.Files
	ext = objFSO.GetExtensionName(objFile.Name)
        cnt = Split((objFSO.GetFileName(objFile.Name)), "-")
        if ubound(cnt) > 1 then
	if ext = "txt" then
  	   strNewFilename = strCurrentFolder & "\" & RenameFile(objFSO.GetFileName(objFile.Name)) & "." & ext
       objFSO.MoveFile objFile.Path, strNewFilename
	end if
        end if
  Next
End Sub
 
Function RenameFile(strFilename)
	Dim arrParts
	arrParts = Split(strFilename, "-")
	RenameFile = arrParts(0) & "_" & StrZero(arrParts(1), 2)
End Function
 
Function StrZero(varValue, varLength)
	Dim varTemp
	varTemp = Len(Trim(CStr(varvalue)))
	If varTemp < varLength Then
		StrZero = String(varLength - Len(varValue),"0") & varValue
	Else
		StrZero = varValue
	End If
End Function

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

thanks a lot :)