File rename

[newyorker213]

Hello,

We have files ( named in the following format ) in one of our folders:

MV0001.XLS
MV0002.XLS
and so on

WV0001.XLS
WV0002.XLS
and so son

CV0001.XLS
CV0002.XLS
and so on

We need a script that will rename the files in the following way:

if filename starts with 'M', rename file to " XXXXX_SERVER1_YYYY_MM"
( where 'XXXXX' are the 2nd - 6th characters of the original file name e.g.V0001,
V0002 etc,
'AA' are constant texts,
'YYYY' is current year,
'MM' is previous month )

similarly, if filename starts with 'W', rename files to "XXXXX_SERVER2_YYYY_MM" , and if it starts with
'C', rename to "XXXXX_SERVER3_YYYY_MM".

Any help will be greatly appreciated.

[debasisdas]

Kindly post what you have tried so far.

[jamesd0142]

I tried something similar: take a look and see if it gives you any idea where to start...

Private Sub RenameFiles(ByVal StartPath As String)
        Dim myfolder As DirectoryInfo = New DirectoryInfo(StartPath)
        Dim mySubfolders() As FileInfo = myfolder.GetFiles()
        Dim strFiles() As FileInfo = myfolder.GetFiles()
 
        For Each myItem As FileInfo In strFiles
            'myItem.Delete()
            'open File
            Dim a As String = StartPath & "\" & myItem.ToString
 
            'read File
            Dim EntireLine1 As String
            Dim oFile1 As System.IO.File
            Dim oRead1 As System.IO.StreamReader
            If System.IO.File.Exists(a) = True Then
                oRead1 = oFile1.OpenText(a)
                EntireLine1 = oRead1.ReadToEnd
                oRead1.Close() 'test line
            End If
            Dim b As String = "2008" 'vbCrLf
            'find date
            date1 = EntireLine1.Substring(EntireLine1.IndexOf("DATE"), EntireLine1.IndexOf(b)) ', EntireLine1.IndexOf("2008"))
 
            'function cuts of the end of the line where it finds a return character or line feed...
            For i = 1 To Len(date1)
                j = Mid(date1, i, 1)
                If a = vbCr Or a = vbLf Then
                    Exit For
                End If
            Next
            date1 = Mid(date1, 6, i - 7)
 
            'rename File
            If System.IO.File.Exists(a) = True Then
                FileSystem.Rename(a, StartPath & "\" & RTrim(date1) & ".txt")
                'System.IO.File.Move(a, StartPath & "\" & RTrim(date1) & ".txt")
                'either works^^^^^^
            End If
 
        Next
 
    End Sub