ファイルの使用中を検出したい

解決

一歩♪ 2006-01-04 10:46:04 No: 129354

夜分遅くに失礼します。(^^)

ファイルが使用中であるか否かを判断する方法ってあるのでしょうか？
Excelファイルが使用中の場合を検出したいと思っています。

現状考えている方法は、FileSystemObjectのDeleteFileを実行して、
エラーか否かで判断する。
こんな感じです。

Private Sub Command1_Click()
    Dim fso

    Set fso = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    fso.deleteFile ("C:\aaa.xls")
    On Error GoTo Err
    Exit Sub
Err:
    MsgBox "だれかが使っている"

End Sub

他にスマートな方法があるのでは？と思い、投稿をさせていただきました。

じゃんぬねっと URL 2006-01-04 11:41:52 No: 129355

ないですね。
アプリケーションによってはロックすらされませんし。

基本的には例外処理、エラー処理になります。

一歩♪ 2006-01-04 18:01:41 No: 129356

じゃんぬねっとさん。回答ありがとうございます。
やはり、そうですか。
例外処理として扱いたいと思います。