windows任务计划CMD方式的实现

运用好windows CMD可以实现linux shell功能，不需要辅助其它语言。

实现方法：

编辑copyFileVBS.vbs,然后通过系统任务计划实现， 类似crontab命令设置周期性执行文件：

copyFileVBS.vbs：

'//格式化月份为2位 & 

function formatmonth(m)
if m<9 then

  formatmonth="0" & m
else

  formatmonth=m 
End if

end function

'//文件名 一位月份

function formatflname(n)

' if m=1 then

' formatflname="d"

' Else
if n=10 then

  formatflname="a"
Elseif n=11 then

  formatflname="b"
ELSEif n=12 then

  formatflname="c"
Else

  formatflname=n 
End if

end function

'//格式化目录

function formatDir(d)
if len(d)=1 then

  formatDir="00" & d
elseif len(d)=2 then

  formatDir="0" & d
end if

end function

yy=Right(year(now()),2)

mm=Right("0" & month(now()),2)

dd=Right("0" & day(now()),2)

yestday=Right("0" & day(now()-1),2)

Dim oShell,fso

Set oShell = WScript.CreateObject("WScript.Shell")

Set fso = CreateObject("Scripting.FileSystemObject")

Set f1 = fso.CreateTextFile("c:\copy1file"&yy&mm&dd&"tmp.bat",true)

f1.write "copy /y t:\tasv\" & yy & mm & "\FOLIO" & dd & ".DBF T:\TASV\Currently\" & yy & mm & "\" 

f1.close

REM 传递参数定义

REM %1 目录回路

REM %2 年份

REM %3 一位月份

REM %4 2位日期

REM %5 二位月份

'    MsgBox yy & mm & dd
oShell.Run "D:\netuse\netuser1diskD.bat"
oShell.Run "c:\copy1file"&yy&mm&dd&"tmp.bat"

' oShell.Run "copy /y T:\TASV" & yy & mm & "\FOLIO" & dd & ".DBF T:\TASV\Currently\" & yy & mm & "\"

' fso.copyfile "T:\TASV" & yy & mm & "\FOLIO" & dd & ".DBF","T:\TASV\Currently\" & yy & mm,true
MsgBox "copy /y t:\tasv\" & yy & mm & "\FOLIO" & dd & ".DBF T:\TASV\Currently\" & yy & mm & "\"

'copy t:\tasv\1510\FOLIO16.DBF T:\TASV\Currently\1510

set oshell = nothing

set fso = Nothing

WScript.quit