Question

VB如何运行VBS程序

用VB写一个程序，点击command1后，运行c:\run.vbs
run.vbs内容为：
Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c run.bat",vbhide
即运行同级目录下的run.bat
run.bat内容为：
dir d: >1.txt
即显示D盘的文件并写入结果到同级目录的1.txt
请问要怎么写这个VB程序，才可以完成这个连锁运行呢？使得1.txt可以成功生成，请大家不要盲目复制网上的代码，很多是错的
具体代码怎么写呢？
我试过了shell("C:\run.vbs") 根本不能运行run.vbs的

Answer 1

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute 0, "open", "C:\run.vbs", 0, 0, 0
End Sub

Shell函数只能运行可执行文件和批处理
shellexecute API可以运行系统中有关联的任何格式

Answer 2

shell("C:\run.vbs")

Answer 3

使用Shell()函数来做

Answer 4

shell("C:\run.vbs")
啊.....
shell函数