いつも参考にさせて頂いております。

下記アドバイスを頂けたらと思い投稿させて頂きました

環境　VB6　SP5　WinXP

全く別々のアプリケーションで受渡のプログラムを作成しております。

内容）
Ａと言う（市販）システムから　ファイルの名前を付けて保存で出力
Ｂと言う（市販）システムから　Ａで出力された直後にファイルを読み込む

Ａ，Ｂの受渡のプログラムを　VB6で作成しております。

・ファイルの名前を付けて保存で（市販アプリケーション）完全に出力が終了したかどうか
判断することは可能でしょうか。
　＝＞　現在　は　ループを用いて　ファイルのバイト数を取得し前回のループと比較して
同じだったら出力が終了したと判断しています。
（一つのファイルが　数Kbから　数十MB有るため）

もっと簡単な方法が有るのかも知れませんが・・・

・次に問題になったのが、読込の方で　アプリケーション（市販アプリケーション）が完全に
データを読み込んだ後に該当ファイルを削除しなければなりません。

　読込が終了したかどうか判断する手段は有るのでしょうか？

以上、何かアドバイス頂けたら幸いです。

どちらの場合も簡単な方法も難しい方法もないようです。

その市販のソフトのファイルがどのような物か解らないので使えるかどうか
解りませんが、ちょっとあらけないが、下記のようにしてみる位しか思いつきません。

'ファイルの名前を同じ名前で変更します。
Name myFilename As myFilename
'ファイルが使用中であればエラーが発生します
If Err.Number Then
    MsgBox "ファイルは使用中です。"
    'エラーが発生した場合は Err オブジェクトをクリアします。
    Err.Clear
Else
    MsgBox "ファイルは使われていません。"
End If

又、書き出し側で目的のファイルを保存した後、ダミーのファイルを保存する事が
できるのなら、そのファイルが存在すれば目的のファイルの保存は完了していると
言う事になるのですが。

花ちゃんさん

回答ありがとうございます。

3DCADソフトから3D-IGES出力した物を、別の3DCADで3D-IGES
読込の自動処理を行いたかったのです。

> 'ファイルの名前を同じ名前で変更します。
> Name myFilename As myFilename
> 'ファイルが使用中であればエラーが発生します
> If Err.Number Then
>     MsgBox "ファイルは使用中です。"
>     'エラーが発生した場合は Err オブジェクトをクリアします。
>     Err.Clear
> Else
>     MsgBox "ファイルは使われていません。"
> End If

自分自身に　変更するとは思いつきませんでした(^^;)
これなら何とかなりそうですね。
ありがとうございました。

> 又、書き出し側で目的のファイルを保存した後、ダミーのファイルを保存する事が
> できるのなら、そのファイルが存在すれば目的のファイルの保存は完了していると
> 言う事になるのですが。

こちらは無理でした。(-_-)