Function FileExists(ByVal FileName As ZString Ptr) As Integer Dim File_HANDLE As HANDLE File_HANDLE = CreateFile(FileName,GENERIC_READ,FILE_SHARE_READ,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL) If File_HANDLE <> INVALID_HANDLE_VALUE Then FileExists = -1 EndIf CloseHandle(File_HANDLE) End Function