- 日時: 2014/02/18 17:37
- 名前: 魔界の仮面弁士
- ***********************************************************************************
* カテゴリー:[フォルダー][][] * * キーワード:ディレクトリ,,,,, * *********************************************************************************** Win9x が淘汰された今となっては、SHCreateDirectoryExW 版を使うのが良さそうです。
Private Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExW" ( _ ByVal hwnd As OLE_HANDLE, ByVal pszPath As Long, ByVal psa As Any) As Long
Public Sub MakeDirectory(ByVal Path As String) '深い階層のディレクトリまで作成 SHCreateDirectoryEx 0&, StrPtr(Path), 0& End Sub
|