【vbs】複数階層のフォルダを一度に作成してみた

複数階層のフォルダを一気に作成するVBSスクリプトを作成してみました。

やりたいこと
複数階層のフォルダを作成するスクリプト
1. 処理内容
実行結果
1. 親フォルダが存在しない状態での実行結果
2. 親フォルダが存在する状態での実行結果

やりたいこと

複数階層という言葉だと少しわかりづらいですが、あるフォルダを作成する際に子フォルダごと作成するということを実施します。

複数階層のフォルダを作成するスクリプト

以下の内容を記載したvbsファイルを実行させることで複数階層のフォルダを作成することができます。

Dim FSO
Dim Folder
Dim Message
Dim Date_yyyy
Dim Date_MM
Dim Date_dd
Dim FolderName
Dim Path
Dim CreatePath

Date_yyyy = Left(Date(), 4)
Date_MM = Mid(Date(), 6, 2) 
Date_dd = Right(Date(), 2) 

Date_full = Date_yyyy & Date_MM & Date_dd

Folder = "hogehoge_"

FolderName = Folder & Date_full

Path = "C:\hogehoge\"

CreatePath = Path & FolderName

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

'同名のフォルダがあるかどうかを判定
if FSO.FolderExists(CreatePath) = True Then
    Message = FolderName + " is exists"
    msgbox Message
else
    FSO.CreateFolder(CreatePath)
    if Err.Number = 0 Then
        Message = "Created " & FolderName
        msgbox Message
    else
        Message = "Error ： " & Err.Description
        msgbox Message
    end if

    '子フォルダの作成
    Dim ChildFolderName
    Dim CreateChildFolderPath
    Dim i

    Path = "C:\hogehoge\" & FolderName

    for i = 1 to 4
        ChildFolderName = "hogehoge" & CStr(i)
        CreateChildFolderPath = CreatePath & "\" & ChildFolderName

        FSO.CreateFolder(CreateChildFolderPath)
    next
end if