その買うを、もっとハッピーに。|ハピタス

ファイルを増殖

最近使ってないけど、人によっては使える便利なプログラムです。
ある一つのファイルをリネームしつつ増殖させます。
雛形があって、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



Windows自動処理のためのWSHプログラミングガイド

Windows自動処理のためのWSHプログラミングガイド