FunctionUpRemoteFileToLocal(ByValUpTypeAsString,ByValRemoteUrlAsString,ByValLocalFileAsString)AsBoolean
DimTmpResultAsBoolean=False
SelectCaseUpType
Case"xmlhttp"
'WithMSXML2
DimmyXmlHttpAsNewMSXML2.XMLHTTP40
myXmlHttp.open("GET",RemoteUrl,False)
myXmlHttp.send()
DimFSAsFileStream=NewFileStream(LocalFile,FileMode.CreateNew)
DimBWAsBinaryWriter=NewBinaryWriter(FS)
BW.Write(myXmlHttp.responseBody)
BW.Close()
FS.Close()
TmpResult=True
Case"webclient"
'WithSystem.NetNameSpace
DimmyWebClientAsNewWebClient
myWebClient.DownloadFile(RemoteUrl,LocalFile)
TmpResult=True
EndSelect
EndFunction

让你的.NET程序兼容不同版本的Dll文件 ASP.NET中实现中文简/繁体自动转换的类

评论 (0) All