File renaming using VBScript

[tsopr]

Hello,

I've created a simple batch file (as listed below) for renaming multiple files in the same directory:

 
@echo off
SETLOCAL ENABLEDELAYEDEXPANSION
SET old=EN
SET new=_ENG
for /f "tokens=*" %%f in ('dir /b *.890') do (
  SET newname=%%f
  SET newname=!newname:%old%=%new%!
  move "%%f" "!newname!"
)
 

As you can see the script only changes "EN" to "_ENG".
My problem is - I need this script to work in a network directory (not a local one) and the .bat script does not working in mine network environment.
I understood that there is a simple VBScript that does the same as mine .bat but also works in the network environment.


Thanks for your attention. I’m looking forward to your reply.
Miki

[Frinavale]

You have posted your question in the VB.NET forum.

You can easily write a simple program (like a console application) that renames files in a directory like what you are looking for.

First you would have to download and install something like Visual Studio Express which will let implement (write) the code and then will compile the code into an application that you can run.

Then you would just have to check the Microsoft Documentation on the MSDN Library to learn about things like the FileSystem.RenameFile Method, the Directory.GetFiles Method, and the String Replace and Substring methods . The documentation in the MSDN library even contains code examples (see the links).

For example, this console application will rename all file names in the directory supplied:

Module Module1
 
    Sub Main(ByVal args As String())
 
        'Example from MSDN:
        'My.Computer.FileSystem.RenameFile("C:\FilesToRename\Test.txt", "SecondTest.txt")
 
        ' You can supply arguments to the command line application through the command line when you execute the application
        ' This application expects 3 arguments: the path to the folder that contain the files, 
        ' the old part of the name (string) to replace and the new value that will replace the old one (also a string)
        'If Not args.Count = 3 Then
        '       Console.WriteLine("Please provide a path to the directory with the files in it, the text you want to replace, and the text you want to replace it with.")
        'Else
        '       do processing
        'End If
 
        Dim path As String = String.Empty
        Dim originalText As String = String.Empty
        Dim replacementText As String = String.Empty
 
        If Not args.Count = 3 Then
            path = "C:\FilesToRename\"
            originalText = "en"
            replacementText = "eng"
        Else
            path = args(0)
            originalText = args(1)
            replacementText = args(2)
        End If
 
        Dim errorMessage As String = String.Empty
 
        If Not System.IO.Directory.Exists(path) Then
            errorMessage = String.Format("'{0}' does not exist or is invalid.", path)
        End If
        If String.IsNullOrEmpty(originalText) Then
            errorMessage = "Please provide text that you would like replaced"
        End If
 
        If Not String.IsNullOrEmpty(errorMessage) Then
            Console.WriteLine(errorMessage)
        Else
            ProcessDirectory(path, originalText, replacementText)
        End If
 
 
        Console.WriteLine("Please press enter to end the application")
        Console.ReadLine()
 
    End Sub
    Public Sub ProcessDirectory(ByVal targetDirectory As String, ByVal originalText As String, ByVal replacementText As String)
        Dim fileEntries As String() = System.IO.Directory.GetFiles(targetDirectory)
        ' Process the list of files found in the directory.
        Dim fileName As String
        For Each fileName In fileEntries
            Dim lastDirSeparatorIndex = fileName.LastIndexOf("\"c)
            Dim originalFileName = fileName.Substring(lastDirSeparatorIndex + 1, fileName.Length - lastDirSeparatorIndex - 1)
            Dim newName = originalFileName.Replace(originalText, replacementText)
            Console.WriteLine(String.Format("Renaming '{0}' to '{1}'", originalFileName, newName))
            My.Computer.FileSystem.RenameFile(fileName, newName)
        Next
        ''The following uses recursion to loop through
        ''each sub directory and rename all the files
        ''using this same process
        ''(recursion is a fancy way of saying the function calls itself again to process additional data)
        'Dim subdirectoryEntries As String() = System.IO.Directory.GetDirectories(targetDirectory)
        '' Recurse into subdirectories of this directory.
        'Dim subdirectory As String
        'For Each subdirectory In subdirectoryEntries
        '    ProcessDirectory(subdirectory, originalText, replacementText)
        'Next 
    End Sub 'End of ProcessDirectory
End Module

And if you have any problems or questions just post back here and we'll help you.

[tsopr]

Thank you for all your assistance!