質問: Nothing End Sub ### 試したこと if関数でカレントにフォルダがない場合は、msgboxでメッセージを出すようにした。特にメッセージは出ていない。 MsgBox objFolder.SubFolders.Countで、フォルダ数を確認したところ、カレントのフォルダ分しかカウントされず、サブフォルダを含んでいない。 下記をコメント明日とすれば、for each構文でカレントからR:MISのコピーが開始されるが、サブフォルダはコピーqされない。。 MsgBox objFolder.SubFolders.Count WScript.Quit(1) ### 補足情報(言語/FW/ツール等のバージョンなど)
回答: 良くは見ていませんが、定期的に動作させるということは、既に存在するディレクトリもあるはずです。 現状の作りですと、再帰呼び出しされるのはコピー先にディレクトリが存在しないときのみなので、既にある場合は再帰されていないように見えます。 試しに再帰で呼び出すところを次のようにしてみてはいかがでしょうか。 ``` If objFSO.FolderExists(SvFdr & "\" & objFC.name) = False Then objFS.CreateFolder(SvFdr & "\" & objFC.name) End if ’ ↓この処理をIf文の外に出す Call MkSameDir(SvFdr & "\" & objFC.name , BaseDir & "\" & objFC.name) ```