Question

请教大神vb如何下载图片到指定的文件夹,并重新命名

DT = Format(Date, "yyyymmdd")
MkDir (DT)

U1 = "http://aaa.com/data/48.gif": F = App.Path & "\" & DT & "48.gif"

S1 = URLDownloadToFile(0, U1, F, 0, 0)

写了如上代码
文件夹建立成功，图片下载成功，可以存为日期图片了，
但是放不到日期文件夹DT里啊 。
我想放入比如 D:\20151127 文件夹里
如何修改上面代码请教大神
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 Long

Private Sub Command1_Click()

Dim U1 As String, S1 As Long, DDD As Long

DT = Format(Date, "yyyymmdd")

MkDir (DT)

U1 = "https://www.baidu.com/img/baidu_jgylogo3.gif": F = App.Path & "\" & DT & "48.gif"

S1 = URLDownloadToFile(0, U1, F, 0, 0)

MsgBox "下载完毕" End Sub 完整代码 ，如何能放入新生成的文件夹里？

若以下回答无法解决问题，邀请你更新回答

Answer 1

目测这里有问题，MkDir (DT)，你检查下这个文件夹会不会创建成功

追问

创建成功没有问题

追答

创建的文件夹在App.Path这个路径下面？
还有这一句
F = App.Path & "\" & DT & "48.gif"

你的DT 是文件夹还是文件名？

追问

F = App.Path & "\" & DT & "48.gif" 这个目前只生成了 2015112748.gif 文件夹名和文件名里都有时间

现在想顺便把这个2015112748.gif 放到 新建的 20151127 文件夹里
谢谢大神指导

追答

F = App.Path & "\" & DT & "\" & DT & "48.gif"

追问

谢谢您 调试成功 ，大神啊，请再帮助一下吧，就是如何判断一下 这个新生成的文件夹存在不存在

MkDir (DT) 先检查，当天的日期文件夹存在不， 如果存在 就不新建立啊， 如果不加判断，第二次运行程序就报错了。