Question

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

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

Answer 1

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

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)

Answer 2

这里的脚本！ tnx all！

    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

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

2 个答案: