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