実現したいこと
フォルダ内にサブフォルダが作成されるVBAを作成したい。
①サブフォルダ作成ツール.xlsmからVBA実行
②テスト環境フォルダ内の各フォルダ(A0001等)の中に完了フォルダが作成
●テスト環境フォルダ構成
テスト環境:対象フォルダ
ツール一覧:VBA実行ファイル格納先
●対象フォルダ構成
●実行後_フォルダ中身
前提
・②の完了フォルダを作成する際、各フォルダ(A0001等)の中に完了フォルダがあれば作成しない。
・今回フォルダ数は3個ですが、今後100個ほど増える事を想定しております。
・フォルダ内にファイル格納ケースはあるが、フォルダは完了フォルダのみの構成となる。
発生している問題・エラーメッセージ
・サブフォルダ内に完了フォルダを作成する事が出来ていないです。
・フォルダ毎に完了フォルダを作成する事が出来ていないです。
該当のソースコード
VBA
1Sub フォルダ内にサブフォルダ作成() 2 3Const copy As String = "C:\Users\○○○\Desktop\テスト環境" 'フォルダ作成上位場所 4Dim objFso As Object 5Set objFso = CreateObject("Scripting.FileSystemObject") 6 7Dim strFolderPath As String 8 9If objFso.FolderExists(copy & "\完了") Then 10 MsgBox "フォルダ完了は存在しています" 11Else 12 strFolderPath = objFso.CreateFolder(copy & "\完了") 13 MsgBox "フォルダ完了は存在しなかったので作成しました" & vbNewLine & strFolderPath 14End If 15 16Set objFso = Nothing 17 18End Sub

回答2件
あなたの回答
tips
プレビュー
下記のような回答は推奨されていません。
このような回答には修正を依頼しましょう。
また依頼した内容が修正された場合は、修正依頼を取り消すようにしましょう。
2023/04/19 03:46