如何得到真实文件后缀

gareth

以下代码可以下载文件，但无法得到真实后缀，有高手会么，谢谢了！

Sub download(url,target)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Dim http,ado
Set http = CreateObject("Msxml2.ServerXMLHTTP")
http.SetOption 2,13056 '忽略https错误
http.open "GET",url,False
http.send
Set ado = createobject("Adodb.Stream")
ado.Type = adTypeBinary
ado.Open
ado.Write http.responseBody
ado.SaveToFile target
ado.Close
End Sub
Const Example="http://www.wdfxw.net/goDownFiles.aspx?key=72957249"
download Example,"test"

feeyii

Sub download(url, target)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Dim http, ado
Set http = CreateObject("Msxml2.ServerXMLHTTP")
http.SetOption 2, 13056 '忽略https错误
http.Open "GET", url, False
http.send
Set ado = CreateObject("Adodb.Stream")
ado.Type = adTypeBinary
ado.Open
ado.Write http.responseBody
ado.SaveToFile target
ado.Close
End Sub

Sub rename(name)
Dim DAT() As Byte
Dim FileSize As Long '文件度

FileSize = FileLen(name) '获取文件度
ReDim DAT(FileSize - 1) As Byte
Open name For Binary As #1
    Get #1, , DAT
Close

TOU = Hex(DAT(0)) & Hex(DAT(1)) & Hex(DAT(2)) & Hex(DAT(3))
If TOU = "D0CF11E0" Then
Name name As name & ".doc"
End If

End Sub


Sub TEST()
Const Example = "http://www.wdfxw.net/goDownFiles.aspx?key=72957249"
download Example, "N:\1121"
rename ("N:\1121")
End Sub


读文件头

‘=============================================
JPEG (jpg)， 　　文件头：FFD8FF　　　　　　　　　　　　　　　　　　　　　　　 文件尾：FF D9
PNG (png)， 　　 文件头：89504E47　　　　　　　　　　　　　　　　　　　　　　文件尾：AE 42 60 82
GIF (gif)， 　　文件头：47494638　　　　　　　　　　　　　　　　　　　　　　文件尾：00 3B ZIP Archive (zip)， 文件头：504B0304　　　　　　　　　　　　　　　　　　　　　　文件尾：50 4B

TIFF (tif)， 　 文件头：49492A00　　　　　　　　　　　　　　　　　　　　　　文件尾：
Windows Bitmap (bmp)， 　 文件头：424D　　　　　　　　　　　　　　　　　　　　　　　　 文件尾：
CAD (dwg)， 　 文件头：41433130　　　　　　　　　　　　　　　　　　　　　　文件尾：
Adobe Photoshop (psd)， 文件头：38425053　　　　　　　　　　　　　　　　　　　　　　文件尾：
Rich Text Format (rtf)， 文件头：7B5C727466　　　　　　　　　　　　　　　　　　　　 文件尾：
XML (xml)， 文件头：3C3F786D6C　　　　　　　　　　　　　　　　　　　　 文件尾：
HTML (html)， 文件头：68746D6C3E
Email [thorough only] (eml)， 文件头：44656C69766572792D646174653A
Outlook Express (dbx)， 文件头：CFAD12FEC5FD746F
Outlook (pst)， 文件头：2142444E
MS Word/Excel (xls.or.doc)， 文件头：D0CF11E0
MS Access (mdb)， 文件头：5374616E64617264204A
WordPerfect (wpd)， 文件头：FF575043
Adobe Acrobat (pdf)， 文件头：255044462D312E
Quicken (qdf)， 文件头：AC9EBD8F
Windows Password (pwl)， 文件头：E3828596

RAR Archive (rar)， 文件头：52617221
Wave (wav)， 文件头：57415645
AVI (avi)， 文件头：41564920’

imleading

网站都挂了。哈哈

gareth

feeyii 发表于 2020-11-23 00:36
Sub download(url, target)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2

谢谢老师指点，但无法区分.xls\doc\ppt，因为文件头都是一样的：D0CF11E0 ，还有解决办法么？

fxl447098457

那就在文件头基础上用应用打开。看文件对象是否存在再来判断是什么后缀。

kevinchengcw

http.getresponseheader("content-disposition")
里面有文件名

gareth

kevinchengcw 发表于 2020-12-8 12:33
http.getresponseheader("content-disposition")
里面有文件名

非常感谢老师指点

gareth

kevinchengcw 发表于 2020-12-8 12:33
http.getresponseheader("content-disposition")
里面有文件名

可以得到整个下载的链接路径么