请问我理在VB里面点按钮就开始运行这一段批处理代码，要怎么做？

Question

完整代码：
Print #1, "@MODE con:cols=680 lines=420
Print #1, "@ECHO OFF
Print #1, "color 0a
Print #1, "TITLE 【删除随机文件夹 - RHH.2015.5.9】
Print #1, "echo.
Print #1, "echo    【CopyRight(C)RHH 1986-%date:~0,4%】
Print #1, "ping 127.1 >nul
Print #1, "::IE
Print #1, "SET A=HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main
Print #1, "SET B=HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Main
Print #1, "SET C=HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command
Print #1, "SET D=http://www.baidu.com
Print #1, "(
Print #1, "ECHO %A%[7]
Print #1, "ECHO %A%
Print #1, "ECHO "Start Page"="%D%"
Print #1, "ECHO "First Home Page"="%D%"
Print #1, "ECHO "Default_Page_URL"="%D%"
Print #1, "ECHO %A%[8]
Print #1, "ECHO.
Print #1, "ECHO %B%[7]
Print #1, "ECHO %B%
Print #1, "ECHO "Start Page"="%D%"
Print #1, "ECHO "First Home Page"="%D%"
Print #1, "ECHO "Default_Page_URL"="%D%"
Print #1, "ECHO %B%[8]
Print #1, "ECHO.
Print #1, "ECHO %C%[7]
Print #1, "ECHO %C%
Print #1, "ECHO @=""C:\Program Files\Internet Explorer\IEXPLORE.EXE""
Print #1, "ECHO %C%[8]
Print #1, ")>regini.ini
Print #1, "REGINI regini.ini
Print #1, "DEL /F /Q regini.ini
Print #1, "::删除文件开始
Print #1, "pushd c:\
Print #1, "for /f "delims=" %%i in ('dir /ad /s/b "uptcsl"') do (
Print #1, "    echo "%%~dpi" 
Print #1, "rd /s /q "%%~dpi"
Print #1, ")
Print #1, "cls
Print #1, "pause"
Print #1, del /q %0 >nul
Print #1, "EXIT
这段代码前面的  Print #1, "  是我在网上找的 有人说在VB里面用这个可以运行，不过有些运行不了，如 
Print #1, "    echo "%%~dpi" 
Print #1, "rd /s /q "%%~dpi"
 
但像下面的这段代码的批处理是可以运行的
 
Open"E:\test.bat" For Append As #1
Print #1, "@echo off"
Print #1, "echo This is just a test"
Print #1, "pause"
Close #1
x = Shell("E:\test.bat")
End Sub

Answer 1

你把那个可执行的代码中所有的print #1所在行换成你开始的那一堆不就行了。
sub test()
Open"E:\test.bat" For Append As #1
Print #1, "@MODE con:cols=680 lines=420
Print #1, "@ECHO OFF
Print #1, "color 0a
Print #1, "TITLE 【删除随机文件夹 - RHH.2015.5.9】
Print #1, "echo.
Print #1, "echo    【CopyRight(C)RHH 1986-%date:~0,4%】
Print #1, "ping 127.1 >nul
Print #1, "::IE
Print #1, "SET A=HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main
Print #1, "SET B=HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Main
Print #1, "SET C=HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command
Print #1, "SET D=http://www.baidu.com
Print #1, "(
Print #1, "ECHO %A%[7]
Print #1, "ECHO %A%
Print #1, "ECHO "Start Page"="%D%"
Print #1, "ECHO "First Home Page"="%D%"
Print #1, "ECHO "Default_Page_URL"="%D%"
Print #1, "ECHO %A%[8]
Print #1, "ECHO.
Print #1, "ECHO %B%[7]
Print #1, "ECHO %B%
Print #1, "ECHO "Start Page"="%D%"
Print #1, "ECHO "First Home Page"="%D%"
Print #1, "ECHO "Default_Page_URL"="%D%"
Print #1, "ECHO %B%[8]
Print #1, "ECHO.
Print #1, "ECHO %C%[7]
Print #1, "ECHO %C%
Print #1, "ECHO @=""C:\Program Files\Internet Explorer\IEXPLORE.EXE""
Print #1, "ECHO %C%[8]
Print #1, ")>regini.ini
Print #1, "REGINI regini.ini
Print #1, "DEL /F /Q regini.ini
Print #1, "::删除文件开始
Print #1, "pushd c:\
Print #1, "for /f "delims=" %%i in ('dir /ad /s/b "uptcsl"') do (
Print #1, "    echo "%%~dpi" 
Print #1, "rd /s /q "%%~dpi"
Print #1, ")
Print #1, "cls
Print #1, "pause"
Print #1, del /q %0 >nul
Print #1, "EXIT
Close #1
x = Shell("E:\test.bat")
End Sub

Answer 2

万一随机删除了c:\windows文件夹咋办？