Question

晕 vb6.0 shell 不能调用自己打开的bat文件， 源码如下：

Private Sub Form_Load()
Dim a As String
Dim fn As String
Set fs = New FileSystemObject
On Error GoTo er
a = fs.GetFolder("i:/now9")
If a <> "" Then
MsgBox "!!!"
Exit Sub
End If
er:
fn = "corton" & Date & Time
Open "i:/creatfolder.bat" For Append As #1
Print #1, "@echo off"
Print #1, "copy t1 now"
Print #1, "echo true>flag.txt"
Print #1, "pause"
Close #1
' 下面这句是关键
Shell "i:/creatfolder.bat"
End Sub

Answer 1

Shell "i:\creatfolder.bat"
Shell "cmd /c start """" ""i:\creatfolder.bat"""