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 Dim Url As String, myFile As String Dim urldown As Long Url = "HTTP://WWW.BAIDU.COM" myFile = "D:\123.txt" urldown = URLDownloadToFile(0, Url, myFile, 0, 0) If urldown = 0 Then MsgBox "saffd" End If 这个函数只是能下载网页上的信息,但是如何在客户端打开服务端的文件,就无从下手了。 请高手快来指点!!!!!!!!!!!!!!!!!!!
Dim Url As String, myFile As String
Dim urldown As Long
Url = "HTTP://WWW.BAIDU.COM"
myFile = "D:\123.txt"
urldown = URLDownloadToFile(0, Url, myFile, 0, 0)
If urldown = 0 Then
MsgBox "saffd"
End If
这个函数只是能下载网页上的信息,但是如何在客户端打开服务端的文件,就无从下手了。
请高手快来指点!!!!!!!!!!!!!!!!!!!