Ｐａｇｅ 532 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ファイルが使用中か調べる 春ウコン 04/3/8(月) 15:32 ┗Re:ファイルが使用中か調べる こうちゃん 04/3/10(水) 11:24 ─────────────────────────────────────── ■題名 ： ファイルが使用中か調べる ■名前 ： 春ウコン ■日付 ： 04/3/8(月) 15:32 -------------------------------------------------------------------------
| はじめまして。 タイトル通りですがあるファイルが使用中か 調べる事は出来ますでしょうか？ 使用中で無かったらコピー 使用中だったら処理を中止という流れを あとに続けたいのです。 良い方法がありましたらご指導ください。 よろしくお願いします。 |
| 春ウコンさん、こんにちは >タイトル通りですがあるファイルが使用中か >調べる事は出来ますでしょうか？ ファイルオープン時のエラーをトラップすると調べられるかも・・ ＃txtファイルだと、ちょっとあやしいけど(^^;) Sub FileTest() Dim fp As Integer On Error GoTo ErrCheck fp = FreeFile Open "D:\Test.csv" For Binary Access Read Lock Read Write As #fp Close #fp 'コピー処理を記述 FileTest_Exit: Exit Sub ErrCheck: If Err.Number = 70 Then MsgBox "使用中" End If Resume FileTest_Exit End Sub |