投稿日 | : 2004/05/17(Mon) 12:45 |
投稿者 | : LESIA |
Eメール | : |
URL | : |
タイトル | : Re: サブフォルダを含めたフォルダの一括作成 |
> 【質問事項】
> フォルダを作成する際に、サブフォルダを含めて一括で作成する方法を
> ご存知の方がいらっしゃれば教えて下さい。
一括で作成する方法はないので、作成するフォルダの親フォルダがなければ
親フォルダを作成してから、作成するしかないです。
再帰を使えば、関数1つで済みます。
Private Sub MkDirEX(ByVal strPathName As String)
Dim fso As Object
Dim strParentPath As String
Set fso = CreateObject("Scripting.FileSystemObject")
strParentPath = fso.GetParentFolderName(strPathName)
If fso.FolderExists(strParentPath) = False Then
MkDirEX strParentPath
End If
fso.CreateFolder strPathName
End Sub
【例】
Call MkDirEX("C:\TEMP\YYYYMMDD\HHMMSS")