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

VBSの質問です
あるフォルダの中にaaa1 aaa2というフォルダがあります これを 1 2 3 というフォルダ名に治すスクリプトを教えて下さい

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

▽最新の回答へ

1 ● うぃんど
●100ポイント

最初の二行は環境に合わせて変更が必要。

path = "Z:\test\"  ' フォルダ
delStr = "aaa" ' 削除する文字列

Set objFSO = CreateObject( "Scripting.FileSystemObject" )
Set folder = objFSO.GetFolder( path )
For Each subFolder In folder.SubFolders
 oldNameStr = path + subFolder.Name
 newNameStr = path + Replace( subFolder.Name, delStr, "" )
 IF newNameStr <> oldNameStr THEN objFSO.MoveFolder oldNameStr , newNameStr
Next
関連質問

●質問をもっと探す●



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