| 投稿日 | ： 2005/01/26(Wed) 09:43 |
| 投稿者 | ： だい |
| Ｅメール | ： dee_bassist@hotmail.com |
| ＵＲＬ | ： |
| タイトル | ： Re: 存在しないフォルダを作成 |
APIでよいなら、
Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As
Long
Function MakeSurePath(strdir As String) As Long
MakeSurePath = MakeSureDirectoryPathExists(strdir)
End Function
とした場合に
MakeSurePath("D:\TEMP\TEST\aaa\bbb.txt")
を実行すると
D:\TEMP\TEST\aaa
が勝手に作成されます。