フォルダ存在チェック

指定したフォルダが存在するかチェックするサンプルです。

If Dir("D:\Test\Test", vbDirectory) <> "" And _
(GetAttr("D:\Test\Test") And vbDirectory) = vbDirectory Then
Call MsgBox( _
"フォルダが存在します。", vbOKOnly, "結果")
Else
Call MsgBox( _
"フォルダが存在しません。", vbOKOnly, "結果")
End If

WIN32_FIND_DATA FindData;
if (FindFirstFile("D:\\Test\\Test", &FindData)
!= INVALID_HANDLE_VALUE &&
(FindData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
== FILE_ATTRIBUTE_DIRECTORY)
{
MessageBox(
NULL, "フォルダが存在します。", "結果", MB_OK);
}
else
{
MessageBox(
NULL, "フォルダが存在しません。", "結果", MB_OK);
}

//"java.io.*"をインポートする必要があります。
// import java.io.*;
File objFile = new File("D:\\Test\\Test");
if (objFile.exists() == true &&
objFile.isDirectory() == true)
{
System.out.println("フォルダが存在します。");
}
else
{
System.out.println("フォルダが存在しません。");
}