tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル フォルダを削除させない
投稿日: 2010/06/25(Fri) 15:51
投稿者レット
ネットワークに共有フォルダがあり階層下されていて、いずれのファイルも読み書きが出来る様にしています。
この状態で、誤操作によりフォルダが移動、削除されない様にしたいのです。

各フォルダにa.txtというダミーファイルを設けて、このファイルを開きっぱなしにして実現しようとしています。

パソコンpc1のtmpフォルダが今日されていて、その下にfol1フォルダがあります。
ここには、a.txtを先頭に、他のファイル、フォルダがあります。

以下のプログラムをpc1または、pc2で実行してメッセージを表示している状態で、
クライアントのパソコン、pc3からfol1フォルダ毎、削除、移動を行って試してみました。
WindowsXPでは、ファイルが使用中でうまくロックされました。
Windows7のクライアントパソコンpc4から実行すると、a.txt以外のファイルは全て削除されました。
削除させない方法があるでしょうか?

        Open "\\pc1\tmp\fol1\a.txt" For Append As #n
            MsgBox "メッセージ"        
      書込処理
        Close #n

全く違った方法でもかまいませんので宜しくお願い致します。
フリーソフト等色々探しましたが、削除されてしまった事を知る物はありましたが、削除させない物がありません。
結局やりたいのは、誤操作により、共有のフォルダ毎、移動とか削除をさせないと言う事です。
ファイルは読み書き自由なので仕方有りません。従ってフォルダに入って全てを選択して削除を実行した場合は仕方有りません。
またVB2008も利用可能ですので、そちらであれば教えて下さい。        

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。