人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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を教えて下さい

●質問者: takanii
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●300ポイント ベストアンサー
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\"

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


takaniiさんのコメント
ありがとうございました!
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ