我在弄一个使用控件下载的小程序。主要功能是从文本中读取一堆网上图片的地址。然后一一通过下载再保存在硬盘。现在我只能做到保存一份下来，因为文件名不能用变量
如:
b() = Inet1.OpenURL(strurl, icByteArray)
Open "D:\aaa.jpg" For Binary Access Write As #2
Put #2, , b()
Close #2
中的aaa.jpg如何使用变量为其命名？
我才学VB一星期，希望大虾们帮助一下。

你用一个变量来获取 strurl 的文件名:
Dim strFilename As String
strFilename = "D:\" & Mid(strurl, InstrRev(strurl, "/") + 1)
然后把 Open 语句改成:
Open strFilename For Binary Access Write As #2

谢谢leon2啊~~现在又能继续写下去了。

其实我以前也做过类似这样的程序，思路基本和你一样，也是用 Inet 控件读取网页的源代码并分析出其中的图片地址，最后下载下来。不过现在已经不见了……

是啊，我现在做的基本上就是实现你说的功能。不过现在又有新问题了。就是下载的文件我要把他们的网址按路径保存.... 如www.test.com/404/99/abcd.jpg 我想做到是保存在 X:\440\99\abcd.jpg .............................. X:\440\99\others.jpg 我还在查这语句的意思strFilename = "D:\" & Mid(strurl, InstrRev(strurl, "/") + 1)

那么我写的代码就改成: Dim i As Integer, j As Integer, strFilename As String, strPath As String i = InStr(strurl, "//") + 2 i = InStr(i, strurl, "/") + 1 '上面两句的目的其实是寻找网页的路径(不包含文件名和网站名)，对于 www.test.com/404/99/abcd.jpg 来说，目的是寻找 /404/99/ 的第一个 / 在 URL 中的位置。如果直接写 i = InStr(strurl, "/") + 1，返回的值是 http:// 中第一个 / 的位置，所以要先寻找 // 的位置，然后再在它们的后面寻找第一个 / j = InStrRev(strurl, "/") + 1 'InStrRev 用来返回字符串从右边到左边寻找第一次出现的目的寻找字符 strPath = "D:\" & Mid(strurl, i, j - i) '获得路径 strFilename = "D:\" & strPath & Mid(strurl, j) If Dir(strPath) = "" Then MkDir strPath Open strFilename For Binary Access Write As #2

十分感谢leon详细耐心的解答