WSH(・∀・)ｽﾚｯﾄﾞ!
Set objArgs = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject")
datestring = replace(formatdatetime(now,vbShortDate),"/","") & replace(formatdatetime(now,vbShortTime),":","")
fso.CopyFile objArgs(0), "C:\hoge\" & datestring
Set fso = CreateObject("Scripting.FileSystemObject")
datestring = replace(formatdatetime(now,vbShortDate),"/","") & replace(formatdatetime(now,vbShortTime),":","")
fso.CopyFile objArgs(0), "C:\hoge\" & datestring
|
|
|