タイトル | : ネットワークパスが突然消える |
記事No | : 12438 |
投稿日 | : 2008/06/04(Wed) 13:40 |
投稿者 | : コーヒーブレイク |
いつもお世話になっています。
環境 WindowsXP SP2(SP3直前までのUpdateあり) VB6 SP6
原因をある程度特定してから書こうと思いつつもう2ヶ月以上解決出来なくて とうとうみなさんのお知恵を借りたいと思い書きます。
あるPCでローカルフォルダを共有し、そのPC自身からネットワークパスで ファイル書込を行いつつ、そのフォルダ(ドライブ)の使用容量を監視する アプリケーションがあります。 実行後約1〜3時間後にネットワークパスが見えなくなり書込、および容量 監視がエラー停止してしまいます。
書込と監視をローカルフォルダに変えると問題は発生しません。 ただし、この状態で外部PCから30秒間隔でその書込ファイルをSHFileOperationで コピーするデバッグアプリを実行すると1日以内にSHFileOperation自身が エラーポップアップを表示します。 内容は「・・・ファイルが見つかりません」 的なものです。
上記アプリを3台のPCにて実験しましたが、いずれもNGなのですが、ある1台 のみ(OS同じ)問題なく動作しています。
以下にネットワークパスにて実行した際に落ちている部分を抜粋ですが記載しておきます。 落ちている部分の特定は行単位でファイルにログを残して特定しました。
'[デバッグ用ファイル書込サブルーチン] Call PSB_Debug_File_Write("########## 書込HDD判定 - 2 ##########") S_Path_Wk1 = O_File_System.GetAbsolutePathName( _ PAU_Rec_Folder_Info(L_Jcnt).PS_Rec_Folder) '[デバッグ用ファイル書込サブルーチン] Call PSB_Debug_File_Write("########## 書込HDD判定 - 2-1 ##########") S_Path_Wk2 = O_File_System.GetDriveName(S_Path_Wk1)
'[デバッグ用ファイル書込サブルーチン] Call PSB_Debug_File_Write("########## 書込HDD判定 - 2-2 ##########")
Set O_Drive = O_File_System.GetDrive(S_Path_Wk2)
'Set O_Drive = O_File_System.GetDrive(O_File_System.GetDriveName _ (O_File_System.GetAbsolutePathName( _ PAU_Rec_Folder_Info(L_Jcnt).PS_Rec_Folder)))
'[デバッグ用ファイル書込サブルーチン] Call PSB_Debug_File_Write("########## 書込HDD判定 - 3 ##########")
おそらく情報として書ききれていない部分も多々あると思いますが、 質問いただけたら保管しますので何か解決方法あるいは情報等ありましたら よろしくお願いいたします。
|