VB 代码,用FileSystemObject.CopyFile 将Prn 文件发送到网络打印机, 失败返回File not found

Question

代码片段

on error GoTo Err_01
Set DocObj = New Scripting.FileSystemObject 
ls_txtfile = "H:\groups\mars\sktfhuat\worksheet\34\92\test11.prn"
as_printer_queue = "\\cchn01m09\521dn"
DocObj.CopyFile ls_txtfile, as_printer_queue     '行1
DocObj.CopyFile ls_txtfile, as_printer_queue     '行2

Err_01:
err_info =err_info + err.Description
Resume Next

代码大致意思是这样,但是当执行 "行1"时报 file not found 错误,事实上文件是存在的,

resume next 后,继续执行"行2", 打印机成功打印了!

为啥啊! 同一个文件同一个打印机, 真是搞不明白了.
系统是 Windows server 2008 R2.

求大神指导!

2020-01-07 更新

弃用FileSystemObject ，改用vb直接call bat发送prn文件，打印成功

shell "sendprn.bat " + prnfile +" " + printer

sendprn.bat 代码

copy %1 %2

Answer 1

加上一个延迟看看，可能执行在上面的时候还没有放入队列

可以用Sleep函数加延迟