(VB6.0)共有フォルダへファイルをコピーするには？
度々の質問、申し訳ありません。
copyMoto = "\\xxx.xxx.xxx.xxx\c\files\test.txt"
copySaki = "\\yyy.yyy.yyy.yyy\c\files\test.txt"
Set Fso = CreateObject("Scripting.FileSystemObject")
Fso.CopyFile copyMoto, copySaki
（xxx.xxx.xxx.xxxは自分のマシンです）
このようなコマンドでファイルコピーを行った場合、
同じ建物内ではうまくコピーできるのですが、
違う建物に対してだと、コピーすることが出来ません。
エラーも出ず、普通に終了するのですが、いざコピー先のフォルダを覗いてもファイルが存在していない状況です。
そのような場合でも、大きなファイルをコピーすると長く時間がかかり、小さなファイルだと短い時間で終了します。
コピー先のマシンは、パスワード無しで共有状態にしてあります。
バッチファイルでのコピーや、windowsでの右クリックメニューでのコピーは問題なく成功します。
VB6.0にて何かうまくコピーを成功させる方法があるようでしたらお教え下さい。
よろしくお願いします。
>同じ建物内ではうまくコピーできるのですが、
>違う建物に対してだと、コピーすることが出来ません。
こんなこと書かれても、あなたと同じ場所にいる人しか状況が理解できないと思うんですけど
ええ〜と・・・
まず、ネットワーク上の話から入りますと、同じ建屋内は同一ドメイン、
もしくはワークグループ傘下の設定ですか？
違う建屋は、ドメイン・ワークグループが違う設定のマシンになります
でしょうか？
もし、ドメインやワークグループをまたいでいる設定であれば、セキュ
リティーの関係で、コピーしたファイルがコピー先で拒否され削除され
るかどうかで、無くなってしまっているものと思います。
その場合は、ドメイン等の認証を行なわないと、ファイルのコピーは、
成功しませんが・・・
次に、それらマシンのＯＳは何でしょうか？
ＯＳによっても若干左右される内容は存在しますので・・・
因みに、ＯＳが、Win2000/XPであれば、各マシンのＩＩＳ上のＦＴＰ
にファイルをアップロードさせるような方法であれば、ドメイン等の
設定に左右されませんが・・・
ご検討下さい。
説明不足で申し訳ありません。
同じ建屋内はドメイン・ワークグループとも同じですが、
他は違う設定となっております。
ＯＳはほとんどが2000/XPですが、98も何台かあります。
とりあえず、ドメインの認証を行って試してみたいと思います。
どうもありがとうございました。
無事解決できましたら、改めて解決済みをつけさせて頂きます。
今のプログラムのままで確認する方法としては・・・
予め、NET USE コマンドをＤＯＳ窓で実行して、ファイルのコピー先との
認証を終えておき、即、現行のプログラム実行・・・
そうすれば、コピーは正常に行なえるはず・・・
それでもコピー先のマシンにファイルが無い場合、別のセキュリティーか
何か設定が潜んでいることになりますが・・・
NET USE /? で、ヘルプ出して確認して下さい。
ある意味、簡単に確認できますので・・・
以上。
| ツイート |  |