Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3108 / 9994

←次へ　｜　前へ→


	【10148】CopyFolderについて

kiki - 08/1/17(木) 11:46 -


	引用なし

	パスワード

２台のＰＣで１つのＭＯ装置にバックアップするときに下記のような現象が発生して悩んでいます。どうか良きアドバイスをお願い致します。

Ｗｉｎ　Ｘｐ（Ｐｒｏ）でＡＣＣＥＳＳ２０００を使っています。

ＡＣＣＥＳＳで作成したシステムを２台のＰＣで別々に運用しています。それぞれのシステムをＭＯにバックアップするようにしています。
ＭＯ装置は１台しかなく、１台目にＭＯを接続して２台目からはこの１台目のＭＯ装置に書き込むようにしています。テストの段階ではＰＣ毎にＭＯ装置を接続しての書き込みは問題なく動作していましたが、ＭＯ装置を共用するようにして書き込みテストをすると、「ＭＯ装置が見付からない」状態になります。
例えばＭＯ装置が無いＰＣから書き込みをした後に（正常に動作している）ＭＯ装置があるＰＣで書き込みをすると「ＭＯ装置がみつからない」（err.number＝76）の状態になります。この状態の時にＭＯ装置があるＰＣを再起動して書き込みをすると正常に動作します。このような現象を解消する方法をお教え下さい。以下にＭＯへの書き込みコードを記述しますのでどうか良きアドバイスをお願いいたします。（共通のコードです）

Dim strFileSystem as Object
Dim strInFolder　 as String
Dim strOutFolder　as String

Select Case Rst!Computer_Name
　　　 Case "Honsha001"
　　　　　　 strInFolder = "C:\本社システム１"　　　
　　　　　　 strOutFolder = "F:\BackUp1"
　　　 Case "Honsha002"
　　　　　　 strInFolder = "C:\本社システム２"
　　　　　　 strOutFolder = "\\Honha001\F\BackUp2"
End Select

strFileSystem.CopyFolder strInFolder, strOutFolder

'オブジェクトの開放
Set strFileSystem = Nothing
　　　　
MsgBox "ＭＯに退避できました"

556 hits

▼

【10148】CopyFolderについて kiki 08/1/17(木) 11:46