Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Module modulemain
  2.  
  3. Dim oldb As String
  4.  
  5. Dim newb As String
  6.  
  7. Sub Main()
  8.  
  9. Console.WriteLine("Basename Renamer by Aaro4130")
  10.  
  11. Console.WriteLine("-----------v1.0-------------")
  12.  
  13. Console.WriteLine("Defining Program Settings...")
  14.  
  15. Console.Title = "Basename Renamer"
  16.  
  17. 'Console.BackgroundColor = ConsoleColor.Gray
  18.  
  19. 'Console.ForegroundColor = ConsoleColor.Black
  20.  
  21. Console.ForegroundColor = ConsoleColor.Gray
  22.  
  23. Console.WriteLine(".Program settings defined...")
  24.  
  25. Console.WriteLine("----------------------------")
  26.  
  27. Console.WriteLine("Type the current basename:")
  28.  
  29. If ConsoleKey.Enter Then oldb = Console.ReadLine
  30.  
  31. Console.WriteLine("Type then new basename:")
  32.  
  33. If ConsoleKey.Enter Then newb = Console.ReadLine
  34.  
  35. Console.WriteLine("-----------------------")
  36.  
  37. Console.WriteLine("Renaming start")
  38.  
  39. Console.WriteLine("-----------------------")
  40.  
  41. Try
  42.  
  43. Console.WriteLine("Renaming opponent CSV files")
  44.  
  45. FileSystem.Rename("aud\cardata\opponent\" & oldb & ".csv", "aud\cardata\opponent\" & newb & ".csv")
  46.  
  47. Console.WriteLine("...done")
  48.  
  49. Catch ex As Exception
  50.  
  51. Console.ForegroundColor = ConsoleColor.Red
  52.  
  53. Console.WriteLine("...failed")
  54.  
  55. Console.ForegroundColor = ConsoleColor.Gray
  56.  
  57. End Try
  58.  
  59. Try
  60.  
  61. Console.WriteLine("Renaming player CSV files")
  62.  
  63. FileSystem.Rename("aud\cardata\player\" & oldb & ".csv", "aud\cardata\player\" & newb & ".csv")
  64.  
  65. Console.WriteLine("...done")
  66.  
  67. Catch ex As Exception
  68.  
  69. Console.ForegroundColor = ConsoleColor.Red
  70.  
  71. Console.WriteLine("...failed")
  72.  
  73. Console.ForegroundColor = ConsoleColor.Gray
  74.  
  75. End Try
  76.  
  77. Try
  78.  
  79. Console.WriteLine("Renaming BOUND file")
  80.  
  81. FileSystem.Rename("BOUND\" & oldb & "_BOUND.bnd", "BOUND\" & newb & "_BOUND.bnd")
  82.  
  83. Console.WriteLine("...done")
  84.  
  85. Catch ex As Exception
  86.  
  87. Console.ForegroundColor = ConsoleColor.Red
  88.  
  89. Console.WriteLine("...failed")
  90.  
  91. Console.ForegroundColor = ConsoleColor.Gray
  92.  
  93. End Try
  94.  
  95. Try
  96.  
  97. Console.WriteLine("Renaming " & oldb & ".pkg")
  98.  
  99. FileSystem.Rename("GEOMETRY\" & oldb & ".pkg", "GEOMETRY\" & newb & ".pkg")
  100.  
  101. Console.WriteLine("...done")
  102.  
  103. Catch ex As Exception
  104.  
  105. Console.ForegroundColor = ConsoleColor.Red
  106.  
  107. Console.WriteLine("...failed")
  108.  
  109. Console.ForegroundColor = ConsoleColor.Gray
  110.  
  111. End Try
  112.  
  113. Try
  114.  
  115. Console.WriteLine("Renaming " & oldb & ".pkg's subfiles (wheels)")
  116.  
  117. FileSystem.Rename("GEOMETRY\" & oldb & "_whl0.mtx", "GEOMETRY\" & newb & "_whl0.mtx")
  118.  
  119. FileSystem.Rename("GEOMETRY\" & oldb & "_whl1.mtx", "GEOMETRY\" & newb & "_whl1.mtx")
  120.  
  121. FileSystem.Rename("GEOMETRY\" & oldb & "_whl2.mtx", "GEOMETRY\" & newb & "_whl2.mtx")
  122.  
  123. FileSystem.Rename("GEOMETRY\" & oldb & "_whl3.mtx", "GEOMETRY\" & newb & "_whl3.mtx")
  124.  
  125. Console.WriteLine("...done")
  126.  
  127. Catch ex As Exception
  128.  
  129. Console.ForegroundColor = ConsoleColor.Red
  130.  
  131. Console.WriteLine("...failed on one or more wheels")
  132.  
  133. Console.ForegroundColor = ConsoleColor.Gray
  134.  
  135. End Try
  136.  
  137. Try
  138.  
  139. Console.WriteLine("Renaming " & oldb & ".pkg's subfiles (headlight)")
  140.  
  141. FileSystem.Rename("GEOMETRY\" & oldb & "_headlight0.mtx", "GEOMETRY\" & newb & "_headlight0.mtx")
  142.  
  143. FileSystem.Rename("GEOMETRY\" & oldb & "_headlight1.mtx", "GEOMETRY\" & newb & "_headlight1.mtx")
  144.  
  145. Console.WriteLine("...done")
  146.  
  147. Catch ex As Exception
  148.  
  149. Console.ForegroundColor = ConsoleColor.Red
  150.  
  151. Console.WriteLine("...failed on one or more headlights")
  152.  
  153. Console.ForegroundColor = ConsoleColor.Gray
  154.  
  155. End Try
  156.  
  157. Try
  158.  
  159. If System.IO.File.Exists("GEOMETRY\" & oldb & "_srn0.mtx") Then
  160.  
  161. Console.WriteLine("Renaming " & oldb & ".pkg's subfiles (siren)")
  162.  
  163. FileSystem.Rename("GEOMETRY\" & oldb & "_srn0.mtx", "GEOMETRY\" & newb & "_srn0.mtx")
  164.  
  165. FileSystem.Rename("GEOMETRY\" & oldb & "_srn1.mtx", "GEOMETRY\" & newb & "_srn1.mtx")
  166.  
  167. FileSystem.Rename("GEOMETRY\" & oldb & "_srn2.mtx", "GEOMETRY\" & newb & "_srn2.mtx")
  168.  
  169. FileSystem.Rename("GEOMETRY\" & oldb & "_srn3.mtx", "GEOMETRY\" & newb & "_srn3.mtx")
  170.  
  171. Console.WriteLine("...done")
  172.  
  173. Else
  174.  
  175. Console.WriteLine("Renaming " & oldb & ".pkg's subfiles (siren)")
  176.  
  177. Console.ForegroundColor = ConsoleColor.Yellow
  178.  
  179. Console.WriteLine("..." & oldb & " is not a cop car. skipping cop parts")
  180.  
  181. Console.ForegroundColor = ConsoleColor.Gray
  182.  
  183. End If
  184.  
  185. Catch ex As Exception
  186.  
  187. Console.ForegroundColor = ConsoleColor.Red
  188.  
  189. Console.WriteLine("...failed on one or more siren parts")
  190.  
  191. Console.ForegroundColor = ConsoleColor.Gray
  192.  
  193. End Try
  194.  
  195. Try
  196.  
  197. Console.WriteLine("Renaming " & oldb & "_show.jpg")
  198.  
  199. FileSystem.Rename("JPG\" & oldb & "_show.jpg", "JPG\" & newb & "_show.jpg")
  200.  
  201. Console.WriteLine("...done")
  202.  
  203. Catch ex As Exception
  204.  
  205. Console.ForegroundColor = ConsoleColor.Red
  206.  
  207. Console.WriteLine("...failed")
  208.  
  209. Console.ForegroundColor = ConsoleColor.Gray
  210.  
  211. End Try
  212.  
  213. Try
  214.  
  215. Console.WriteLine("Renaming " & oldb & "_ulck.jpg")
  216.  
  217. FileSystem.Rename("JPG\" & oldb & "_ulck.jpg", "JPG\" & newb & "_ulck.jpg")
  218.  
  219. Console.WriteLine("...done")
  220.  
  221. Catch ex As Exception
  222.  
  223. Console.ForegroundColor = ConsoleColor.Red
  224.  
  225. Console.WriteLine("...failed")
  226.  
  227. Console.ForegroundColor = ConsoleColor.Gray
  228.  
  229. End Try
  230.  
  231. Try
  232.  
  233. Console.WriteLine("Renaming " & oldb & ".info")
  234.  
  235. FileSystem.Rename("TUNE\" & oldb & ".info", "TUNE\" & newb & ".info")
  236.  
  237. Console.WriteLine("...done")
  238.  
  239. Catch ex As Exception
  240.  
  241. Console.ForegroundColor = ConsoleColor.Red
  242.  
  243. Console.WriteLine("...failed")
  244.  
  245. Console.ForegroundColor = ConsoleColor.Gray
  246.  
  247. End Try
  248.  
  249. Try
  250.  
  251. Console.WriteLine("Renaming " & oldb & ".asnode")
  252.  
  253. FileSystem.Rename("TUNE\" & oldb & ".asnode", "TUNE\" & newb & ".asnode")
  254.  
  255. Console.WriteLine("...done")
  256.  
  257. Catch ex As Exception
  258.  
  259. Console.ForegroundColor = ConsoleColor.Red
  260.  
  261. Console.WriteLine("...failed")
  262.  
  263. Console.ForegroundColor = ConsoleColor.Gray
  264.  
  265. End Try
  266.  
  267. Try
  268.  
  269. Console.WriteLine("Renaming " & oldb & "_dash.asnode")
  270.  
  271. FileSystem.Rename("TUNE\" & oldb & "_dash.asnode", "TUNE\" & newb & "_dash.asnode")
  272.  
  273. Console.WriteLine("...done")
  274.  
  275. Catch ex As Exception
  276.  
  277. Console.ForegroundColor = ConsoleColor.Red
  278.  
  279. Console.WriteLine("...failed")
  280.  
  281. Console.ForegroundColor = ConsoleColor.Gray
  282.  
  283. End Try
  284.  
  285. Try
  286.  
  287. Console.WriteLine("Renaming " & oldb & ".mmmirror")
  288.  
  289. FileSystem.Rename("TUNE\" & oldb & ".mmmirror", "TUNE\" & newb & ".mmmirror")
  290.  
  291. Console.WriteLine("...done")
  292.  
  293. Catch ex As Exception
  294.  
  295. Console.ForegroundColor = ConsoleColor.Red
  296.  
  297. Console.WriteLine("...failed")
  298.  
  299. Console.ForegroundColor = ConsoleColor.Gray
  300.  
  301. End Try
  302.  
  303. Try
  304.  
  305. Console.WriteLine("Renaming " & oldb & ".vehcarsim")
  306.  
  307. FileSystem.Rename("TUNE\VEHICLE\" & oldb & ".vehcarsim", "TUNE\VEHICLE\" & newb & ".vehcarsim")
  308.  
  309. Console.WriteLine("...done")
  310.  
  311. Catch ex As Exception
  312.  
  313. Console.ForegroundColor = ConsoleColor.Red
  314.  
  315. Console.WriteLine("...failed")
  316.  
  317. Console.ForegroundColor = ConsoleColor.Gray
  318.  
  319. End Try
  320.  
  321. Try
  322.  
  323. Console.WriteLine("Renaming " & oldb & "_opp.vehcarsim")
  324.  
  325. FileSystem.Rename("TUNE\VEHICLE\" & oldb & "_opp.vehcarsim", "TUNE\VEHICLE\" & newb & "_opp.vehcarsim")
  326.  
  327. Console.WriteLine("...done")
  328.  
  329. Catch ex As Exception
  330.  
  331. Console.ForegroundColor = ConsoleColor.Red
  332.  
  333. Console.WriteLine("...failed")
  334.  
  335. Console.ForegroundColor = ConsoleColor.Gray
  336.  
  337. End Try
  338.  
  339. Try
  340.  
  341. Console.WriteLine("Renaming " & oldb & ".vehgyro")
  342.  
  343. FileSystem.Rename("TUNE\VEHICLE\" & oldb & ".vehgyro", "TUNE\VEHICLE\" & newb & ".vehgyro")
  344.  
  345. Console.WriteLine("...done")
  346.  
  347. Catch ex As Exception
  348.  
  349. Console.ForegroundColor = ConsoleColor.Red
  350.  
  351. Console.WriteLine("...failed")
  352.  
  353. Console.ForegroundColor = ConsoleColor.Gray
  354.  
  355. End Try
  356.  
  357. Try
  358.  
  359. Console.WriteLine("Renaming " & oldb & ".vehstuck")
  360.  
  361. FileSystem.Rename("TUNE\VEHICLE\" & oldb & ".vehstuck", "TUNE\VEHICLE\" & newb & ".vehstuck")
  362.  
  363. Console.WriteLine("...done")
  364.  
  365. Catch ex As Exception
  366.  
  367. Console.ForegroundColor = ConsoleColor.Red
  368.  
  369. Console.WriteLine("...failed")
  370.  
  371. Console.ForegroundColor = ConsoleColor.Gray
  372.  
  373. End Try
  374.  
  375. Try
  376.  
  377. Console.WriteLine("Renaming " & oldb & ".vehcardamage")
  378.  
  379. FileSystem.Rename("TUNE\VEHICLE\" & oldb & ".vehcardamage", "TUNE\VEHICLE\" & newb & ".vehcardamage")
  380.  
  381. Console.WriteLine("...done")
  382.  
  383. Catch ex As Exception
  384.  
  385. Console.ForegroundColor = ConsoleColor.Red
  386.  
  387. Console.WriteLine("...failed")
  388.  
  389. Console.ForegroundColor = ConsoleColor.Gray
  390.  
  391. End Try
  392.  
  393. Try
  394.  
  395. Console.WriteLine("Renaming " & oldb & ".campovcs")
  396.  
  397. FileSystem.Rename("TUNE\CAMERA\" & oldb & ".campovcs", "TUNE\CAMERA\" & newb & ".campovcs")
  398.  
  399. Console.WriteLine("...done")
  400.  
  401. Catch ex As Exception
  402.  
  403. Console.ForegroundColor = ConsoleColor.Red
  404.  
  405. Console.WriteLine("...failed")
  406.  
  407. Console.ForegroundColor = ConsoleColor.Gray
  408.  
  409. End Try
  410.  
  411. Try
  412.  
  413. Console.WriteLine("Renaming " & oldb & "_dash.campovcs")
  414.  
  415. FileSystem.Rename("TUNE\CAMERA\" & oldb & "_dash.campovcs", "TUNE\CAMERA\" & newb & "_dash.campovcs")
  416.  
  417. Console.WriteLine("...done")
  418.  
  419. Catch ex As Exception
  420.  
  421. Console.ForegroundColor = ConsoleColor.Red
  422.  
  423. Console.WriteLine("...failed")
  424.  
  425. Console.ForegroundColor = ConsoleColor.Gray
  426.  
  427. End Try
  428.  
  429. Try
  430.  
  431. Console.WriteLine("Renaming " & oldb & "_far.camtrackcs")
  432.  
  433. FileSystem.Rename("TUNE\CAMERA\" & oldb & "_far.camtrackcs", "TUNE\CAMERA\" & newb & "_far.camtrackcs")
  434.  
  435. Console.WriteLine("...done")
  436.  
  437. Catch ex As Exception
  438.  
  439. Console.ForegroundColor = ConsoleColor.Red
  440.  
  441. Console.WriteLine("...failed")
  442.  
  443. Console.ForegroundColor = ConsoleColor.Gray
  444.  
  445. End Try
  446.  
  447. Try
  448.  
  449. Console.WriteLine("Renaming " & oldb & "_near.camtrackcs")
  450.  
  451. FileSystem.Rename("TUNE\CAMERA\" & oldb & "_near.camtrackcs", "TUNE\CAMERA\" & newb & "_near.camtrackcs")
  452.  
  453. Console.WriteLine("...done")
  454.  
  455. Catch ex As Exception
  456.  
  457. Console.ForegroundColor = ConsoleColor.Red
  458.  
  459. Console.WriteLine("...failed")
  460.  
  461. Console.ForegroundColor = ConsoleColor.Gray
  462.  
  463. End Try
  464.  
  465. Try
  466.  
  467. Console.WriteLine("Renaming " & oldb & "_HEADLIGHT1.dgBangerData")
  468.  
  469. FileSystem.Rename("TUNE\BANGER\" & oldb & "_HEADLIGHT1.dgBangerData", "TUNE\BANGER\" & newb & "_HEADLIGHT1.dgBangerData")
  470.  
  471. Console.WriteLine("...done")
  472.  
  473. Catch ex As Exception
  474.  
  475. Console.ForegroundColor = ConsoleColor.Red
  476.  
  477. Console.WriteLine("...failed")
  478.  
  479. Console.ForegroundColor = ConsoleColor.Gray
  480.  
  481. End Try
  482.  
  483. Try
  484.  
  485. Console.WriteLine("Renaming " & oldb & "_HEADLIGHT0.dgBangerData")
  486.  
  487. FileSystem.Rename("TUNE\BANGER\" & oldb & "_HEADLIGHT0.dgBangerData", "TUNE\BANGER\" & newb & "_HEADLIGHT0.dgBangerData")
  488.  
  489. Console.WriteLine("...done")
  490.  
  491. Catch ex As Exception
  492.  
  493. Console.ForegroundColor = ConsoleColor.Red
  494.  
  495. Console.WriteLine("...failed")
  496.  
  497. Console.ForegroundColor = ConsoleColor.Gray
  498.  
  499. End Try
  500.  
  501. Try
  502.  
  503. Console.WriteLine("Renaming " & oldb & "_WHL1.dgBangerData")
  504.  
  505. FileSystem.Rename("TUNE\BANGER\" & oldb & "_WHL1.dgBangerData", "TUNE\BANGER\" & newb & "_WHL1.dgBangerData")
  506.  
  507. Console.WriteLine("...done")
  508.  
  509. Catch ex As Exception
  510.  
  511. Console.ForegroundColor = ConsoleColor.Red
  512.  
  513. Console.WriteLine("...failed")
  514.  
  515. Console.ForegroundColor = ConsoleColor.Gray
  516.  
  517. End Try
  518.  
  519. Try
  520.  
  521. Console.WriteLine("Renaming " & oldb & "_WHL0.dgBangerData")
  522.  
  523. FileSystem.Rename("TUNE\BANGER\" & oldb & "_WHL0.dgBangerData", "TUNE\BANGER\" & newb & "_WHL0.dgBangerData")
  524.  
  525. Console.WriteLine("...done")
  526.  
  527. Catch ex As Exception
  528.  
  529. Console.ForegroundColor = ConsoleColor.Red
  530.  
  531. Console.WriteLine("...failed")
  532.  
  533. Console.ForegroundColor = ConsoleColor.Gray
  534.  
  535. End Try
  536.  
  537. Try
  538.  
  539. Console.WriteLine("Renaming " & oldb & "_WHL2.dgBangerData")
  540.  
  541. FileSystem.Rename("TUNE\BANGER\" & oldb & "_WHL2.dgBangerData", "TUNE\BANGER\" & newb & "_WHL2.dgBangerData")
  542.  
  543. Console.WriteLine("...done")
  544.  
  545. Catch ex As Exception
  546.  
  547. Console.ForegroundColor = ConsoleColor.Red
  548.  
  549. Console.WriteLine("...failed")
  550.  
  551. Console.ForegroundColor = ConsoleColor.Gray
  552.  
  553. End Try
  554.  
  555. Try
  556.  
  557. Console.WriteLine("Renaming " & oldb & "_WHL3.dgBangerData")
  558.  
  559. FileSystem.Rename("TUNE\BANGER\" & oldb & "_WHL3.dgBangerData", "TUNE\BANGER\" & newb & "_WHL3.dgBangerData")
  560.  
  561. Console.WriteLine("...done")
  562.  
  563. Catch ex As Exception
  564.  
  565. Console.ForegroundColor = ConsoleColor.Red
  566.  
  567. Console.WriteLine("...failed")
  568.  
  569. Console.ForegroundColor = ConsoleColor.Gray
  570.  
  571. End Try
  572.  
  573. Try
  574.  
  575. Console.WriteLine("Renaming " & oldb & "_SRN1.dgBangerData")
  576.  
  577. FileSystem.Rename("TUNE\BANGER\" & oldb & "_SRN1.dgBangerData", "TUNE\BANGER\" & newb & "_SRN1.dgBangerData")
  578.  
  579. Console.WriteLine("...done")
  580.  
  581. Catch ex As Exception
  582.  
  583. Console.ForegroundColor = ConsoleColor.Red
  584.  
  585. Console.WriteLine("...failed")
  586.  
  587. Console.ForegroundColor = ConsoleColor.Gray
  588.  
  589. End Try
  590.  
  591. Try
  592.  
  593. Console.WriteLine("Renaming " & oldb & "_SRN0.dgBangerData")
  594.  
  595. FileSystem.Rename("TUNE\BANGER\" & oldb & "_SRN0.dgBangerData", "TUNE\BANGER\" & newb & "_SRN0.dgBangerData")
  596.  
  597. Console.WriteLine("...done")
  598.  
  599. Catch ex As Exception
  600.  
  601. Console.ForegroundColor = ConsoleColor.Red
  602.  
  603. Console.WriteLine("...failed")
  604.  
  605. Console.ForegroundColor = ConsoleColor.Gray
  606.  
  607. End Try
  608.  
  609. Try
  610.  
  611. Console.WriteLine("Renaming " & oldb & "_SRN2.dgBangerData")
  612.  
  613. FileSystem.Rename("TUNE\BANGER\" & oldb & "_SRN2.dgBangerData", "TUNE\BANGER\" & newb & "_SRN2.dgBangerData")
  614.  
  615. Console.WriteLine("...done")
  616.  
  617. Catch ex As Exception
  618.  
  619. Console.ForegroundColor = ConsoleColor.Red
  620.  
  621. Console.WriteLine("...failed")
  622.  
  623. Console.ForegroundColor = ConsoleColor.Gray
  624.  
  625. End Try
  626.  
  627. Try
  628.  
  629. Console.WriteLine("Renaming " & oldb & "_SRN3.dgBangerData")
  630.  
  631. FileSystem.Rename("TUNE\BANGER\" & oldb & "_SRN3.dgBangerData", "TUNE\BANGER\" & newb & "_SRN3.dgBangerData")
  632.  
  633. Console.WriteLine("...done")
  634.  
  635. Catch ex As Exception
  636.  
  637. Console.ForegroundColor = ConsoleColor.Red
  638.  
  639. Console.WriteLine("...failed")
  640.  
  641. Console.ForegroundColor = ConsoleColor.Gray
  642.  
  643. End Try
  644.  
  645. Console.WriteLine("-----------------------------")
  646.  
  647. Console.WriteLine("--DONE! PRESS ENTER TO EXIT--")
  648.  
  649. Console.WriteLine("-----------------------------")
  650.  
  651. Console.Read()
  652.  
  653. End Sub
  654.  
  655. End Module