VB 怎么后台执行批处理文件

方法一：

用vbs静默运行

set ws=wscriptcreateobject("wscriptshell")

wsrun "bat /start",0

方法二：

用个bat to exe的软件，把bat转成exe格式，并设置静默运行

Private Sub Command1_Click()

a = Dir("e:\tqfx-1\G04")

Print a '打印第一个文件名

Do While a <> "" '循环语句

a = Dir

Print a '打印剩余的文件名

Loop

End Sub

不知道你要怎么个处理法，你既然都能处理一个了，那么把我的代码中的Print a改成你的处理代码就可以了

试一下延时

在模块中定义函数

sub delay(delay time as long)

for i=1 to delaytime

doevents

next i

end sub

在窗体中写下：

delay(1000)

表示延时一秒！

批处理非常简单

at 18:00 "c:\abcexe"就可以了

但是需要task schedule服务开了，或者在前面加上一句：

net start schedule

at 18:00 "c:\abcexe"

但是注意需要有本地管理员权限才能执行

就这样写一个批处理文件就可以了，不需要写VB程序，写VB程序也是调用通言的API

添加一个按钮和一个时钟控件，粘贴下面代码就可以每秒执行一次。。。时间可以自己改

Private Sub Command1_Click()

Timer1Enabled = True

End Sub

Private Sub Form_Load()

Timer1Enabled = False

Timer1Interval = 1000

Command1Caption = "批量执行"

End Sub

Private Sub Timer1_Timer()

Shell "cmd /c Cscript c:\windows\system32\prnmngrvbs -ac -p \\192168168159\CanoniP1"

End Sub

用shell命令执行

在你的批处理命令后面加 >C:\1txt

如：

@echo HelloWord >C:\1txt

就会将运行结果（HelloWorld）保存在C盘的1txt中

然后用VB中读取文件的相关命令把C:\1TXT的内容读出来就行了

set ws = createobject("wscriptshell")

wscriptSleep(10000)

wsSendKeys "{ENTER}"

wsSendKeys "{F2}"

以上就是关于VB 怎么后台执行批处理文件全部的内容，包括:VB 怎么后台执行批处理文件、VB中如何批处理文件、VB中如何执行批处理并等待到执行结束等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！