深い階層のフォルダ作成

深い階層のフォルダを作成するサンプルです。

Dim i As Integer
Dim strPath As String
Dim strPaths() As String
Dim strTemp As String
strPath = "D:\AAA\BBB\CCC"
strPaths = Split(strPath, "\")
strTemp = strPaths(LBound(strPaths))
For i = LBound(strPaths) + 1 To UBound(strPaths)
strTemp = strTemp + "\" + strPaths(i)
If Dir(strTemp, vbDirectory) = "" Then
Call MkDir(strTemp)
End If
Next

char strPath[_MAX_PATH];
char strTemp[_MAX_PATH];
char *pPoint = strPath;
HANDLE hFindFile;
WIN32_FIND_DATA FindFileData;

strcpy(strPath, "D:\\AAA\\BBB\\CCC");
if (strPath[strlen(strPath) - 1] != '\\')
{
strcat(strPath, "\\");
}
while (pPoint = strchr(pPoint + 1, '\\'), pPoint != NULL)
{
strcpy(strTemp, strPath);
strTemp[pPoint - strPath] = '\0';

hFindFile = FindFirstFile(strTemp, &FindFileData);
if (hFindFile == INVALID_HANDLE_VALUE)
{
CreateDirectory(strTemp, NULL);
}
else
{
FindClose(hFindFile);
}
}

//"java.io.*"をインポートする必要があります。
// import java.io.*;
String strPath;
File objFile;
strPath = "D:\\AAA\\BBB\\CCC";
objFile = new File(strPath);
objFile.mkdirs();