VB 调用其它程序

VB 调用其它程序


' 打开任何文件包括网址
Dim ChengXu As String, F As String
ChengXu = "rundll32.exe url.dll,FileProtocolHandler"
F = "C:\1.doc" '修改此处：EXE，DOC html 网址 都行
Shell ChengXu & " " & Chr(34) & F & Chr(34), 1

=======================================================

Shell ("notepad")              '打开无标题记事本  
Shell "explorer.exe D:\"        '打开文件、文件夹’打开网页

=======================================================

Call Shell(App.Path & "\123.exe", vbNormalFocus)'调用exe
Call Shell(App.Path & "\123.bat", vbNormalFocus)'调用批处理
=======================================================

【App.Path 指此程序目】【此程序无论在那都行】
如：App.Path & "\123.txt"
=======================================================


’【判断文件是否存在】
If Dir(App.Path & "\1.txt") <> "" Then
MsgBox "存在"
Else
MsgBox "不存在"
End If





_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/