Module modulemain
Dim oldb As String
Dim newb As String
Sub Main()
Console.WriteLine("Basename Renamer by Aaro4130")
Console.WriteLine("-----------v1.0-------------")
Console.WriteLine("Defining Program Settings...")
Console.Title = "Basename Renamer"
'Console.BackgroundColor = ConsoleColor.Gray
'Console.ForegroundColor = ConsoleColor.Black
Console.ForegroundColor = ConsoleColor.Gray
Console.WriteLine(".Program settings defined...")
Console.WriteLine("----------------------------")
Console.WriteLine("Type the current basename:")
If ConsoleKey.Enter Then oldb = Console.ReadLine
Console.WriteLine("Type then new basename:")
If ConsoleKey.Enter Then newb = Console.ReadLine
Console.WriteLine("-----------------------")
Console.WriteLine("Renaming start")
Console.WriteLine("-----------------------")
Try
Console.WriteLine("Renaming opponent CSV files")
FileSystem.Rename("aud\cardata\opponent\" & oldb & ".csv", "aud\cardata\opponent\" & newb & ".csv")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming player CSV files")
FileSystem.Rename("aud\cardata\player\" & oldb & ".csv", "aud\cardata\player\" & newb & ".csv")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming BOUND file")
FileSystem.Rename("BOUND\" & oldb & "_BOUND.bnd", "BOUND\" & newb & "_BOUND.bnd")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & ".pkg")
FileSystem.Rename("GEOMETRY\" & oldb & ".pkg", "GEOMETRY\" & newb & ".pkg")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & ".pkg's subfiles (wheels)")
FileSystem.Rename("GEOMETRY\" & oldb & "_whl0.mtx", "GEOMETRY\" & newb & "_whl0.mtx")
FileSystem.Rename("GEOMETRY\" & oldb & "_whl1.mtx", "GEOMETRY\" & newb & "_whl1.mtx")
FileSystem.Rename("GEOMETRY\" & oldb & "_whl2.mtx", "GEOMETRY\" & newb & "_whl2.mtx")
FileSystem.Rename("GEOMETRY\" & oldb & "_whl3.mtx", "GEOMETRY\" & newb & "_whl3.mtx")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed on one or more wheels")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & ".pkg's subfiles (headlight)")
FileSystem.Rename("GEOMETRY\" & oldb & "_headlight0.mtx", "GEOMETRY\" & newb & "_headlight0.mtx")
FileSystem.Rename("GEOMETRY\" & oldb & "_headlight1.mtx", "GEOMETRY\" & newb & "_headlight1.mtx")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed on one or more headlights")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
If System.IO.File.Exists("GEOMETRY\" & oldb & "_srn0.mtx") Then
Console.WriteLine("Renaming " & oldb & ".pkg's subfiles (siren)")
FileSystem.Rename("GEOMETRY\" & oldb & "_srn0.mtx", "GEOMETRY\" & newb & "_srn0.mtx")
FileSystem.Rename("GEOMETRY\" & oldb & "_srn1.mtx", "GEOMETRY\" & newb & "_srn1.mtx")
FileSystem.Rename("GEOMETRY\" & oldb & "_srn2.mtx", "GEOMETRY\" & newb & "_srn2.mtx")
FileSystem.Rename("GEOMETRY\" & oldb & "_srn3.mtx", "GEOMETRY\" & newb & "_srn3.mtx")
Console.WriteLine("...done")
Else
Console.WriteLine("Renaming " & oldb & ".pkg's subfiles (siren)")
Console.ForegroundColor = ConsoleColor.Yellow
Console.WriteLine("..." & oldb & " is not a cop car. skipping cop parts")
Console.ForegroundColor = ConsoleColor.Gray
End If
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed on one or more siren parts")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_show.jpg")
FileSystem.Rename("JPG\" & oldb & "_show.jpg", "JPG\" & newb & "_show.jpg")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_ulck.jpg")
FileSystem.Rename("JPG\" & oldb & "_ulck.jpg", "JPG\" & newb & "_ulck.jpg")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & ".info")
FileSystem.Rename("TUNE\" & oldb & ".info", "TUNE\" & newb & ".info")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & ".asnode")
FileSystem.Rename("TUNE\" & oldb & ".asnode", "TUNE\" & newb & ".asnode")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_dash.asnode")
FileSystem.Rename("TUNE\" & oldb & "_dash.asnode", "TUNE\" & newb & "_dash.asnode")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & ".mmmirror")
FileSystem.Rename("TUNE\" & oldb & ".mmmirror", "TUNE\" & newb & ".mmmirror")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & ".vehcarsim")
FileSystem.Rename("TUNE\VEHICLE\" & oldb & ".vehcarsim", "TUNE\VEHICLE\" & newb & ".vehcarsim")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_opp.vehcarsim")
FileSystem.Rename("TUNE\VEHICLE\" & oldb & "_opp.vehcarsim", "TUNE\VEHICLE\" & newb & "_opp.vehcarsim")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & ".vehgyro")
FileSystem.Rename("TUNE\VEHICLE\" & oldb & ".vehgyro", "TUNE\VEHICLE\" & newb & ".vehgyro")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & ".vehstuck")
FileSystem.Rename("TUNE\VEHICLE\" & oldb & ".vehstuck", "TUNE\VEHICLE\" & newb & ".vehstuck")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & ".vehcardamage")
FileSystem.Rename("TUNE\VEHICLE\" & oldb & ".vehcardamage", "TUNE\VEHICLE\" & newb & ".vehcardamage")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & ".campovcs")
FileSystem.Rename("TUNE\CAMERA\" & oldb & ".campovcs", "TUNE\CAMERA\" & newb & ".campovcs")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_dash.campovcs")
FileSystem.Rename("TUNE\CAMERA\" & oldb & "_dash.campovcs", "TUNE\CAMERA\" & newb & "_dash.campovcs")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_far.camtrackcs")
FileSystem.Rename("TUNE\CAMERA\" & oldb & "_far.camtrackcs", "TUNE\CAMERA\" & newb & "_far.camtrackcs")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_near.camtrackcs")
FileSystem.Rename("TUNE\CAMERA\" & oldb & "_near.camtrackcs", "TUNE\CAMERA\" & newb & "_near.camtrackcs")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_HEADLIGHT1.dgBangerData")
FileSystem.Rename("TUNE\BANGER\" & oldb & "_HEADLIGHT1.dgBangerData", "TUNE\BANGER\" & newb & "_HEADLIGHT1.dgBangerData")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_HEADLIGHT0.dgBangerData")
FileSystem.Rename("TUNE\BANGER\" & oldb & "_HEADLIGHT0.dgBangerData", "TUNE\BANGER\" & newb & "_HEADLIGHT0.dgBangerData")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_WHL1.dgBangerData")
FileSystem.Rename("TUNE\BANGER\" & oldb & "_WHL1.dgBangerData", "TUNE\BANGER\" & newb & "_WHL1.dgBangerData")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_WHL0.dgBangerData")
FileSystem.Rename("TUNE\BANGER\" & oldb & "_WHL0.dgBangerData", "TUNE\BANGER\" & newb & "_WHL0.dgBangerData")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_WHL2.dgBangerData")
FileSystem.Rename("TUNE\BANGER\" & oldb & "_WHL2.dgBangerData", "TUNE\BANGER\" & newb & "_WHL2.dgBangerData")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_WHL3.dgBangerData")
FileSystem.Rename("TUNE\BANGER\" & oldb & "_WHL3.dgBangerData", "TUNE\BANGER\" & newb & "_WHL3.dgBangerData")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_SRN1.dgBangerData")
FileSystem.Rename("TUNE\BANGER\" & oldb & "_SRN1.dgBangerData", "TUNE\BANGER\" & newb & "_SRN1.dgBangerData")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_SRN0.dgBangerData")
FileSystem.Rename("TUNE\BANGER\" & oldb & "_SRN0.dgBangerData", "TUNE\BANGER\" & newb & "_SRN0.dgBangerData")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_SRN2.dgBangerData")
FileSystem.Rename("TUNE\BANGER\" & oldb & "_SRN2.dgBangerData", "TUNE\BANGER\" & newb & "_SRN2.dgBangerData")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Try
Console.WriteLine("Renaming " & oldb & "_SRN3.dgBangerData")
FileSystem.Rename("TUNE\BANGER\" & oldb & "_SRN3.dgBangerData", "TUNE\BANGER\" & newb & "_SRN3.dgBangerData")
Console.WriteLine("...done")
Catch ex As Exception
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("...failed")
Console.ForegroundColor = ConsoleColor.Gray
End Try
Console.WriteLine("-----------------------------")
Console.WriteLine("--DONE! PRESS ENTER TO EXIT--")
Console.WriteLine("-----------------------------")
Console.Read()
End Sub
End Module