|
お世話になります。
HHHと申します。
秀Termでファイルを書き込み、
VB(Ver6.0)側で、そのファイルを
読込むように作成しました。
秀Termのスプリクトは、
'正常のときは0、異常のときは1をa#にセットします
#a="0"
createfile "UPDT.END"
writefile "UPDT.END", #a
closefile "UPDT.END"
afterhangup TEST-END.HSC
hangup
exit
TEST-END.HSCスクリプトの内容は、
closehideterm
exit
です。
VB6側は、
'秀Tramが終了したら2000ミリ秒(2秒)待ちにします。
Call Sleep(2000)
W$ = "1"
If Dir("UPDT.END") <> "" Then
Open "UPDT.END" For Input As #1 'ファイルのオープン
Line Input #1, W$
Close #1
End If
このように、VB6側でUPDT.ENDファイルの内容を
読込んでいますが、秀Tramが正常に終わっているのに、
VB6ではW$の値が1となります(UPDT.ENDファイル
自体作成されていないのかな?)。
OSはWindowsXP(Home)で、秀TramはVer446です。
前は頻繁にはこの現象はなかったのですが、
最近なぜか頻繁に起こります。
根本時に、やりかたが悪いのでしょうか?
どなたか、アドバイスをよろしくお願いします。
|
|