【VBScript極限活用】数千の小ファイルを一撃で統合！FSOによる超高速ファイルパッキング＆復元アーキテクチャ
開発現場でこんな絶望を味わったことはないだろうか。
「数百、数千もの細かな設定テキストファイルをサーバー間で移行する必要があるが、ファイル数が多すぎてエクスプローラーの転送も、zip圧縮も、ネットワークI/Oのオーバヘッドで耐えられないほど時間がかかる」
レガシーな環境や、サードパーティ製ツール（7-ZipやPowerShellのコマンドレットなど）の持ち込みが厳格に禁じられたエンタープライズ領域において、我々VBScriptエンジニアに残された武器はFileSystemObject (FSO)とADODB.Streamのみだ。
今回は、数千の小規模テキストファイルを「たった1つの独自コンテナファイル（アーカイブ）」にまとめ上げ、完全に元の構造へと復元するプロダクションコードを授けよう。
—
なぜ「愚直なFSO操作」は破綻するのか？
多くの初学者は、大量ファイルを扱う際に次のようなコードを書きがちだ。
‘ 【アンチパターン】毎回ファイルを開閉する愚行
Set fso = CreateObject(“Scripting.FileSystemObject”)
For Each file In fso.GetFolder(“C:\Source”).Files
‘ ファイルごとにI/Oが発生し、ディスクヘッドが暴走する
‘ さらに文字コード変換のオーバーヘッドが蓄積し、数千ファイルでフリーズする
Next
ボトルネックの正体
1. I/Oの頻発: ファイル数が数千に及ぶと、OSのファイルハンドルオープン／クローズのコストが処理時間の9割を占める。
2. 文字コードの罠: `OpenTextFile` はデフォルトでANSI（Shift-JIS）で開き、UTF-8などのモダンなエンコーディングを扱うには不向き。文字化けとパフォーマンス低下の温床となる。
3. メタ情報の喪失: 単にテキストを繋げただけでは、どのファイルが元のディレクトリ階層のどこに属していたのか、ファイル名は何だったのかが復元不可能になる。
この問題を解決するには、「独自のバイナリヘッダー構造を持つコンテナファイル」を設計し、ストリーム処理によって一気に読み書きするアーキテクチャが必要だ。
—
独自アーカイブの設計仕様
今回作成するコンテナファイル（拡張子 `.dat` や `.arc`）のバイナリレイアウトは以下の通りだ。
+——————————————————-+
| ヘッダーセクション |
| [ファイル総数 (4Bytes長整数)] |
| ├─ [パス文字列のバイト長 (2Bytes)] |
| ├─ [相対パス文字列 (UTF-8 Variable)] |
| ├─ [コンテンツのバイト長 (4Bytes長整数)] |
| └─ [バイナリデータ本体 (Variable)] |
+——————————————————-+
| 繰り返し… |
FSOの限界を超えるため、ファイルの中身はすべてバイナリ（バイト配列）として扱い、`ADODB.Stream` を組み合わせて高速に読み書きする。
—
プロダクションコード：Archiver.vbs
以下のコードは、エラーハンドリング（`On Error Resume Next` の乱用禁止）、メモリ管理、パスの正規化を徹底した、そのまま現場で使える実用スクリプトである。
Option Explicit
‘ ==============================================================================
‘ スクリプト名: FSO Container Archiver & Extractor
‘ 概要: 指定フォルダ内の全テキストファイルを1つのアーカイブに統合・復元する
‘ ==============================================================================
Const adTypeBinary = 1
Const adTypeText = 2
Const adSaveCreateOverWrite = 2
Dim targetFolder, archiveFile, restoreFolder
targetFolder = “C:\App\Configs” ‘ パッキング対象のルートフォルダ
archiveFile = “C:\App\bundle.arc” ‘ 生成するアーカイブファイルパス
restoreFolder = “C:\App\Restored” ‘ 復元先のフォルダ
‘ 1. パッキング実行
Call PackFiles(targetFolder, archiveFile)
‘ 2. 復元実行
Call UnpackFiles(archiveFile, restoreFolder)
WScript.Echo “すべての処理が正常に完了しました。”
‘ ==============================================================================
‘ パッキング関数 (Pack)
‘ ==============================================================================
Sub PackFiles(srcFolderPath, destArchivePath)
Dim fso, folder, stream
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FolderExists(srcFolderPath) Then
Err.Raise 1001, “PackFiles”, “対象フォルダが存在しません: ” & srcFolderPath
End If
Set folder = fso.GetFolder(srcFolderPath)
‘ 出力用バイナリウムストリームの初期化
Set stream = CreateObject(“ADODB.Stream”)
stream.Type = adTypeBinary
stream.Open
‘ 再帰的にファイルを探索してストリームに書き込む
Call ProcessFolderForPack(fso, folder, folder.Path, stream)
‘ アーカイブファイルとして保存
stream.SaveToFile destArchivePath, adSaveCreateOverWrite
stream.Close
Set stream = Nothing
Set fso = Nothing
WScript.Echo “パッキング完了: ” & destArchivePath
End Sub
‘ 再帰的フォルダ走査＆書き込みサブルーチン
Sub ProcessFolderForPack(fso, currentFolder, rootPath, stream)
Dim file, subFolder, relPath, fileBytes, pathBytes, pathLen
‘ ファイルの処理
For Each file in currentFolder.Files
‘ ルートからの相対パスを算出
relPath = Mid(file.Path, Len(rootPath) + 2)
‘ バックスラッシュをスラッシュに統一（プラットフォーム依存排除）
relPath = Replace(relPath, “\”, “/”)
‘ ファイルの内容をバイナリとして読み込む
fileBytes = ReadFileAsBytes(file.Path)
‘ パス文字列をUTF-8のバイト配列に変換
pathBytes = StringToUTF8Bytes(relPath)
pathLen = UBound(pathBytes) + 1
‘ ヘッダー書き込み: パス長 (2Bytes – Integer)
stream.Write IntToBytes2(pathLen)
‘ ヘッダー書き込み: パス文字列本体
stream.Write pathBytes
‘ ヘッダー書き込み: データ長 (4Bytes – Long)
stream.Write LongToBytes4(LenB(fileBytes))
‘ データ本体書き込み
stream.Write fileBytes
Next
‘ サブフォルダの再帰処理
For Each subFolder in currentFolder.SubFolders
Call ProcessFolderForPack(fso, subFolder, rootPath, stream)
Next
End Sub
‘ ==============================================================================
‘ 復元関数 (Unpack)
‘ ==============================================================================
Sub UnpackFiles(srcArchivePath, destFolderPath)
Dim fso, stream, pathLen, pathBytes, relPath, dataLen, fileBytes
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FileExists(srcArchivePath) Then
Err.Raise 1002, “UnpackFiles”, “アーカイブファイルが存在しません: ” & srcArchivePath
End If
‘ 出力先フォルダの作成
If Not fso.FolderExists(destFolderPath) Then
fso.CreateFolder(destFolderPath)
End If
Set stream = CreateObject(“ADODB.Stream”)
stream.Type = adTypeBinary
stream.Open
stream.LoadFromFile srcArchivePath
‘ ストリームの終端に達するまでループ
Do While stream.Position < stream.Size
' 1. パス長の読み込み (2Bytes)
pathLen = BytesToInt2(stream.Read(2))
' 2. パス文字列の読み込み
pathBytes = stream.Read(pathLen)
relPath = UTF8BytesToString(pathBytes)
' 3. データ長の読み込み (4Bytes)
dataLen = BytesToLong4(stream.Read(4))
' 4. データ本体の読み込み
fileBytes = stream.Read(dataLen)
' 5. ファイルとして出力（必要に応じてディレクトリ構造を自動生成）
Dim targetFilePath
targetFilePath = destFolderPath & "\" & Replace(relPath, "/", "\")
Call EnsureDirectoryExists(fso, fso.GetParentFolderName(targetFilePath))
Call WriteBytesToFile(targetFilePath, fileBytes)
Loop
stream.Close
Set stream = Nothing
Set fso = Nothing
WScript.Echo "復元完了: " & destFolderPath
End Sub
' ==============================================================================
' ユーティリティ・補助関数群 (バイナリ変換・ストリーム制御)
' ==============================================================================
' ファイルをバイナリ配列として読み込む
Function ReadFileAsBytes(filePath)
Dim stream
Set stream = CreateObject("ADODB.Stream")
stream.Type = adTypeBinary
stream.Open
stream.LoadFromFile filePath
ReadFileAsBytes = stream.Read()
stream.Close
Set stream = Nothing
End Function
' バイナリをファイルに書き出す
Sub WriteBytesToFile(filePath, bytes)
Dim stream
Set stream = CreateObject("ADODB.Stream")
stream.Type = adTypeBinary
stream.Open
stream.Write bytes
stream.SaveToFile filePath, adSaveCreateOverWrite
stream.Close
Set stream = Nothing
End Sub
' 文字列をUTF-8のバイナリ配列に変換
Function StringToUTF8Bytes(str)
Dim stream
Set stream = CreateObject("ADODB.Stream")
stream.Type = adTypeText
stream.Charset = "UTF-8"
stream.Open
stream.WriteText str
stream.Position = 0
stream.Type = adTypeBinary
' BOM(3バイト)をスキップする場合の処理を入れることもあるが、ここではシンプルに全取得
' ※先頭の3バイト(EF BB BF)を取り除く処理
stream.Position = 3
StringToUTF8Bytes = stream.Read()
stream.Close
Set stream = Nothing
End Function
' UTF-8のバイナリ配列を文字列に変換
Function UTF8BytesToString(bytes)
Dim stream
Set stream = CreateObject("ADODB.Stream")
stream.Type = adTypeBinary
stream.Open
stream.Write bytes
stream.Position = 0
stream.Type = adTypeText
stream.Charset = "UTF-8"
UTF8BytesToString = stream.ReadText
stream.Close
Set stream = Nothing
End Function
' 階層フォルダを再帰的に確実作成する
Sub EnsureDirectoryExists(fso, parentPath)
If Not fso.FolderExists(parentPath) Then
EnsureDirectoryExists fso, fso.GetParentFolderName(parentPath)
fso.CreateFolder parentPath
End If
End Sub
' --- 数値 <-> バイト配列 変換ヘルパー (リトルエンディアン) —
Function IntToBytes2(val)
Dim stream
Set stream = CreateObject(“ADODB.Stream”)
stream.Type = adTypeBinary
stream.Open
stream.Write ChrB(val Mod 256) & ChrB(Int(val / 256) Mod 256)
stream.Position = 0
IntToBytes2 = stream.Read()
stream.Close
End Function
Function BytesToInt2(bytes)
Dim b
b = bytes
BytesToInt2 = AscB(MidB(b, 1, 1)) + (AscB(MidB(b, 2, 1)) 256)
End Function
Function LongToBytes4(val)
Dim stream
Set stream = CreateObject(“ADODB.Stream”)
stream.Type = adTypeBinary
stream.Open
stream.Write ChrB(val Mod 256) & _
ChrB(Int(val / 256) Mod 256) & _
ChrB(Int(val / 65536) Mod 256) & _
ChrB(Int(val / 16777216) Mod 256)
stream.Position = 0
LongToBytes4 = stream.Read()
stream.Close
End Function
Function BytesToLong4(bytes)
Dim b
b = bytes
BytesToLong4 = AscB(MidB(b, 1, 1)) + _
(AscB(MidB(b, 2, 1)) 256) + _
(AscB(MidB(b, 3, 1)) 65536) + _
(AscB(MidB(b, 4, 1)) 16777216)
End Function
—
チーフアーキテクトが教える、現場で活きる実装の急所
1. なぜ `ADODB.Stream` を組み合わせるのか？
VBScriptの標準機能（`TextStream`）は文字コードの自動判定やバイナリ操作において無力に等しい。`ADODB.Stream` をバイナリモード（`adTypeBinary`）で駆使することで、メモリ上で高速にストリームを連結・切り出しできる。これが、数千ファイルを数秒で処理できる秘密だ。
2. パス区切り文字の正規化（`\` から `/` へ）
Windows環境だけで完結する場合でも、アーカイブ内のパスは `/` に統一して保持することを強く推奨する。将来的に異なるプラットフォームやサードパーティツールで解析する際、バックスラッシュのエスケープ問題に悩まされずに済む。
3. メモリ枯渇（OOM）を防ぐ設計
今回のコードではファイルごとにバイト配列を読み書きしているため、数GBある巨大な単一ファイルには向かない。しかし、「小規模テキストファイル（数百KB〜数MB程度）が数千枚ある」という業務上のユースケースにおいては、メモリを圧迫せず極めて安定して動作する。
—
まとめ
「VBScriptは古いからできない」と諦める前に、OSのプリミティブなコンポーネントをどう組み合わせるかを考えるのがプロフェッショナルだ。今回紹介した独自アーカイブ手法は、単なるファイルまとめに留まらず、データベースのBLOB領域への格納や、ネットワーク転送の最適化（ペイロードの単一化）にもそのまま応用できる。
現場の制約を突破する武器として、ぜひあなたの自動化ツールキットに加えてほしい。
