腳本根據Windows上的日期按名稱下載文件？

我需要每天運行一個腳本，它將從固定位置下載一個文件（http://www.meteoman.it/ilmeteo/audio/）並將它保存在我的電腦上。文件名的格式是yyyy-mm-dd.mp3，並且每天添加一個新文件。腳本必須識別日期，並在文件夾「today」中保存今天日期的相應文件，並在「tomorrow」文件夾中保存明天日期的文件。謝謝！腳本根據Windows上的日期按名稱下載文件？

腳本如果用於自動預測我的網絡電臺預測的文件是免費的對不起我的英文！來自意大利的歡呼聲

來源

2010-11-29 Andrew

那麼...你的問題是什麼？這是一個編程幫助網站，不是要求人們爲您編寫程序的地方。 – ssokolow 2010-11-29 20:50:01

1）問題是，VBScript和JScript都沒有內置函數，它們會按我需要的格式格式化日期。 – Andrew 2010-11-29 20:59:11

對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)

來源

2010-11-30 09:36:17

這裏的腳本！全部都是！

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

來源

2010-12-04 17:53:32 Andrew

腳本根據Windows上的日期按名稱下載文件？

回答

相關問題