pastebin - collaborative debugging

pastebin is a collaborative debugging tool allowing you to share and modify code snippets while chatting on IRC, IM or a message board.

This site is developed to XHTML and CSS2 W3C standards. If you see this paragraph, your browser does not support those standards and you need to upgrade. Visit WaSP for a variety of options.

pastebin private pastebin - collaborative debugging tool What's a private pastebin?

Posted by Anonymous on Tue 21st May 22:25 (modification of post by view diff)
diff | download | new post

  1. @ECHO OFF
  2. :start
  3. CHOICE /C FGHIJKLMNOPQRSTUVWXYZ /M "Press the Letter of the Drive you want to back up"
  4. IF errorlevel 21 GOTO Drivez
  5. IF errorlevel 20 GOTO Drivey
  6. IF errorlevel 19 GOTO Drivex
  7. IF errorlevel 18 GOTO Drivew
  8. IF errorlevel 17 GOTO Drivev
  9. IF errorlevel 16 GOTO Driveu
  10. IF errorlevel 15 GOTO Drivet
  11. IF errorlevel 14 GOTO Drives
  12. IF errorlevel 13 GOTO Driver
  13. IF errorlevel 12 GOTO Driveq
  14. IF errorlevel 11 GOTO Drivep
  15. IF errorlevel 10 GOTO Driveo
  16. IF errorlevel 9 GOTO Driven
  17. IF errorlevel 8 GOTO Drivem
  18. IF errorlevel 7 GOTO Drivel
  19. IF errorlevel 6 GOTO Drivek
  20. IF errorlevel 5 GOTO Drivej
  21. IF errorlevel 4 GOTO Drivei
  22. IF errorlevel 3 GOTO Driveh
  23. IF errorlevel 2 GOTO Driveg
  24. IF errorlevel 1 GOTO Drivef
  25. :Drivez
  26. Set Drive=Z:
  27. Goto Datapath
  28. :Drivey
  29. Set Drive=Y:
  30. Goto Datapath
  31. :Drivex
  32. Set Drive=X:
  33. Goto Datapath
  34. :Drivew
  35. Set Drive=W:
  36. Goto Datapath
  37. :Drivev
  38. Set Drive=V:
  39. Goto Datapath
  40. :Driveu
  41. Set Drive=U:
  42. Goto Datapath
  43. :Drivet
  44. Set Drive=T:
  45. Goto Datapath
  46. :Drives
  47. Set Drive=S:
  48. Goto Datapath
  49. :Driver
  50. Set Drive=R:
  51. Goto Datapath
  52. :Driveq
  53. Set Drive=Q:
  54. Goto Datapath
  55. :Drivep
  56. Set Drive=P:
  57. Goto Datapath
  58. :Driveo
  59. Set Drive=O:
  60. Goto Datapath
  61. :Driven
  62. Set Drive=N:
  63. Goto Datapath
  64. :Drivem
  65. Set Drive=M:
  66. Goto Datapath
  67. :Drivel
  68. Set Drive=L:
  69. Goto Datapath
  70. :Drivek
  71. Set Drive=K:
  72. Goto Datapath
  73. :Drivej
  74. Set Drive=J:
  75. Goto Datapath
  76. :Drivei
  77. Set Drive=I:
  78. Goto Datapath
  79. :Driveh
  80. Set Drive=h:
  81. Goto Datapath
  82. :Driveg
  83. Set Drive=G:
  84. Goto Datapath
  85. :Drivef
  86. Set Drive=F:
  87. Goto Datapath
  88. :DataPath
  89. CHOICE /C 12c /M "Press 1 for Windows XP, 2 for Vista onwards or C for Cancel
  90. IF errorlevel 3 GOTO cancel
  91. IF errorlevel 2 GOTO two
  92. IF errorlevel 1 GOTO one
  93. :cancel
  94. ECHO Operation Cancelled
  95. pause
  96. exit
  97. :two
  98. ECHO Windows Vista, Windows 7, Windows 8 Data selected
  99. SET Source="\Users"
  100. GOTO Folder
  101. :one
  102. ECHO Windows XP Data selected
  103. Set Source="\Documents and Settings"
  104. GOTO Folder
  105. :Folder
  106. SET /P Foldername=Please enter Customer name and date:
  107. IF "%Foldername%"=="" GOTO Error
  108. I:
  109. mkdir "%Foldername%"
  110. cd "%Foldername%
  111. ECHO Copy in Progress - Don't close this window!
  112. robocopy %Drive%%source% "\%Foldername%"\Data /MIR /r:1 /w:1 >> result.log
  113. ECHO Copy Complete
  114. type result.log | find "(0x" > error.log
  115. ECHO An Error Log will open if there is any faults
  116. FOR %%a IN (error.log) DO (set length==%%~za)
  117. IF %length% NEQ 0 (notepad I:\%foldername%\error.log) else (del /q error.log)
  118. GOTO End
  119. :Error
  120. ECHO You did not enter theCustomer Name, Please try again!
  121. pause
  122. GOTO Folder
  123. :End
  124. ECHO Copying has finished
  125. pause
  126. Exit

Submit a correction or amendment below. (click here to make a fresh posting)
After submitting an amendment, you'll be able to view the differences between the old and new posts easily.

Use syntax highlighting

To highlight particular lines, prefix each line with @@


Remember my settings