投稿日 | : 2005/07/29(Fri) 13:12 |
投稿者 | : おっちゃん |
Eメール | : |
URL | : |
タイトル | : ファイルの削除 |
■VBのバージョン : VB6(SP6) Windows2000
お世話になっております。
現在、以下のような手順であるファイルを削除したいと考えております。
1.【A.XLS】ファイル(読み取り専用)を別名【B.XLS】という名前でコピーします。
Call CopyFile(A.XLS, B.XLS, 0)
2.【B.XLS】ファイルの属性は読み取り専用になっているので解除します。
Call SetAttr(B.XLS, vbNormal)
3.【B.XLS】ファイルを起動します。
4.【B.XLS】ファイルがフォルダに存在するので削除します。
Dim Fso As FileSystemObject
Set Fso = New FileSystemObject
' 読み取り専用ファイルも削除する
Call Fso.DeleteFile(B.XLS, True)
を実行するのですが【B.XLS】ファイルが削除されません。
但し、【B.XLS】ファイルが読み取り専用であれば削除されます。
どなたかこのような場合どうすればよいのか分かる方がいらっしゃいましたら
ご教授願います。よろしくお願い致します。