frog.raindrop.jp.knowledge

'******************************************************************
'プロシージャ名:  :MakeSureDirectoryPathExists
'説明:            :SDK に含まれる同名の関数をシミュレートしたもの
'引数:            :pstrDirPath        I   ディレクトリパス
'戻り値           :Boolean型          成否
'******************************************************************
Public Function MakeSureDirectoryPathExists(pstrDirPath As String) As Boolean
'============= Declare ==============
Dim strPathTemp         As String

'============= Initiarize ===========
On Error GoTo MakeSureDirectoryPathExists_E00
    MakeSureDirectoryPathExists = False
'============= Main =================

    strPathTemp = Left$(pstrDirPath, InStrRev(pstrDirPath, "\") - 1&)
    If Len(Dir$(strPathTemp)) Then
        If (GetAttr(strPathTemp) And vbDirectory) Then
            MakeSureDirectoryPathExists = True
        End If
        Exit Function
    End If
    
On Error GoTo MakeSureDirectoryPathExists_E10
    Call MkDir(strPathTemp)
    
'============= Release ==============
MakeSureDirectoryPathExists_L00:
    MakeSureDirectoryPathExists = True
    Exit Function
'============= Error ================
MakeSureDirectoryPathExists_E10:
    If MakeSureDirectoryPathExists(strPathTemp) Then
        Call Err.Clear
        Resume
    End If
MakeSureDirectoryPathExists_E00:
    Call Err.Clear

End Function

千里の道も、一歩から。こつこつためよう、汎用関数。C言語版もなんかのとき作った記憶があるんだけど、思い出せません。