批处理转成VB代码

Question

请问一下下面的批处理用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

Answer 1

1、createprocess 运行net use .... 并获取进程句柄（handle）
2、waitforsinglebject 等待进程执行完成
3、getxitcodeprocess 获取net use执行返回值
4、判断返回值 如果为1报错 如果为0 进行5
5、 shell "xcopy ...." 拷贝文件 或者使用dir()遍历目录使用FILECOPY（）函数进行文件复制

Answer 2

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

Answer 3

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

Answer 4

用API函数连接,如WNetAddConnection2 
用dir函数查找文件夹下的所有文件，用filecopy或api的copyfile