创建指定的目录(可以是多级目录)

Option Explicit

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

Private Function CreateDirectory(ByVal sDirectory As String) As Boolean

创建指定的目录(可以是多级目录)，sDirectory:要创建的文件夹-Create the specified directory (could be multi-level directory) Option Explicit Private Declare Function MakeSureDirectoryPathExists Lib " imagehlp.dll"　(ByVal lpPath As String) As Long Private Function CreateDirectory (ByVal sDirectory As String) As Boolean ' Create the specified directory (which can be multi-level directory), sDirectory: To create a folder