ファイルを増殖
最近使ってないけど、人によっては使える便利なプログラムです。
ある一つのファイルをリネームしつつ増殖させます。
雛形があって、A0001.csv、A0002.csv…みたいにコピーしないといけない時に使えます。
しかしファイルが多いと文字数制限に引っかかるのがネック、、
'Proliferation.vbs Option Explicit Dim fs, objArgs Dim i Dim fpath, new_fnames, buf, new_fpath buf = InputBox("コピー後のファイル名を入力して下さい。" & vbCrLf & "(※複数コピー時はカンマ区切り)") If buf = "" Then WScript.Quit If Len(buf) >= 254 Then MsgBox "文字数が上限を超えてます!", vbExclamation:WScript.Quit new_fnames = Split(buf, ",") Set fs = WScript.CreateObject("Scripting.FileSystemObject") Set objArgs = WScript.Arguments If objArgs.Count <> 1 Then WScript.Quit fpath = objArgs(0) For i = LBound(new_fnames) to UBound(new_fnames) new_fpath = fs.getParentFolderName(fpath) & "\" & new_fnames(i) & "." & fs.getExtensionName(fpath) If fs.FileExists(new_fpath) Then If MsgBox("既にファイルが存在します。上書きしますか?" & vbCrLf & "(" & new_fpath & ")", vbYesNo) = vbYes Then fs.CopyFile fpath, new_fpath Else fs.CopyFile fpath, new_fpath End If Next
- 作者: 五十嵐貴之
- 出版社/メーカー: ソシム
- 発売日: 2009/06/01
- メディア: 単行本
- 購入: 1人 クリック: 65回
- この商品を含むブログ (27件) を見る