压缩Integerdddd=MyZip_AddFile("C:\1.txt","C:\1.zip")ifdd>0Thenmessagebox("","OK!")解压Integerdddd=MyZip_ExtractFileAll("C:\1.zip","C:\")ifdd>0Thenmessagebox("","OK!")