求vb下载文件代码,如何判断下载完毕 VB下载文件如何获取要下载的文件大小 如何得知已经下载了多少...
\u7528vb\u505a\u7684\u6210\u4e0b\u8f7d\u6587\u4ef6\u540e\u600e\u4e48\u68c0\u6d4b\u662f\u5426\u4e0b\u8f7d\u6210\u529f?\u53ef\u4ee5\u68c0\u9a8c\u518d\u672c\u5730\u78c1\u76d8\u91cc\u6709\u6ca1\u6709\u4f60\u4e0b\u8f7d\u7684\u6587\u4ef6\u554a \u7528dir\u51fd\u6570\u5427\uff01
\u5b9a\u4e49\u4e00\u4e2a\u53d8\u91cf\u4fdd\u5b58\u4e0b\u8f7d\u540e\u6587\u4ef6\u5b58\u653e\u7684\u8def\u5f84 \u5982c:\1.txt
\u9a8c\u8bc1\uff1aif dir("c:\1.txt")"" then msgbox "\u4e0b\u8f7d\u6210\u529f\uff01"
\u5c06\u8be5\u6587\u4ef6\u6253\u5f00\uff1b\u518d\u7528LOF\u51fd\u6570\u67e5\u770b\u5b57\u8282\u6570
Function LOF(FileNumber As Integer) As Long
VBA.FileSystem \u7684\u6210\u5458
\u8fd4\u56de\u6253\u5f00\u6587\u4ef6\u7684\u5927\u5c0f (\u4ee5\u5b57\u8282\u4e3a\u5355\u4f4d)
URLDownloadToFile有五个参数:
第一个参数是仅当调用者是一个ActiveX对象才使用,一般为NULL.
第二个参数就是要下载文件的目标URL,完整路径.
第三个是本地保存路径,也是完整路径
第四个是保留,必须为0
第五个是指向一个IBindStatusCallback接口的指针,这就类似一种回调机制,你可以参考这些来活动当前下载进度,选择是否继续下载等等.
应用代码如下:
'Form
Option Explicit
Implements IBindStatusCallback
Sub Command1_Click()
Dim r As Long
r = URLDownloadToFileW(Me, "http://www.54nanren.com.cn/en-us/music/Music_Upload/mianhuatang.wma", "c:\8.Wma", 0, Me)
If r = 0 Then
MsgBox "下载完毕"
Else
MsgBox "下载失败"
End If
End Sub
Private Sub IBindStatusCallback_GetBindInfo(grfBINDF As olelib.BINDF, pbindinfo As olelib.BINDINFO)
End Sub
Private Function IBindStatusCallback_GetPriority() As Long
End Function
Private Sub IBindStatusCallback_OnDataAvailable(ByVal grfBSCF As olelib.BSCF, ByVal dwSize As Long, pformatetc As olelib.FORMATETC, pStgmed As olelib.STGMEDIUM)
End Sub
Private Sub IBindStatusCallback_OnLowResource(ByVal reserved As Long)
End Sub
Private Sub IBindStatusCallback_OnObjectAvailable(riid As olelib.UUID, ByVal pUnk As stdole.IUnknown)
End Sub
Private Sub IBindStatusCallback_OnProgress(ByVal ulProgress As Long, ByVal ulProgressMax As Long, ByVal ulStatusCode As olelib.BINDSTATUS, ByVal szStatusText As Long)
Dim sStatus As String
Dim sText As String
Dim bUsePercent As Boolean
Select Case ulStatusCode
Case BINDSTATUS_FINDINGRESOURCE
sStatus = "Finding resource"
Case BINDSTATUS_CONNECTING
sStatus = "Connecting"
Case BINDSTATUS_REDIRECTING
sStatus = "Redirecting"
Case BINDSTATUS_BEGINDOWNLOADDATA
sStatus = "Begin download data"
bUsePercent = True
Case BINDSTATUS_DOWNLOADINGDATA
sStatus = "Downloading data"
bUsePercent = True
Case BINDSTATUS_ENDDOWNLOADDATA
sStatus = "End download data"
bUsePercent = True
Case BINDSTATUS_USINGCACHEDCOPY
sStatus = "Using cached copy"
Case BINDSTATUS_SENDINGREQUEST
sStatus = "Sending request"
Case BINDSTATUS_CLASSIDAVAILABLE
sStatus = "Object CLSID"
Case BINDSTATUS_MIMETYPEAVAILABLE, BINDSTATUS_VERIFIEDMIMETYPEAVAILABLE
sStatus = "Mime type available"
Case BINDSTATUS_CACHEFILENAMEAVAILABLE
sStatus = "Cache filename"
Case BINDSTATUS_BEGINSYNCOPERATION
sStatus = "Begin Sync operation"
Case BINDSTATUS_ENDSYNCOPERATION
sStatus = "End Sync operation"
Case BINDSTATUS_BEGINUPLOADDATA
sStatus = "Begin uploading data"
Case BINDSTATUS_UPLOADINGDATA
sStatus = "Uploading data"
Case BINDSTATUS_ENDUPLOADDATA
sStatus = "End uploading data"
Case BINDSTATUS_PROTOCOLCLASSID
sStatus = "Protocol CLSID"
Case BINDSTATUS_ENCODING
sStatus = "Encoding"
Case BINDSTATUS_COOKIE_SENT
sStatus = "Cookie sent"
Case BINDSTATUS_P3P_HEADER
sStatus = "P3P Header"
Case BINDSTATUS_POLICY_HREF
sStatus = "Policy HREF"
Case BINDSTATUS_DECODING
sStatus = "Decoding"
Case BINDSTATUS_COOKIE_STATE_ACCEPT
sStatus = "Cookie Accept"
Case BINDSTATUS_COOKIE_STATE_LEASH
sStatus = "Cookie state leash"
Case BINDSTATUS_PROXYDETECTING
sStatus = "Proxy detecting"
Case BINDSTATUS_ACCEPTRANGES
sStatus = "Accept ranges"
Case Else
sStatus = "ID:" & CStr(ulStatusCode)
End Select
If bUsePercent And (ulProgressMax <> 0) Then
sStatus = FormatPercent(ulProgress / ulProgressMax, 0, vbTrue)
ElseIf szStatusText <> 0 Then
sStatus = sStatus & ": " & SysAllocString(szStatusText)
End If
Label1 = sStatus
End Sub
绛旓細鍏堝湪鈥滈儴浠垛濋噷娣诲姞internet Transfer Control鎺т欢锛屾斁鍒扮獥浣撲笂锛屽悕瀛楁寜榛樿鍐嶆坊鍔犱竴涓寜閽紝鍚嶅瓧涔熸寜榛樿鐒跺悗澶嶅埗涓嬮潰鐨浠g爜锛歅rivate Sub Command1_Click()Inet1.Protocol = icHTTPInet1.RemotePort = 80Inet1.URL = " http://xue.yn66.com/Sound/song/cafee/whateveryoulike.mp3" Inet1.Execute...
绛旓細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 sub cmmand1_click()R= URLDownloadToFile(0,"http://www....
绛旓細涓嬭浇锛岀洿鎺ラ氳繃url璇诲彇鏂囦欢锛岀劧鍚嶳esponse.OutputStream.Write()鏁版嵁 涓嬮潰鎻愪緵涓笅杞界殑闈欐佹柟娉曪紝鏄疌#鐨勶紝渚涘弬鑰冿細/// /// 涓嬭浇鏂囦欢/// /// 涓嬭浇鐨勬枃浠跺悕绉帮紙鍖呮嫭鎵╁睍鍚嶏級/// 涓嬭浇鏂囦欢鐨勭粷瀵硅矾寰刾ublic static void DownFile(string fileName, string filePath){ //鎵撳紑瑕佷笅杞界殑鏂囦欢锛屽苟鎶婅...
绛旓細myall 鏄笅杞界殑缃戦〉锛屼綘鍙互鎶婂畠鏄剧ず鍦ㄦ枃鏈涓紝涔熷彲鎶婂畠淇濆瓨涓烘枃浠讹紝涔熷彲閫氳繃涓浜涜嚜瀹氫箟鐨勫嚱鏁拌繘琛屼俊鎭殑鎻愬彇锛岄檺浜庣瘒骞咃紝杩欓噷灏变笉浠嬬粛浜嗐俉insock1锛巆lose 鍏抽棴 Winsock enD suB 鍒版涓烘锛岀浉淇′綘宸蹭簡瑙e浣曞湪VB涓氳繃 Winsock 鎺т欢涓嬭浇鏂囦欢浜嗐傛湰绋嬪簭鍦 VB6锛0銆乄in98 鐜涓嬭繍琛屾甯 ...
绛旓細Call URLDownloadToFile(0, "http://www.baidu.com/", "c:\1.htm", 0, 0)鐩稿綋浜庡彟瀛樹负 澹版槑锛歅rivate Declare Function DoFileDownload Lib "shdocvw.dll"(ByVal lpszFile As String) As Long '//璋冪敤 鐒跺悗鍦浠g爜閲岀洿鎺ヨ皟鐢細Dim gourl As String AdUrl = StrConv("缃戦〉鍦板潃", vb...
绛旓細Put #1, , File2()Close #1 End Sub 闇瑕佸紩鐢↖nternet Transfer Control鎺т欢涓婇潰鐨浠g爜寰堢畝鍗曪紝鐩存帴鍦vb涓柊寤轰竴涓伐绋嬶紝鍦╢orm1涓婃斁涓涓猚ommand1鎸夐挳锛岀劧鍚庢妸浠g爜鏀惧埌command1鎸夐挳鐨勫崟鍑讳簨浠堕噷闈㈠氨ok浜 涓婇潰鐨勪唬鐮佹槸涓嬭浇鐧惧害鐭ラ亾鐨刲ogo鐨勩傜粷瀵逛笉鏄梾姣掞紝濡傛灉涓嶆斁蹇冪殑璇濊嚜宸辨敼缃戝潃涔熷彲浠ャ俕-^ "d:\...
绛旓細涓嬭浇鎴愬姛銆傞愬彞瑙i噴浜嗐俬ttp://www.rayfile.com/files/97b624c7-d553-11dd-85dd-0014221b798a/ snake.XLS(0 bytes)涓嶈兘涓嬭浇锛杩欐槸涓皬娓告垙锛岃嫢鑳鐭ラ亾鐜╂硶瑙勫垯濂借浜涖傜▼搴忓苟涓嶅崄鍒嗗鏉傘備絾瑕佸掓帹鏄惧緱楹荤儲浜涖
绛旓細ByVal lpfnCB As Long) As Long Public Function DownloadFile(sSourceUrl As String, _sLocalFile As String) As Boolean DownloadFile = URLDownloadToFile(0&, _sSourceUrl, _sLocalFile, _BINDF_GETNEWESTVERSION, _0&) = ERROR_SUCCESS End Function 鍦ㄦ寜閽腑鍔犲叆浠g爜锛欴ownloadFile "浣犺...
绛旓細Call URLDownloadToFile(0, "缃戠粶鍦板潃", "淇濆瓨鍒版湰鍦扮殑鍦板潃鍜鏂囦欢鍚", 0, 0)绗簩绉 鐩稿綋浜庘滃彟瀛樹负鈥濆0鏄庯細Private Declare Function DoFileDownload Lib "shdocvw.dll"(ByVal lpszFile As String) As Long 鐒跺悗鍦浠g爜閲岀洿鎺ヨ皟鐢細Dim AdUrl As String AdUrl = StrConv(鈥滅綉缁滃湴鍧鈥, vb...
绛旓細Dim strPath As String = Server.MapPath("xxx/xxx.xxx") '杩欓噷鏄綘鐨鏂囦欢璺緞浠ュ強鍚嶇О鍚庣紑鍚嶏紝浣跨敤鐩稿璺緞鍗冲彲,涓嶈繃璁板緱璺緞鏈濂芥槸鑻辨枃锛岀敤涓枃鏄惁杩炴帴涓嶅埌鎴戝氨涓鐭ラ亾浜嗭紝璁板緱鏄"/"鍝︼紒 Page.Response.Clear() Page.Response.AddHeader("Content-Type", "text/xml") Page.Response.AddHeader("...