実行時エラー'13'型が一致しませんエラー発生

質問

office2010

サーバのあるフォルダ（１）にexcelファイルが登録されています。
バックアップを取るために、フォルダ末尾に－と日付情報を付加して新規フォルダ（２）を作成
（１）のフォルダ配下のファイルを全て（２）のフォルダ配下にコピー
という動作をさせようとしています
サーバはIPアドレスで指定(**.**.**.**で表現しています）
マクロ
Sub Sample_FSO_CopyFolder()
'参照設定追加　Microsoft Scripting Runtime

'フォルダをコピー(TOOLシートのU1セルに　=TEXT(NOW(),"yyyymmddhhmmss")

'
Dim datename As String

Worksheets("TOOL").Range("U1").Calculate
　datename = Worksheets("TOOL").Range("U1")
'
'新規フォルダ作成

Dim myFO As Object 'オブジェクト型の変数を定義’

Dim FolderName As String '作成したいフォルダパスを格納’

Set myFO = CreateObject("Scripting.FileSystemObject") 'オブジェクト型の変数にFileSystemObjectを設定’

FolderName = "\\**.**.**.**\data\SYSTEM\JIG" & "-" & datename & ""

myFO.CreateFolder FolderName 'フォルダ作成’
Set myFO = Nothing 'オブジェクトの解放’

'複数のファイルをコピー

Dim fso As FileSystemObject
Set fso = New FileSystemObject
Call fso.CopyFile("\\**.**.**.**\data\SYSTEM\JIG\*", "FolderName & " \ "", True) ' ' 全てのファイルをまとめてコピー
' 後始末
Set fso = Nothing

End Sub

上記実行で型が一致しませんのポップアップエラーが発生します。

Call fso.CopyFile("\\**.**.**.**\data\SYSTEM\JIG\*", "FolderName & " \ "", True)
の部分をFolderNameの変数ではなく、下記の様に直接フォルダ名で指定すると、コピー動作します。
'Call fso.CopyFile("\\**.**.**.**\data\SYSTEM\JIG\*", "\\**.**.**.**\data\SYSTEM\JIG-20190228174216\", True) ' 全てのファイルをまとめてコピー
※
デバッグモードのローカルウィンドウで値を見たとき、
FolderNameは\\**.**.**.**\data\SYSTEM\JIG-20190228174216
となっており正しいと思うのですが、なぜ変数指定でエラーになるのでしょう？

回答No.2

mt2015 · ベストアンサー

> 教えてもらった修正すると
> 形が一致しません
> のエラーから
> 実行時エラー'76'
> パスが見つかりません
> のエラーに変わりました。

こちらでも環境を作って試してみましたが、正常に動きます。
単なる修正ミス等の可能性があります。今一度ご確認ください。

お礼

回答ありがとうございます。
FolderNameの後の\前後に半角スペースがあるのがNGの原因でした。
動作の再現確認までしていただき、大変お手数をおかけしました。
無事動作することが出来、助かってます。(*^_^*)

回答No.1

mt2015

「FolderName」が変数ではなく、文字列になっています

Call fso.CopyFile("\\**.**.**.**\data\SYSTEM\JIG\*", "FolderName & " \ "", True) ' ' 全てのファイルをまとめてコピー
↓
Call fso.CopyFile("\\**.**.**.**\data\SYSTEM\JIG\*", FolderName & "\", True) ' ' 全てのファイルをまとめてコピー

お礼

回答ありがとうございます。

補足

エラー内容が変わりました。
教えてもらった修正すると
形が一致しません
のエラーから
実行時エラー'76'
パスが見つかりません
のエラーに変わりました。

サーバには、フォルダ作成されています。
そのフォルダ名をコピーし、エクスプローラで、入力すると空のフォルダ参照可能です。