VB怎么下载文件同时保持原来的名字？

Question

我们平常用VB下载一般都是要指定下载地下，然后指定下载到本机的文件名这种形式，我现在想要的是下载下来的文件不要指定文件名，而是要保持原来的文件名。因为网址是这种形式的：www.jump.baidu.com/sds.aspx?sn=007这种，用浏览器打开这个下载地址后会弹出另存为对话框，名字有时是1.exe，有时是2.exe等等不是固定的，是随机的，每一次用浏览器打开弹出另存为对话框后文件名都不同。有什么方法用VB下载但文件名保持默认的呢？网上查了一下说分割这个网址的"/"和“？”之间的字符就是真实的文件名，参考资料："从URL中获取文件名，从左到右找到最后一个“/”字符，再从这个字符开始找到第一个“?”字符，如果没有这个字符则整串为文件名；如果有则取“/”与“?”之间的字符串作为文件名"
另外有一贴子和我问的问题差不多相同，但是用C++做的，我不会转成VB，所以无法验证，贴子如下：
应用System.Net 和System.IO命名空间
HttpWebRequest hwr = (HttpWebRequest)WebRequest.Create( http://www.k2yx.com/job.php?action=download&aid=200);
hwr.GetResponse();
string fileName = Path.GetFileName(hwr.Address.ToString());

fileName 就是取到的文件名了。
以上是C#的写法，你转成VB的写法应该很简单

还有一段代码，问群里的人说以下这段代码只要在对像关闭前取出下载的文件名就可以，代码如下：
Private Sub DownNetFile(ByVal nUrl As String, ByVal nFile As String)
Dim
XmlHttp, B() As Byte
Set XmlHttp =
CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", nUrl,
False
XmlHttp.Send
If XmlHttp.ReadyState = 4 Then

B() = XmlHttp.ResponseBody
Open nFile For Binary As #1

Put #1, , B()
Close #1
End If
Set XmlHttp =
Nothing
End Sub

我是新手，实在是不懂，请各位大侠帮帮忙，给出代码，总结我的目的就是：用VB下载一个文件并保持原来的文件名！

Answer 1

题主那个 C# 转成VB.net ：

Dim hwr As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("你要下载文件的URL地址")
hwr.GetResponse()
Dim fileName As String = System.IO.Path.GetFileName(hwr.Address.ToString())

追问

你这个转成的是NET的吧，VB6的我才看得懂

追答

呃，手头没有VB6（64位Win7不兼容），只有.net的，所以没办法帮你测试VB6的代码了，我先研究研究。

不过我看你题中说的那个【从URL中获取文件名，从左到右找到最后一个“/”字符，再从这个字符开始找到第一个“?”字符，如果没有这个字符则整串为文件名；如果有则取“/”与“?”之间的字符串作为文件名】挺好的呀：

Dim myURL As String
Dim myFileName As String
myURL = "文件下载的URL地址"
myFileName = Trim(Right(myURL), InStr(StrReverse(myURL), "/") - 1))

这是没有 "?” 的情况，有 "?" 也好解决，用 Mid 函数就可以，时间关系我要陪女朋友出去了，不写了，题主可以自己琢磨琢磨， 不懂欢迎继续问。

追问

取中间的字符我知道，但不知怎么保持原来的文件名，