[リストへもどる]
一括表示
投稿時間：2004/04/18(Sun) 12:01
投稿者名：あき
Ｅメール：
ＵＲＬ　：
タイトル：パソコン間でファイルのコピーについて
　前回はエクセルの件でお世話になりました。
今回、作成したデータをＬＡＮでつながった別のパソコンにバックアップとして保存しようと思って
「FileCopy "C:\test.xls", "\\Home\Data\test.xls"」でコピーしようと思いましたが
ファイルが見つからないというメッセージがでてうまくいきません。
何回か試みてみたのですが、コピーする前にマイネットワークであらかじめユーザー名と
パスワードを入力してそのフォルダを一度開いておくとコピーできることにきづきました。
ファイルをコピーする前にＶＢからユーザー名とパスワードを送信してコピーできるように
する方法がありましたら教えていただけませんでしょうか？
よろしくお願いいたします。

投稿時間：2004/04/19(Mon) 10:28
投稿者名：香崎
Ｅメール：
ＵＲＬ　：
タイトル：Re: パソコン間でファイルのコピーについて
んと、もしかしたら勘違いして欲しい答えじゃないのかもしれませんが・・・
ファイルをコピーする前にネットワークドライブに接続する・・・って形で良いのかな？？
Microsoft.VisualBasic.Interaction.Shell("NET USE 指定するならネットワークドライブ \\Home\Data パスワード /USER:ユーザー名", AppWinStyle.MaximizedFocus, True, 10)
で行くとおもいます。
私、vb.net使いなのでちょっと構文が違うと思いますが、shell関数を利用してNet Use を
使用するとvb.netではうまく行きました
ネットワークドライブを入れると(M:とか）、マイコンピュータの中にネットワークドライブ
が追加されると思います。

投稿時間：2004/04/19(Mon) 21:49
投稿者名：あき
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: パソコン間でファイルのコピーについて
香崎さま　ありがとうございます。
教えて頂いたのを参考に
Dim RetVal
RetVal = Shell("\\Home\Data Lm8392 /USER:administrator", vbNormalNoFocus)
とか、いろいろ試してみましたがどれも引数が不正ですのメッセージで終わってしまいます。
どこが、いけないのでしょう。
もしかすると私は何か基本的なことを間違っているような・・・・
ちなみにＶＢは６（アカデミック）です。
こんなアホな私ですが、もう少しご指導頂けませんか？
よろしくお願いいたします。

投稿時間：2004/04/20(Tue) 08:56
投稿者名：香崎
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: パソコン間でファイルのコピーについて
いえいえ、私もあまりわかってないので（笑）
あのですね、ＤＯＳプロンプトで実行してもらうとわかるとおもうのですが、NET USE という
コマンドがあるのですよ。NET USE /? をＤＯＳプロンプトで実行するとヘルプが出ますが、
これがネットワークドライブを接続させるコマンドなのです。
例えば、マイコンピューターにネットワークドライブを出さなくても良い場合で、
つなげたいフォルダが \\Home\Data
ユーザー名が Administrator パスワードが Adminとした場合のコマンドは
NET USE \\Home\Data Admin /USER:Administrator
となるわけですよ。これが、\\Home\Data を M:ドライブに割り当てたいのなら
NET USE M: \\Home\Data Admin /USER:Administrator
となります。
このコマンドを Shell関数で実行しているだけなんです。
なので、あきさんの場合だと NET USE っていう肝心のコマンドが抜けていると
思われます。
ではでは、頑張って下さい

投稿時間：2004/04/20(Tue) 22:23
投稿者名：あき
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: パソコン間でファイルのコピーについて
香崎 さま
ありがとうございます。私もいろいろ調べたのですが、実行するプログラムを指定しなければ
いけないのですね。ごめんなさい。やはり基本的な間違いなのですね。
少し、暗くなっていたのですが、わかりやすく説明して頂いて、頑張るぞって気持ちになっています。

黒影 さま
ＡＰＩ・・・「ウインドウズで用意された汎用の関数」って書いてあったＨＰをみました。
紹介頂いたページをみたのですが、私には難しすぎます。でもこれを乗り越えなければ
とりあえずは二流のプログラマにはなれないのですね。勉強します。

苦手な、社会系の小テスト群に追われ、ご指導の実践は来週、頑張ります。
ありがとうございました。

投稿時間：2004/04/20(Tue) 22:26
投稿者名：あき
Ｅメール：
ＵＲＬ　：
タイトル：Re^5: パソコン間でファイルのコピーについて
> 香崎 さま
> ありがとうございます。私もいろいろ調べたのですが、実行するプログラムを指定しなければ
> いけないのですね。ごめんなさい。やはり基本的な間違いなのですね。
> 少し、暗くなっていたのですが、わかりやすく説明して頂いて、頑張るぞって気持ちになっています。
>
> 苦手な、社会系の小テスト群に追われ、ご指導の実践は来週、頑張ります。
> ありがとうございました。

投稿時間：2004/04/28(Wed) 19:37
投稿者名：あき
Ｅメール：
ＵＲＬ　：
タイトル：解決しました。ありがとうございます。
香崎 さま
ありがとうございます。もう、ずいぶん前のレスですのでお忘れに
なっていらっしゃらないでしょうか？
時間ができたので再びチャレンジ・・・・
結果は以下のコードで
Dim RetVal
RetVal = Shell("NET USE \\Home\Data Lm8392 /USER:administrator", 1)
大成功。一瞬黒い画面が出たと思ったらその後、見事にファイルが
コピーできていました。

ホントに、うれしかったです。

投稿時間：2004/04/20(Tue) 09:35
投稿者名：黒影
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: パソコン間でファイルのコピーについて

> もしかすると私は何か基本的なことを間違っているような・・・・
> ちなみにＶＢは６（アカデミック）です。

ネットワークの接続には「WNetAddConnection2」という
ＡＰＩ関数を使用するようです...
使い方は下記を参考にしてみて下さい。

http://www.remus.dti.ne.jp/~y-mac/apilib/netresrc.htm

投稿時間：2004/04/20(Tue) 22:32
投稿者名：あき
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: パソコン間でファイルのコピーについて
黒影 さま
ＡＰＩ・・・「ウインドウズで用意された汎用の関数」って書いてあったＨＰをみました。
紹介頂いたページをみたのですが、私には難しすぎます。でもこれを乗り越えなければ
とりあえずは二流のプログラマにはなれないのですね。
勉強します。ありがとうございました。