カレントにあるフォルダとサブフォルダを別のドライブにコピーしたい

Question

###前提・実現したいこと
vbscriptでカレントにあるフォルダとサブフォルダをR:\MISにコピーするプログラムを作成しました。定期的に実行し、R:\MISにないフォルダがあればコピーします。

###発生している問題・エラーメッセージ
サブフォルダがうまくコピーできていないため、MsgBox objFolder.SubFolders.Countでフォルダ数をみると、カレントのフォルダ分しかカウントされていませんでした。配下には1000以上のｻﾌﾞﾌｫﾙﾀﾞを網羅できていないため、その原因を特定したいです。

エラーメッセージ
特にないが、サブフォルダ数がカウントされない。

###該当のソースコード


'■自分のいる階層のディレクトリ構成をコピーする■
'下位の階層もコピーする(再帰処理)
set objFS = CreateObject("Scripting.FileSystemObject")
'親フォルダ名(階層なし)を特定
Dim PtFdr 
	PtFdr = objFS.GetFilename (objFS.GetAbsolutePathName("."))

'各フォルダ名を取得する
set objFolder = objFS.GetFolder(".")

'子フォルダの作成
Call MkSameDir("R:\MIS\",".")

'//Function //////////////////////////////////////////
'■子フォルダに階層内のフォルダを保存
Private Sub MkSameDir(SvFdr,BaseDir)	'パラメータ(作成先Dir,コピー元Dir)

	Dim objFSO      ' FileSystemObject
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")	'フォルダ存在チェック

	set objFolder = objFS.GetFolder(BaseDir)
	set objSF = objFolder.SubFolders

	if objSF.count = 0 then		'フォルダがなければ終了(再帰終了条件)
		MsgBox("フォルダがありません。。")
		WScript.Quit(1)
	End If
		MsgBox objFolder.SubFolders.Count
		WScript.Quit(1)

	For Each objFC in objFolder.Subfolders
		'最初の階層で作ったフォルダ(自分自身)は、フォルダとして数えない
		If objFC.name = objFS.GetFileName(SvFdr) and BaseDir = "." then
		
		Else
			If objFSO.FolderExists(SvFdr & "\" & objFC.name) = False Then
				objFS.CreateFolder(SvFdr & "\" & objFC.name)
				Call MkSameDir(SvFdr & "\" & objFC.name , BaseDir & "\" & objFC.name)
			End if
		End if
	Next

	Set objFSO = Nothing

End Sub

###試したこと
if関数でカレントにフォルダがない場合は、msgboxでメッセージを出すようにした。特にメッセージは出ていない。
MsgBox objFolder.SubFolders.Countで、フォルダ数を確認したところ、カレントのフォルダ分しかカウントされず、ｻﾌﾞﾌｫﾙﾀﾞを含んでいない。
下記をコメント明日とすれば、for each構文でカレントからR:MISのコピーが開始されるが、ｻﾌﾞﾌｫﾙﾀﾞはコピーｑされない。。
		MsgBox objFolder.SubFolders.Count
		WScript.Quit(1)


###補足情報(言語/FW/ツール等のバージョンなど)

Answer 1

良くは見ていませんが、定期的に動作させるということは、既に存在するディレクトリもあるはずです。
現状の作りですと、再帰呼び出しされるのはコピー先にディレクトリが存在しないときのみなので、既にある場合は再帰されていないように見えます。
試しに再帰で呼び出すところを次のようにしてみてはいかがでしょうか。

If objFSO.FolderExists(SvFdr & "\" & objFC.name) = False Then
	objFS.CreateFolder(SvFdr & "\" & objFC.name)
End if
’ ↓この処理をIf文の外に出す
Call MkSameDir(SvFdr & "\" & objFC.name , BaseDir & "\" & objFC.name)