VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2004/05/17(Mon) 12:45
投稿者： LESIA
Ｅメール：
ＵＲＬ：
タイトル： Re: サブフォルダを含めたフォルダの一括作成

> 【質問事項】
> フォルダを作成する際に、サブフォルダを含めて一括で作成する方法を
> ご存知の方がいらっしゃれば教えて下さい。

一括で作成する方法はないので、作成するフォルダの親フォルダがなければ
親フォルダを作成してから、作成するしかないです。
再帰を使えば、関数１つで済みます。

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")

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -