我正在VB 2010中工作 [英] I am working in VB 2010

问题描述

我想知道的是如何编写代码以使用批处理程序，但是将其转换为VB 2010应用程序..我将向您显示批处理代码..

"@echo off

:: UEC Cleanup实用程序，作者Dave Laroche，2011年7月1日


::设置备份主驱动器号
cls
回声.
回声.
echo UEC备份驱动器信
回声.
回声.
echo输入驱动器号
在UECBackup文件夹中回显
回声将被定位
回声.
回声.
set/p userinp = UEC备份驱动器号:
设置DRIVE =％userinp:〜0,1％

::设置MEMR向导安装驱动器号
cls
回声.
回声.
echo MEMR向导驱动器字母
回声.
回声.
echo输入驱动器号
回显MEMR文件夹的位置
echo位于向导中
回声.
回声.
set/p userinp = MEMR向导驱动器号:
设置向导=％userinp:〜0,1％

MD％drive％:\ UECBackup

::-将文件从向导备份复制到清理位置

xcopy/y％wizard％:\ MEMR \ MigrationTool \ DBBackups \ *.bak％drive％:\ UECBackup \ *.bak
DEL/Q/F％向导％:\ MEMR \ MigrationTool \ DBBackups \ *.bak

xcopy/y％wizard％:\ MEMR \ MigrationTool \ UECBackups \ *.bak％drive％:\ UECBackup \ *.bak
DEL/Q/F％向导％:\ MEMR \ MigrationTool \ UECBackups \ *.bak

::-创建DMZ数据库的SQL备份

cls
回声.
回声.
echo DMZ数据库的SQL备份现在正在运行...
回声.
回声这需要一些时间...请等待

SQLCMD -i DMZ_backup.sql -v BUPATH =％drive％-o DMZ_backup.log

:备份
cls
回声.
回声.
回显SQL备份脚本完成
回声.
回声.
echo您的SQL备份是否已完成而没有错误?
回声.
回声.
回声.
设置/p userinp =(是/否):
如果％userinp％" =="Y"转到继续，否则转到A1
:A1
如果％userinp％" =="y"转到继续，否则转到A2
:A2
如果％userinp％" =="N"转到END，否则转到A3
:A3
如果％userinp％" =="n"转到END，否则转到A4
:A4
cls
回声.
回声.
echo这是无效的条目.再试一次
回声.
回声.
ping -n 4 127.0.0.1> nul
转到BACKUP

:CONTINUE

SQLCMD -i DMZ_Drop.sql -v BUPATH =％drive％-o DMZ_Drop.log

REM --WinRAR删除SQL BAK文件并将其删除

cls
回声.
回声.
echo备份现在正在压缩.....请等待
回声.
winrar M -ibck -afrar -ag -r％DRIVE％:\ uecbackup \ uecbackup.rar％DRIVE％:\ uecbackup \ *.*

:END
cls
回声.
回声.
echo UEC清理实用程序现已完成
暂停"

What I would like to know is how can I write a code to use a batch program but conver it to VB 2010 application.. I will show you the Batch code..

"@echo off

::UEC Cleanup utility by Dave Laroche 7/1/2011


:: Set the Backup home drive letter
cls
echo.
echo.
echo UEC Backup DRIVE LETTER
echo.
echo.
echo Enter the drive letter
echo where the UECBackup folder
echo is to be located
echo.
echo.
set /p userinp= UEC Backup Drive Letter:
set DRIVE=%userinp:~0,1%

:: Set the MEMR Wizard install drive letter
cls
echo.
echo.
echo MEMR Wizard DRIVE LETTER
echo.
echo.
echo Enter the drive letter
echo where the MEMR folder
echo is located from the Wizard
echo.
echo.
set /p userinp= MEMR Wizard Drive Letter:
set Wizard=%userinp:~0,1%

MD %drive%:\UECBackup

:: --copy files from wizard backup to the cleanup location

xcopy /y %wizard%:\MEMR\MigrationTool\DBBackups\*.bak %drive%:\UECBackup\*.bak
DEL /Q /F %wizard%:\MEMR\MigrationTool\DBBackups\*.bak

xcopy /y %wizard%:\MEMR\MigrationTool\UECBackups\*.bak %drive%:\UECBackup\*.bak
DEL /Q /F %wizard%:\MEMR\MigrationTool\UECBackups\*.bak

:: --create SQL backups of the DMZ databases

cls
echo.
echo.
echo The SQL backups of the DMZ databases is now running...
echo.
echo This will take some time...Please wait

SQLCMD -i DMZ_backup.sql -v BUPATH=%drive% -o DMZ_backup.log

:Backup
cls
echo.
echo.
echo SQL backup script complete
echo.
echo.
echo Did your SQL backups complete without error?
echo.
echo.
echo.
set /p userinp= (Y / N):
if "%userinp%"=="Y" goto CONTINUE else goto A1
:A1
if "%userinp%"=="y" goto CONTINUE else goto A2
:A2
if "%userinp%"=="N" goto END else goto A3
:A3
if "%userinp%"=="n" goto END else goto A4
:A4
cls
echo.
echo.
echo That was an invalid entry. Try again
echo.
echo.
ping -n 4 127.0.0.1 >nul
goto BACKUP

:CONTINUE

SQLCMD -i DMZ_Drop.sql -v BUPATH=%drive% -o DMZ_Drop.log

REM --WinRAR the sql BAK files and delete them

cls
echo.
echo.
echo The backups are now being compressed.....please wait
echo.
winrar M -ibck -afrar -ag -r %DRIVE%:\uecbackup\uecbackup.rar %DRIVE%:\uecbackup\*.*

:END
cls
echo.
echo.
echo The UEC Cleanup Utility is now complete
pause"

How can translate this into VB2010??

推荐答案

如何将其翻译成VB2010?

手动.

How can translate this into VB2010??

Manually.

这篇关于我正在VB 2010中工作的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！