根据Windows上的日期按名称下载文件的脚本？

我需要每天运行一个脚本，将从一个固定的位置下载一个文件(http://www.meteoman.it/ilmeteo/audio/)并保存在我的电脑上。 文件名格式为yyyy-mm-dd.mp3，每天都会添加一个新文件。 脚本必须识别日期，并在文件夹“today”中保存日期为今天的相应文件，在文件夹“today”中保存日期为明天的文件。 谢谢你

用于在我的web收音机上自动进行预测的脚本 预测文件是免费的 对不起我的英语！

---

来自意大利的欢呼声

呼叫

Right

是在需要时用前导零填充月份和日期（将零添加到任何月份/日期，然后仅提取最后2位数字）

要获取明天的日期，只需将第一行更改为：

dt = DateAdd("d", 1, Date)

---

这是剧本！tnx全部

    dt = Date
yearStr = Year(dt)
monthStr = Right("0" & Month(dt), 2)
dayStr = Right("0" & Day(dt), 2)
fileName = yearStr & "-" & monthStr & "-" & dayStr & ".mp3"



 ' Set your settings
    strFileURL = "http://www.meteoman.it/ilmeteo/audio/" & filename
    strHDLocation = "c:\today\today.mp3"
' Fetch the file
    Set Ws = WScript.CreateObject("WScript.Shell")
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    objXMLHTTP.open "GET", strFileURL, false
    objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0    'Set the stream position to the start
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End If
' Set objXMLHTTP = Nothing 
' Ws.Run strHDLocation
' Set WS = Nothing

---

所以你的问题是什么？这是一个编程帮助网站，不是一个要求人们为您编写程序的地方。1）问题是VBScript和JScript都没有内置函数可以将日期格式化为我需要的格式。抱歉。。继续！2） 我不知道如何使用文件名的日期。对不起，我不是程序员。反正是TNX！

    dt = Date
yearStr = Year(dt)
monthStr = Right("0" & Month(dt), 2)
dayStr = Right("0" & Day(dt), 2)
fileName = yearStr & "-" & monthStr & "-" & dayStr & ".mp3"



 ' Set your settings
    strFileURL = "http://www.meteoman.it/ilmeteo/audio/" & filename
    strHDLocation = "c:\today\today.mp3"
' Fetch the file
    Set Ws = WScript.CreateObject("WScript.Shell")
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    objXMLHTTP.open "GET", strFileURL, false
    objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0    'Set the stream position to the start
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End If
' Set objXMLHTTP = Nothing 
' Ws.Run strHDLocation
' Set WS = Nothing