読み取り専用でファイルを開きたい

質問

お世話になります。

現在、ListViewにドラッグ＆ドロップで様々なファイル名を格納し、ボタンクリックイベントで規定のディレクトリにコピーする機能を作成しております。

その中で、ListView内のファイル名をダブルクリックすると読み取り専用で開かれるようにしたいのですが、

現ロジック--------------------------------------------------
CreateObject("Shell.application").ShellExecute(ファイル名)
-----------------------------------------------------------

上記の書き方だと、確かに開くのですが読み取り専用という指定がないため、簡単に上書きできてしまいます。

読み取り専用にするには、どこで指定すべきでしょうか？

よろしくお願いいたします。

回答No.1

chie65536

その１。簡単だが問題がある方法

１．ファイル属性を取得する。
２．ファイル属性に「読み取り専用」を付加する。
３．現在のロジックでファイルを開く。
４．閉じられたら、ファイル属性を１で取得した属性に戻す。

長所
ファイル属性の取得と変更のみで実装可能。

問題点
・４の作業が行われないままプログラムが強制終了したり、ＰＣをリセットしたりすると、オリジナルファイルの「読み取り専用」が残ってしまう。

・開く際に起動されるアプリケーションが任意で自由な為に「読み取り専用属性が付いたファイルを開こうとすると、エラーになったり、開かずに無視してしまうアプリケーション」が存在する可能性がある。

・アプリケーションによっては、読み取り専用の属性が付いていたら、警告を出すだけで読み取り専用を無視して上書きしてしまう物がある。

・ファイルの属性を変更出来る権限が無いと、うまく動かない。

その２。複雑だが確実な方法

１．システムの「一時ファイル」のフォルダ位置を取得する。
２．そのフォルダに開きたいファイルをコピーする。
３．コピー先ファイルの「読み取り専用」の属性は解除しておく。
４．現在のロジックで「一時ファイルのフォルダにコピーした複製ファイル」を開く。
５．閉じられたら、コピー先ファイルを削除する。

長所
・元ファイルは「コピー元として読むだけ」なので、アプリケーションで何をされようが影響を受けない。上書きされたって平気。

・５の作業が行われないままプログラムが強制終了したり、ＰＣをリセットしたりしてファイルが残っても、ディスクのクリーンアップなどで「一時ファイルフォルダを掃除出来る」ので、事後処理が楽。

問題点
・開きたいファイルが巨大な場合、コピー（複製の作成）に時間が掛かったり、一時ファイルフォルダに収まらない場合があり、開けない可能性がある。

その３。上記２つの方法をファイルの大きさで切り換える方法

１．ファイルの大きさを取得する。
２－Ａ．コピー（複製の作成）に時間がかかりそうな大きさ、または、一時ファイルフォルダに収まらない大きさの場合、上記「その１」の方法で開く。
２－Ｂ．そうじゃなかったら、上記「その２」の方法で開く。

お礼

ありがとうございました。

ファイル自体のサイズは常に一定であるため、２の方法をとりました。