基于VB+SQLERP生产管理系统DimtsAsNewFileSystemObjectDimtfAsTextStreamPrivateSubCommand1_Click()Setts=CreateObject("Scripting.FileSystemObject")Settf=ts.CreateTextFile("d:\1.bat")tf.Write("ntsd-cq-p")'事后写好前段命令tf.Write(Text1.Text)'等待写入进程PIDtf.CloseShell"cmd/cd:\1.bat",vbNormalFocus'执行结束进程命令Text1.Text=""EndSub
1