>>193
とりゃ、バグは自分で取ってね。
Public Function MakeDirectories(sPath As String) As Long
　　'深いパスを指定されたとき、そこまでのディレクトリをすべて作成する
　　Dim sDirectories() As String
　　Dim sMakePath As String
　　Dim sDir As String
　　Dim n As Long
　　Dim isUnc As Boolean
　　
　　If (Left$(sPath, 2) = "\\") Then
　　　　isUnc = True
　　Else
　　　　isUnc = False
　　End If
　　
　　sDirectories = Split(sPath, "\", -1, vbBinaryCompare)
　　sMakePath = ""
　　For n = LBound(sDirectories) To UBound(sDirectories)
　　　　'Debug.Print "sDirectories(" & n & ")" & sDirectories(n)
　　　　sMakePath = sMakePath & sDirectories(n) & "\"
　　　　If ((isUnc = True) And (n <= LBound(sDirectories) + 3)) Then
　　　　　　'UNCの時で\\oda1\c\までの時は何もしない(ディレクトリではないから)
　　　　Else
　　　　　　sDir = Dir(sMakePath, vbDirectory)
　　　　　　If sDir = "" Then
　　　　　　　　'ディレクトリが存在しなかったら作る
　　　　　　　　Call MkDir(sMakePath)
　　　　　　End If
　　　　End If
　　Next
End Function