VBS から DOSのコマンドを呼ぶ、バッチもどき・・・(Windows XP で実行)

コピー用のvbs
単純に、
Shell.Run "%ComSpec% /c Md で MDコマンドでディレクトリ作成
Shell.Run "%ComSpec% /c xcopy で Xcopy データをコピーしただけ。

vbsじゃなくて、DOSのバッチでもよかったんだけど。
(※中途半端ですね、中からDOSコマンド呼ぶなら・・って感じだけど。

 Dim oApp
 Dim yyyymmdd(30)

yyyymmdd(1) = "20090111"
yyyymmdd(2) = "20090125"
yyyymmdd(3) = "20090208"
yyyymmdd(4) = "20090222"
yyyymmdd(5) = "20090308"
yyyymmdd(6) = "20090412"
yyyymmdd(7) = "20090426"
yyyymmdd(8) = "20090510"
yyyymmdd(9) = "20090524"
yyyymmdd(10) = "20090614"
yyyymmdd(11) = "20090628"
yyyymmdd(12) = "20090712"
yyyymmdd(13) = "20090726"
yyyymmdd(14) = "20090809"

Set oShell = CreateObject("WScript.Shell")

For n = 1 To 14
 oShell.Run "%ComSpec% /c Md e:\Public\TEMP\" & yyyymmdd(n) ,,True
 scopy = "e:\広告BACK2009\" & yyyymmdd(n) & "\OLD\ranking\*.* e:\Public\TEMP\" & yyyymmdd(n) & " /S"
 oShell.Run "%ComSpec% /c xcopy " & scopy & "" ,,True
Next 

Set oShell = Nothing

Msgbox "終了"

2009年なので、リンク切れおおいけど。。。バリューコマースの楽天リンクを張り替えただけ。。。

FTPで転送。　http://www.s2009mmdd.com/
http://www.s2009mmdd.com/20090111/
http://www.s2009mmdd.com/20090125/
・
・
・
・
http://www.s2009mmdd.com/20090809/

みたいな感じ。。。