我在用VB在做一个东西,现需要一个函数能实现如下功能:将指定URL处的文件下载到指定的文件夹里,并能保持原来的类型不变.
参数有三:一个是URL,指定文件的下载地址,一个是本地保存路径,是个文件夹,比如说"D:/TMP",一个是文件类型,比如PDF,DOC
可以通过Microsoft Internet Transfer Control来实现下载:
strURL = "http://www.GreatSite.com/China.exe"
b() = Inet1.OpenURL(strURL, icByteArray)
下载以后通过Microsoft Internet Transfer Control的GetHeader 方法获得文件的标题头的
Content-type部分,然后根据这个部分来判断文件的类型:
Private Sub Command1_Click()
Dim b() As Byte
Inet1.Protocol = icHTTP
b = Inet1.OpenURL("http://www.applevb.com/sourcecode/filedlg.zip", icByteArray)
Text2.Text = Inet1.GetHeader("Content-type")
End Sub
一般一个文件的Content-type是由/分割的两部分组成,例如txt/html或者application/zip。你只要获得后面一部分做文件的扩展名就可以了。