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""

回答の条件
  • 1人1回まで
  • 13歳以上
  • 登録:2014/12/06 22:31:57
  • 終了:2014/12/07 19:07:24

ベストアンサー

id:a-kuma3 No.1

a-kuma3回答回数4537ベストアンサー獲得回数18882014/12/06 23:52:34

ポイント300pt

こんな感じでしょうか。

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

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

他2件のコメントを見る
id:fashudifhajs

一行目のyear という所を hoge に変更したら動きました
ありがとうございました!

2014/12/07 01:17:19
id:a-kuma3

year は、VBScript の予約語には入っていませんでしたが、VBScript の関数にありました。
VBScript は大文字/小文字を区別しないようなので、変数名には year が使えない、ということのようです。

2014/12/07 18:00:23

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません