Renaming Files in a Directory 2

[PaullyB]

I need to rename all files in a directory on an NT Server. The current filenames are *_*.wmf

I need to strip out the _* from the name.

For example, a file named AOL_1.wmf should be renamed to AOL.wmf

Does anybody know an easy way to do this for all files in a directory via a VB executable or .bat file?

 

[JWhyte]

I don't know if this will help you but you might do the following:

Dim FSO
Dim mFile
Dim strWork

Set FSO = CreateObject("Scripting.FileSystemObject&quot

For Each mFile In FSO.GetFolders("C:\Temp&quot.Files
strWork = Left(mFile.Path,Instr(1,mFile.Path,"_&quot-1)
strWork = strWork & FSO.GetExtensionName(mFile.Path)
FSO.CopyFile mFile.Path,strWork
mFile.Delete
Next

Try this out and see if it works. It should copy the file as the new file name then delete it afterwards

John Whyte
jwhyte@skipton.co.uk