写了两个判断文件目录是否存在的函数

Visual Basic 6:

Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10

Public Function IsFileExist(ByVal szFileName As String) As Boolean
On Error Resume Next
Dim ret As Long
IsFileExist = False
ret = GetFileAttributes(szFileName)
If ret = -1 Then Exit Function
IsFileExist = IIf((ret And FILE_ATTRIBUTE_DIRECTORY), False, True)
End Function

Public Function IsFolderExist(ByVal szFolderName As String) As Boolean
On Error Resume Next
Dim ret As Long
IsFolderExist = False
ret = GetFileAttributes(szFolderName)
If ret = -1 Then Exit Function
IsFolderExist = IIf((ret And FILE_ATTRIBUTE_DIRECTORY), True, False)
End Function

//用VC++:

bool FileExist(LPCSTR FileName)
{
FILE* tmpFile;
if((tmpFile=fopen(FileName,"r"))==FALSE)
{
return false;
}
else
{
fclose(tmpFile);
return true;
}
}