vbs 隐藏运行 cmd 并回读结果 有异常错误

Question

索引

vb vbs vba fso filesystemobject shell shell.application cmd 命令行 vb隐藏运行cmd 并回读结果

预期功能

wincc vbs 做了个块,将cmd结果传入文件" D:\WinccCmdReturn.txt "(以下简称"文件"),经fso流读文件数据之后删除
现在问题如下几种情况：
1、在原本就存在该"文件"的情况下,输出结果、回读结果、结果向函数外传参正常,
但对"文件"的存在的检测与实际不符,在下方代码中,msgbox结果False,
但该"文件"最后都实际存在 (do循环正常下行,因为检测到其不存在,但实际存在)

    Do
        Call fso.deletefile("D:\WinccCmdReturn.txt",1)
    Loop Until (Not fso.FileExists ("D:\WinccCmdReturn.txt")) 
    Msgbox fso.FileExists ("D:\WinccCmdReturn.txt")

2、在原本不存在该"文件"的情况下，
该过程输出错误提示 " An error in getCmdReturn as 没有权限 ",没有权限,结果仍未有该"文件"

    If err <> 0 Then
        Msgbox "An error in 'getCmdReturn' as '" & err.description &"'"
    End If
    getCmdReturn = cmdStr

3、在"文件"存在的情况下,单独注释掉以下一行,对运行cmd并生成"文件"的代码,"文件"会被正常删除

    Shell.ShellExecute "cmd.exe", "/c " & code & " >> D:\WinccCmdReturn.txt" , "", "", 0

4、在"文件"不存在的情况下,注释掉删除"文件"的代码,"文件"可以正常生成,无任何错误

    Do
        Call fso.deletefile("D:\WinccCmdReturn.txt",1)
    Loop Until (Not fso.FileExists ("D:\WinccCmdReturn.txt")) 

综上,单独生成或删除都没有问题,合在一起运行就有问题了?????不知为何!

尝试解决的方法(未成功)

或许是FSO检测出错,在删除前,先清空FSO(object),再重 set ,并没有任何卵用

尝试解决的方法(半成功，过于累赘)

在 cmd 创建代码后（set 过 fso）、DO循环检测"文件"直到存在后、DO循环检测"文件"直到不存在后
的三个位置均加上msgbox 检测结果（fso.FileExists）,分别为false、true、false 符合其逻辑结果
并且此时程序运转正常，已无上述1、2问题，但此时有三个msgbox 影响正常操作
进一步尝试，只需保留第一个msgbox 检测结果（可中途传递几回该结果，但必须msgbox），即可正常运行

对以上结果做出推测：

fso.FileExists() 返回 True/False 及未决态?
必须要实际返回一次决态值,期间进行的内部传参均无效,必须实际回调?

完整代码

Function getCmdReturn(code)
    err.clear
    On Error Resume Next
    
    Dim Shell,cmdStr
    Set Shell = CreateObject("Shell.Application")
    Shell.ShellExecute "cmd.exe", "/c " & code & " >> D:\WinccCmdReturn.txt" , "", "", 0
    
    Dim fso,file,readStream
    Set fso = CreateObject("Scripting.FileSystemObject")

    Do
        '----------------
    Loop Until (fso.FileExists ("D:\WinccCmdReturn.txt")) 

    Set file = fso.GetFile("D:\WinccCmdReturn.txt")
    Set readStream = file.OpenAsTextStream(1)
    cmdStr = readStream.readall
    Call readStream.close
    
    Do
        Call fso.deletefile("D:\WinccCmdReturn.txt",1)
    Loop Until (Not fso.FileExists ("D:\WinccCmdReturn.txt")) 
    Msgbox fso.FileExists ("D:\WinccCmdReturn.txt")
    
    Set Shell = Nothing
    Set fso = Nothing
    Set file = Nothing
    Set readStream = Nothing
    
    If err <> 0 Then
        Msgbox "An error in 'getCmdReturn' as '" & err.description &"'"
    End If
    getCmdReturn = cmdStr
end function

Answer 1

经过我数次尝试，将fso shell分成两个块，无效
经测试，set fso 后不能立刻read 此时经cmd生成文件，但文件内容仍为空，需经过一段延时后，数据加入，未加入数据时，atEndOfStream 为 true，
以下为延时功能，直接跟在 set fso 后即可
与msgbox 传参等均无太大关系，就是shell.application 通过 ShellExecute 执行 cmd 为并行（多线程？反正不再强制回判ShellExecute 内的运行，而只回判ShellExecute本身的运行），导致的冲突冒险，加入延时即可

For i = 1 To 1000000
    If i > 999999 Then Exit For
Next