VBSの質問です Dim str_path Set objFS = CreateObject("Scripting.FileSystemObject") objFS.CopyFolder ".\hoge1\2014", ".hoge11\2014" objFS.CopyFolder ".\hoge2\2014…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

VBSの質問です
Dim str_path
Set objFS = CreateObject("Scripting.FileSystemObject")
objFS.CopyFolder ".\hoge1\2014", ".hoge11\2014"
objFS.CopyFolder ".\hoge2\2014", ".hoge22\2014"
･
･
･
･
というﾌﾟﾛｸﾞﾗﾑがあります

年度が変わるごとに 2014の所を 2015に変えたりします
全て変更するのは大変なので一箇所変更すれば全て変更できるような仕組みにしたいのですがどうすればいいでしょうか？
教えてください
↓
こんな感じです
Dim str_path
year=2014
Set objFS = CreateObject("Scripting.FileSystemObject")
objFS.CopyFolder ".\hoge1\"year"", ".hoge11\"year""
objFS.CopyFolder ".\hoge2\"year"", ".hoge22\"year""
･

●質問者: fashudifhajs
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

▽1 ● a-kuma3
●300ﾎﾟｲﾝﾄ

ﾍﾞｽﾄｱﾝｻｰ

こんな感じでしょうか｡

year = "2014"
Dim str_path
Set objFS = CreateObject("Scripting.FileSystemObject")
objFS.CopyFolder ".\hoge1\" & year , ".hoge11\" & year
objFS.CopyFolder ".\hoge2\" & year , ".hoge22\" & year

VBS で文字列をくっつけるのは､& を使います｡

fashudifhajsさんのｺﾒﾝﾄ
試してみましたがうまく動きません

fashudifhajsさんのｺﾒﾝﾄ
一行目不正な代入ですと出ます

fashudifhajsさんのｺﾒﾝﾄ
一行目のyear という所を hoge に変更したら動きましたありがとうございました！

a-kuma3さんのｺﾒﾝﾄ
year は､[http://support.microsoft.com/kb/216528/ja:title=VBScript の予約語]には入っていませんでしたが､[http://msdn.microsoft.com/ja-jp/library/cc392480.aspx:title=VBScript の関数]にありました｡ VBScript は大文字／小文字を区別しないようなので､変数名には year が使えない､ということのようです｡