vb下载文件

发布时间：2020-12-17 07:56:14 所属栏目：百科来源：网络整理

导读：'Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long,ByVal szURL As String,ByVal szFileName As String,ByVal dwReserved As Long,ByVal lpfnCB As Long) As Long r = URLDownloadToFile(0,spvPr

'Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long,ByVal szURL As String,ByVal szFileName As String,ByVal dwReserved As Long,ByVal lpfnCB As Long) As Long

r = URLDownloadToFile(0,spvPrintControllerURL & "?lotNo=" & lotNumber,pdfPath,0)

或者

patch=×××.pdf

FileByte = Inet1.OpenURL(spvPrintControllerURL & "?lotNo=" & lotNumber,icByteArray) Open pdfPath For Binary As #1 Put #1,1,FileByte Close #1

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!