[VBS]リモートデスクトップ接続したホストの特定ファイルをクライアントにコピーしたい

Question

前提・実現したいこと

前任者が作成したVBSを書き換えて、
リモートデスクトップ接続先のDドライブ配下のファイルを
クライアント側Cドライブにコピーするスクリプトを書いています。

ツールの動作は以下の通りです。
0. クライアント側で必要なファイルの日付と時間を決定
0. クライアントからホストにリモートデスクトップ接続
0. ホスト側で該当日付と時間のフォルダ「yyyymmdd_HHMM」をD:\tempに格納
0. ホスト側からクライアント側に3.をフォルダごとコピー

該当ソースコードを実行するのはホスト(リモートデスクトップ接続)からです。

発生している問題・エラーメッセージ

エラー処理部分(下記ソースコード★部分と思っています)で
「オブジェクトがありません」
と表示されます。

該当のソースコード

※ツール動作4.に当たる部分のみ抜粋しています。

Option Explicit

    Dim objFSO                          ''FileSystemObject
    Dim sFolderPathHostResult           ''ホスト側フォルダパス(結果用)
    Dim sFolderPathClientResult         ''クライアント側フォルダパス(結果用)
    Dim sNowFolderName				''フォルダ名のyyyymmdd_HHMM 部分

''エラー設定
On Error Resume Next

  ''初期設定
  sFolderPathHostResult = "D:\temp\"
  sFolderPathClientResult = "\tsclient\C\ツール\データ取得ツール\取得フォルダ\"

  ''yyyymmdd_HHMM の文字列生成
  sNowFolderName = Replace(FormatDateTime(Now,2),"/","") & "_" & Replace(FormatDateTime(Now,4),":","")

  ''フォルダパスと現在日時をマージ　フォルダパス … D:\temp\yyyymmdd_HHMM
   sFolderPathHostResult = sFolderPathHostResult & sNowFolderName

  Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

  If Err.Number = 0 Then
        ''フォルダの存在チェック(コピー元)
        If objFSO.FolderExists(sFolderPathHostResult) <> True Then
            ''ファイルが存在しないので処理終了
            WScript.Echo "設定ファイル「" & sFolderPathHostResult & "」が存在致しません。" & Err.Description
        End If
    End If

    ''フォルダコピー開始
    If Err.Number = 0 Then
        ''ファイルコピー
        objFSO.CopyFolder sFolderPathHostResult, sFolderPathClientResult, True

        If Err.Number = 0 Then
        Else
            WScript.Echo "エラー: " & Err.Description
        End If
    Else
        ''★ ここでエラーが出ていると思われる。
        WScript.Echo "エラー: " & Err.Description
    End If

    ''オブジェクトの開放
    Set objFile = Nothing
    Set objFSO = Nothing

    ''WindowsOSログオフ処理(リモートデスクトップ終了)
    Call subLogOffWindowsOS

    ''完了メッセージ
    MsgBox "処理が完了致しました。", 0, sMessageTitle

    ''処理終了
    WScript.Quit


'WindowsOSログオフ処理(コマンドライン)
Sub subLogOffWindowsOS()
    Dim WshShell     ''WshShell オブジェクト
    Dim objExec      ''Tera Term起動用
    Dim sAppName     ''コマンドライン

     ''コマンドラインを作成
    sAppName = "logoff"

    ''コマンドライン実行
    Set objExec = WshShell.Exec(sAppName)
    
End Sub

試したこと

該当ソースコード部分で前任者の書いたコードから書き換えたのはこの部分です。

ホスト側D:\temp配下に生成されるフォルダ名を"yyyymmdd_HHMM"とするように
したためです。

  ''yyyymmdd_HHMM の文字列生成
  sNowFolderName = Replace(FormatDateTime(Now,2),"/","") & "_" & Replace(FormatDateTime(Now,4),":","")

  ''フォルダパスと現在日時をマージ　フォルダパス … D:\temp\yyyymmdd_HHMM
   sFolderPathHostResult = sFolderPathHostResult & sNowFolderName

以前は下記のようになっていて、その際は問題なく動作していました。

    sFolderPathHostResult = sFolderPathHostResult & Replace(Date, "/", "")