vb 中一段代码，请大虾们指点一下

Private Sub Command1_Click()
Static a As Integer
a = a + 1
lj = "g://b.txt"
Open lj For Output As #1
Print #1, "copy g:\" + Text1.Text + "*.* d:\*.*"
Close #1
Shell "c:\windows\system32\command.com /c copy g:\b.txt g:\c.bat"
Shell "c:\windows\system32\command.com /c g:\c.bat"
Text1.Text = ""
Text2.Text = a
End Sub

有时可以拷贝文件到指定地方，有时不行，不知那里错了，望大虾指证

程序中有几处错误:

1.shell 调用cmd执行dos命令应该是:Shell "c:\windows\system32\cmd.exe/c copy g:\b.txt g:\c.bat" 这个命令的意思是将G:\b.txt中的内容复制到g:\c.bat中，

2.调用g:\c.bat的批处理文件可以直接这样调用Shell("g:\c.bat")即可。

还有你可以说一下你想具体实现如何复制文件，然后再帮你调试一下