VBAフォルダ/ファイル操作

A1⇒フォルダ名

Sub Sample()
MkDir "C:￥Work￥Sub￥" & worksheets("Sheet1").range("A1").value
End Sub

フォルダ内のファイル名を書き出す

プログラムマクロVBAでフォルダ内のファイル名をエクセルに一覧にする

https://youtu.be/GUJCQgQgDoU