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
お礼
すみません。こちらの情報不足でした。 改めて質問させてもらいます。