vb 调用 VBS

vb.net调用

vbsfile= chr(34)+ app.path+ "\GB.vbs"+chr(34)
shell "wscript.exe " +  vbsfile

关于vb6.0 调用/运行 VBS 几种方式：

一：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

ShellExecute Me.hwnd,"open","c:\test.vbs",vbnormalFocus

二：
Shell "cmd.exe /c ""c:\test.vbs"""

附：c:\test.vbs运行完cmd.exe自动关闭

隐藏cmd.exe

Shell "cmd.exe /c ""c:\test.vbs""",vbHide

三：Function LoadVBS()
Dim RetVal
Set WshShell = CreateObject("Wscript.Shell")
RetVal = WshShell.Run("c:\test.vbs",1,True)
Set WshShell = nothing
End Function　

四：

Shell "wscript.exe c:\test.vbs",1

五：添加一个Microsoft script control 1.0 控件

Private Sub Command1_Click() Dim FileName As String Dim Vbsstr As String Dim FileID As Long Dim I As Long FileID = FreeFile Open “c:\test.vbs" For Input As #FileID Vbsstr = StrConv(InputB$(LOF(FileID),1),vbUnicode) ' 把vbs的代码读入变量 Close #FileID ScriptControl1.AddCode Vbsstr End Sub