Private Type FILETIME dwLowDateTime As LongdwHighDateTime As Long End Typeprivate structic FILETIMEpublic dwLowDateTime As integerpublic dwHighDateTime As integerend structic其他的就是把long改为integer就可以了