昔、一括でファイル名を変換できるツールがないか探していた時に
VBSでの一括変換ができるコードが書かれている記事を見かけて
作っておいたのですがそのファイルがなくなり
VBSというキーワードを頼りになんとかコードを掲載してる記事を発見しました。
使い方としてはconversion.vbsなどというファイル名で下記のコードを実装します。
あとはファイル名を変更したいファイルをconversion.vbsにドラッグ&ドロップするだけで
結構使い勝手がよかったので再度なんとか入手したいのです。
ちなみに下記コードは変換するプログラムではなく
ファイル名から指定した文字列を削除するものです。
下記のコードを参考に、ドラッグ&ドロップの形式で
ファイル名を一括変換できるようなプログラムにするにはどうしたらよいでしょうか?
ちなみにVBSに関しては全くなにもわかりません。
Option Explicit Dim fso 'Scripting.FileSystemObject Dim f 'Scripting.File Dim args Dim f_name Dim del_txt With WScript Set args = .Arguments If args.Count < 1 Then .Quit del_txt = InputBox("ファイル名から削除する文字列を入力してください。") If Len(del_txt) = 0 Then .Quit End With Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next For Each f_name in args set f = fso.GetFile(f_name) f.Name = Replace(f.Name, del_txt, "") With Err Select Case .Number Case 58 MsgBox "同じ名前のファイルが存在するため処理を中断します。" Exit For Case 0 'エラーが発生しなかった場合は何もしない Case Else MsgBox .Description & .Number .Clear End Select End With Next Set f = Nothing Set fso = Nothing
ここは技術者が質問するサイトです。ソフトを探すのなら別の場所で。Vectorとか。OKwaveとか。
自分でプログラミングしたいと言うことなら質問して良いのですが、「VBSに関して全くなにもわかりません」という状態を脱してから改めて質問してください。
回答1件
あなたの回答
tips
プレビュー