我在用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。你只要获得后面一部分做文件的扩展名就可以了。

发表于 @ 2005年06月28日 11:13:00|评论(loading...)|编辑