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

【问题标题】：Script to download file by name according to date on a Windows?根据Windows上的日期按名称下载文件的脚本？
【发布时间】：2010-11-29 20:35:34
【问题描述】：

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

脚本用于在我的网络广播上自动进行预测预测文件是免费软件对不起我的英语不好！来自意大利的欢呼声

【问题讨论】：

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

标签： windows vbscript

【解决方案1】：

对Right 的调用是在需要时用前导零填充月和日（在任何月/日添加零，然后仅提取最后两位数字）。

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

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

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

【讨论】：

【解决方案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

【讨论】：