如何得到转向后的文件名？

Question

例如在IE地址栏输入网址http://kiss.****.com浏览，返回下载文件love.zip（由于此网址直接转向到love.zip），请问，如何编程利用这个网址http://kiss.****.com来得到它指向的文件名（名称不确定）。

Answer 1

利用返回的信息，如果返回302，就取Location，会告诉你新的地址~~

Answer 2

分不够可以再加，用尽量少的代码来实现，主要应用如下：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 LongPrivate Sub Command1_Click()   Dim sourceUrl As String
   Dim targetFile As String
   Dim hfile As Long
   
   sourceUrl = "http://kiss.****.com"
   targetFile = "c:\temp\xxx.zip"'如何得到sourceUrl返回的文件名？可能是.rm，也可能是.rar，反正就是不能确定。
   hfile = URLDownloadToFile(0&, sourceUrl, targetFile, 0&, 0&)
   
End Sub