【Excel VBA】フォルダがなければ作る関数

スポンサーリンク
プログラミング

マクロで作ったファイルを保存する先を作りたい場合があります。

この時保存フォルダがない場合作ってくれるマクロです。

'使い方
Sub TEST()
	Call MakePath("C:\TEMP\A\B\C")
	MsgBox "作成完了"
End Sub

'再帰関数
Sub MakePath(path As String)
    Dim parentFolder As String
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    parentFolder = fso.GetParentFolderName(path)
    If Not fso.FolderExists(parentFolder) Then
        Call MakePath(parentFolder)
    Else
        fso.CreateFolder path
        Exit Sub
    End If
    fso.CreateFolder path
    Set fso = Nothing
End Sub

どんなに階層が深くてもそこまで追って作成してくれるのでとても便利ですね。コピーして使ってください。

暇な時間にU-NEXT

今なら無料1ヶ月無料トライアル600円分の有料コンテンツを使えるチャンス!

見放題作品が31日間無料で視聴可能最新作はレンタル配信!

600円分のポイントプレゼント!DVD・ブルーレイよりも先行配信の最新作、放送中ドラマの視聴や最新コミックの購入に使用可能

 

追加料金なく、80誌以上の雑誌が読み放題

プログラミング
スポンサーリンク
uediveをフォローする
SEの休日

コメント

タイトルとURLをコピーしました