階層化されたフォルダを一気に作成（Ⅰ）          <TOP>

MakeSureDirectoryPathExists 階層化されたフォルダを一気に作成します。

　

最初に"C:\Make\Sure\Directory\Exists\"を作成し、次に"C:\Make\Sure\Directory2\Exists\"を作成した結果を表しています。

 

結果

参照
SHCreateDirectoryEx

　
'================================================================
'= 階層化されたフォルダを一気に作成(Ⅰ)
'=    (MakeSureDirectoryPathExists.bas)
'================================================================
#include "Windows.bi"

' 階層化されたフォルダを一気に作成
Declare Function Api_MakeSureDirectoryPathExists& Lib "imagehlp" Alias "MakeSureDirectoryPathExists" (ByVal lpPath$)

Var Shared Text1 As Object
Var Shared Edit1 As Object
Var Shared Button1 As Object

Text1.Attach GetDlgItem("Text1") : Text1.SetFontSize 14
Edit1.Attach GetDlgItem("Edit1") : Edit1.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

Var Shared DirPath As String

'================================================================
'=
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainForm_Start()
    DirPath = "C:\Make\Sure\Directory\Path\Exists\"
    Edit1.SetWindowText DirPath
End Sub

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var Ret As Long

    DirPath = GetDlgItemText("Edit1")

    Ret = Api_MakeSureDirectoryPathExists(DirPath)
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End