フォルダコピーについて質問です。

下記スクリプトにてフォルダコピーを行っています。

str_from = !コピー元フォルダ名!
str_to = !コピー先フォルダ名!
fromFolderPath = ""
toFolderPath = ""

Set objFS = CreateObject("Scripting.FileSystemObject")

If str_from = "" Then
Err.Raise 1, "", "コピー元フォルダ名を指定してください。"
End If

If str_to = "" Then
Err.Raise 1, "", "コピー先フォルダ名を指定してください。"
End If

SetUmsVariable "$FILE_PATH_TYPE", "13"
SetUmsVariable "$PARSE_FILE_PATH", str_from
fromFolderPath = GetUmsVariable("$PARSE_FILE_PATH")

If fromFolderPath = "" Then
Err.Raise 1, "", "コピー元フォルダが見つかりません。"
End If

index = InStrRev(str_to, "\")
lenint = Len(str_to)
if(index = lenint) Then
str_to = Left(str_to,index-1)
SetUmsVariable "$FILE_PATH_TYPE", "13"
SetUmsVariable "$PARSE_FILE_PATH", str_to
toFolderPath = GetUmsVariable("$PARSE_FILE_PATH")
If toFolderPath = "" Then
Err.Raise 1, "", "コピー先フォルダが見つかりません。"
End If
toFolderPath = toFolderPath + "\"
Else
SetUmsVariable "$FILE_PATH_TYPE", "12"
SetUmsVariable "$PARSE_FILE_PATH", str_to
toFolderPath = GetUmsVariable("$PARSE_FILE_PATH")
If toFolderPath = "" Then
Err.Raise 1, "", "コピー先フォルダが見つかりません。"
End If
End If

'フォルダを上書きコピーする、第3引数にfalseを指定すると上書きしません。
Call objFS.CopyFolder(fromFolderPath, toFolderPath)
' Call objFS.CopyFolder(str_from, str_to, false) '上書抑止

動作状況としては、Excelシートでコピー元パス・コピー先パスを読み込み繰り返し

フォルダコピーをする作業をしております。

しかし、テストしている中で、フォルダコピーが成功する場合と失敗する場合がありました。

※コピー元パス・コピー先パスの指定に誤りがないことは確認済みです。

もし、原因について考えられる可能性や有効な解決策があればご教授のほどよろしくお願いいたします。