批处理转成VB代码

请问一下下面的批处理用VB如何实现？
net use \\192.168.1.67\UPDATE zandgy5201314 /user:192.168.1.67\administrator
if errorlevel 0 goto ECHO
if errorlevel 1 goto ERR
:ECHO 连接成功,开始更新以下程序.
xcopy \\192.168.1.67\update\knmis\*.* d:\knmis /y
xcopy \\192.168.1.67\update\k4cw\*.* d:\k4cw /y
ECHO 更新成功!
:ERR 出错
PAUSE --------------------编程问答-------------------- 1、createprocess 运行net use .... 并获取进程句柄（handle）
2、waitforsinglebject 等待进程执行完成
3、getxitcodeprocess 获取net use执行返回值
4、判断返回值如果为1报错如果为0 进行5
5、 shell "xcopy ...." 拷贝文件或者使用dir()遍历目录使用FILECOPY（）函数进行文件复制 --------------------编程问答--------------------

引用楼主 zandgy 的回复:

请问一下下面的批处理用VB如何实现？
net use \\192.168.1.67\UPDATE zandgy5201314 /user:192.168.1.67\administrator
if errorlevel 0 goto ECHO
if errorlevel 1 goto ERR
:ECHO 连接成功,开始更新以下程序.
xcopy \\192.168.1.67\update\knmis\*.* d:\knmis /y
xcopy \\192.168.1.67\update\k4cw\*.* d:\k4cw /y
ECHO 更新成功!
:ERR 出错
PAUSE

LZ:将上述内容以文本方式写入命名为pcl.bat的文件,然后用shell方式运行该pcl.bat文件. --------------------编程问答--------------------

引用 2 楼 zdingyun 的回复:

引用楼主 zandgy 的回复:
请问一下下面的批处理用VB如何实现？
net use \\192.168.1.67\UPDATE zandgy5201314 /user:192.168.1.67\administrator
if errorlevel 0 goto ECHO
if errorlevel 1 goto ERR
:ECHO 连接成功,开始更新以下程序.
xcopy \\192.168.1.67\update\knmis\*.* d:\knmis /y
xcopy \\192.168.1.67\update\k4cw\*.* d:\k4cw /y
ECHO 更新成功!
:ERR 出错
PAUSE
LZ:将上述内容以文本方式写入命名为pcl.bat的文件,然后用shell方式运行该pcl.bat文件.

多容易的事啊！！！！！！ --------------------编程问答-------------------- 用API函数连接,如WNetAddConnection2
用递归法查询目录和文件列表，如下面的例子修改一下就可以查询某个指定路径包含的
全部的目录和文件了：
http://topic.csdn.net/u/20100220/21/1f27da9e-6324-4c7f-abb3-7391c4da83b9.html
得到目录和文件数组后，先创建目录，再复制文件

然后用FileCopy函数和Mkdir函数建立目录和复制文件 --------------------编程问答-------------------- 用API函数连接,如WNetAddConnection2
用dir函数查找文件夹下的所有文件，用filecopy或api的copyfile --------------------编程问答-------------------- 建议你多用shell --------------------编程问答--------------------

引用 2 楼 zdingyun 的回复:

引用楼主 zandgy 的回复:请问一下下面的批处理用VB如何实现？ net use \\192.168.1.67\UPDATE zandgy5201314 /user:192.168.1.67\administrator if errorlevel 0 goto ECHO if errorlevel 1 goto ERR :ECHO 连接成功,开始更新以下程序. xcopy \\192.168.1.67\update\knmis\*.* d:\knmis /y xcopy \\192.168.1.67\update\k4cw\*.* d:\k4cw /y ECHO 更新成功! :ERR 出错 PAUSE
LZ:将上述内容以文本方式写入命名为pcl.bat的文件,然后用shell方式运行该pcl.bat文件.

--------------------编程问答-------------------- 建议版主转些贴到基础类

补充：VB ,  非技术类