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

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;
    }
}