WSH(・∀・)ｽﾚｯﾄﾞ!
レス数が950を超えています。1000を超えると書き込みができなくなります。
0953デフォルトの名無しさん
2007/04/08(日) 11:45:45Set fso = CreateObject("Scripting.FileSystemObject")
datestring = replace(formatdatetime(now,vbShortDate),"/","") & replace(formatdatetime(now,vbShortTime),":","")
fso.CopyFile objArgs(0), "C:\hoge\" & datestring
レス数が950を超えています。1000を超えると書き込みができなくなります。