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

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