色々ツール類はあるけれども、やっぱり細かい事はエクセルでの作成が、他の作業と連携がしやすい!
-
- エクセルに作成したいフォルダ名一覧を記載
- フォルダを作成する場所を選択
- スタート
※同じフォルダ名のフォルダは作成されません
※既に同じフォルダがある場合は作成されません
内容
Option Explicit
Function getFolderPath() As String
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show Then
getFolderPath = .SelectedItems(1)
End If
End With
End Function
Sub get_FolderPath() Call mkdirFolder
End Sub
Sub mkdirFolder() Dim Path As String Dim i As Long Dim FolderName As String '作成フォルダ名 Dim NewDirPath As String '親フォルダパス '同名のフォルダの存在有無を確認 Next i MsgBox "終了しました。" End Sub |
動作環境
Windows 10
Excel 2007