我初学VB，编了一个按钮，想让他实现简单的复制，重命名，运行，延时等功能，但怎么写都说不对。希望高手给点指点
Dim objShell
Set objShell = wscript.CreateObject("wscript.shell") //这句说无效的外部过程
Private Sub Command1_Click()
FileCopy App.Path & "000\*", App.Path & "\"
//这个说错误的文件名或号码
Name App.Path & "\001\00A.txt" As App.Path & "\001\00B.txt"
Name App.Path & "\001\00C.txt" As App.Path & "\001\00A.txt"
objShell.Run App.Path & "AAA.exe"
Timer1.Interval = 30000
Timer1.Enabled = True
Name App.Path & "\001\00A.txt" As App.Path & "\001\00C.txt"
Name App.Path & "\001\00B.txt" As App.Path & "\001\00A.txt"
End Sub
请求高手指点一二
