Option Explicit Sub GetFileList() Dim MyPath '自分のパスDim TargetPath '検索パスDim FolderDepth '検索深度 MyPath = ThisWorkbook.Path '検索パスのチェックTargetPath = Sheet1.Cells(1, 2)If Dir(TargetPath, vbDirectory) = "" Then '処理終了 Debu…