求教如何用vbs语言读取当前的日期

更新时间：2019-07-18 14:27:32 97次访问

求教如何用vbs语言读取当前的日期，然后在读取的数据最前加上字符串“js”，最后加上”.exe“,(如js2019-7-16.exe)，并写入到“D:1.txt”文件里，覆盖掉原来的内容，求好心人帮帮忙

dim fso, f

set fso =  CreateObject("Scripting.FileSystemObject")

set f = fso.CreateTextFile("d:1.txt", true)  

filename="js"&year(Now)&"-"&Month(Now)&"-"&day(Now)&".exe"

f.WriteLine(filename)

f.Close()

set f = nothing

set fso = nothing