VBSの質問です

a
|_01
| |_  a.html
|_02
| |_  a.html
|_03
 |_  a.html
というフォルダと各フォルダにa.htmlという名前のファイルが入っているのですが
a
|_01
| |_  01.html
|_02
| |_  02.html
|_03
 |_  03.html
というように、htmlファイル名を各フォルダの名前に置換するVBSを教えて下さい

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/03/04 14:43:01
  • 終了:2013/03/05 00:09:01

ベストアンサー

id:taknt No.1

きゃづみぃ回答回数13537ベストアンサー獲得回数11982013/03/04 15:14:13

ポイント300pt
a="C:\test\a\"
b="a.html"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(a)

For Each objFile In objFolder.SubFolders 
	if objFSO.FileExists(objFile.path & "\" & b ) then
		c=right(objFile.path,len(objFile.path) - len(a))
		set gfile = objFSO.getfile(objFile.path & "\" & b)
		gfile.name = c & ".html"
		set gfile = nothing
	end if
Next



a="C:\test\a\"

ここのパスは適宜変更してください。

id:takanii

ありがとうございました!

2013/03/05 00:08:55

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

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

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

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

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