VBSの質問です

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

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/03/13 03:38:24
  • 終了:2013/03/20 03:40:03

回答(1件)

id:windofjuly No.1

うぃんど回答回数2625ベストアンサー獲得回数11492013/03/13 04:31:10

ポイント100pt

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

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

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

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

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

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

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