下記のVBScriptのコードを実行しましたが、エラーが出て、上手くコピーが出来ません。
ファイルなどはちゃんとフォルダに入っています。
何処を修正すればよいか困っています。
また、これを実行したら指定したパスあるファイルが指定のパスにコピーがされるのでしょうか?
教えてください。お願いします。
エラー
ファイルコピー時にエラーが発生しました。
エラー番号:53
エラー詳細:ファイルが見つかりません
ソースコード
Option Explicit
Dim objFileSys
Dim strFilePathFrom
Dim strFilePathTo
Set objFileSys = CreateObject("Scripting.FileSystemObject")
strFilePathFrom = "C:\Users\ユーザ名\Downloads\テスト入れ物"
strFilePathTo = "C:\Users\ユーザ名\Downloads\テスト"
On Error Resume Next
Call objFileSys.CopyFile(strFilePathFrom, strFilePathTo)
If Err.Number <> 0 Then
'ここにエラー時の処理を記述
WScript.Echo "ファイルコピー時にエラーが発生しました。" & vbCrLf & _
"エラー番号:" & Err.Number & vbCrLf & _
"エラー詳細:" & Err.Description
Err.Clear
End If
On Error Goto 0
Set objFileSys = Nothing
回答1件
あなたの回答
tips
プレビュー