VBSでサーバからのファイルコピーができません

質問

下記ソースについて、コピー元ファイルがDやCドライブにあるものは
指定したコピー先にファイルを貼り付けることができるのですが、
コピー元がサーバー上である場合、指定したコピー先にファイルが
貼りつきません。何か特別な処理等が必要でしょか？
ご教授ください。

Dim fs
Dim msg
Dim f
Dim copyFrom
copyFrom = Array("D:\VBS\", "D:\VBS\AB\")
Dim Ar
Const copyTo = "D:\VBS\コピー先\"

Do
'日付入力のインプットボックスを出力
hizuke = InputBox("日付を入力してください。" & vbCr & vbCr & "例）2000-01-01")
'インプットボックスの入力値が空白である
If hizuke = "" Then
'日付入力を促すメッセージ出力
MsgBox "日付を入力してください。"
Exit Do
End If
'インプットボックスの入力値が10文字である
If Len(hizuke) = 10 Then
'エラーが発生しても次の処理をすすめる
On Error Resume Next
'指定した日付の確認ダイアログを表示
msg = MsgBox(hizuke & "でよろしいですか？", vbYesNoCancel)
'日付の確認ダイアログでYesを選択
If msg = vbYes Then

For Each Ar In copyFrom

MsgBox(Ar)
'ファイルオブジェクトを作成
Set fs = CreateObject("Scripting.FileSystemObject")

'コピー元フォルダに存在するファイルを読み込む
For Each f In fs.GetFolder(Ar).Files
'指定した日付を含むファイル名を検索
If InStr(f.Name, hizuke) > 0 Then

MsgBox(copyFrom & "フォルダ")
MsgBox(f.Name & "名前")

fs.CopyFile Ar & f.Name, copyTo

End If
Next
Next
Exit Do
Else
Exit Do
End If
Else
MsgBox("入力値が不正です。")
End If

Loop

回答No.1

DOUGLAS_ · ベストアンサー

＞コピー元がサーバー上である場合
copyFrom = Array(～～～)
の「～～～」の部分には、どのような文字列を表示しているのでしょうか？

http://homepage2.nifty.com/pasocon/shell/shell/browseforfolder.html
に例示された【例】VBScript: のスクリプトを実行し、「コピー元」に指定したいフォルダを選択して [OK] をクリックしてみてください。

　そのときに、「\\～～\～～\hoge」というようなネットワークアドレスが表示されるかと存じますが、そういう文字列を
copyFrom = Array(～～～)
の括弧内に指定してみてください。

　なお、アドレスの最後に「\」が付いていなくても問題はないようですが、最初の「\\」を省くと動作しません。

お礼

返信が遅くなってしまい申し訳ありません。DOUGLAS_ さん、いつも有難うございます。
アドレスの最後に「￥」をつけることで問題解決しました。DOUGLAS_ さんがおっしゃるようにアドレスの最後に「￥」が付いていなくても問題ないとリファレンスで私も見ていたのですが、「￥」がないと指定したフォルダにファイルが貼りつかなかったです。