| 发表于:2008-01-15 16:54:132楼 得分:0 |
应该不会出现这种情况,估计与保存方式无关,你用调用函数方式试试: public function getinternetfile(inet1 as inet, myurl as string, destdir as string, filename as string) as boolean on local error goto 100 dim mydata() as byte if filename = "" then for x = len(myurl) to 1 step -1 if left$(right$(myurl, x), 1) = "/" then filename = right$(myurl, x - 1) next x end if filename = destdir + "\" + filename if inet1.stillEXECuting = true then exit function mydata() = inet1.openurl(myurl, icbytearray) open filename for binary access write as #99 put #99, , mydata() close #99 getinternetfile = true exit function ' error handler 100 getinternetfile = false resume 105 105 end function | | |
|