InDesignファイル使用している全フォントを収集

普段、カタログを個人以外の別マシンで作業したい場合が時々あります。その時、大体足りないフォントの探す・インストールから始まる。これは、非常に非効率です。下記のスクリプトで、一括コピペしてくれる。

if (app.documents.length === 0) {
    alert("InDesignファイルを開いてください");
    exit();
}

var copyToFolder = Folder.desktop + "/myCopiedFont/";//保存先
if (!new Folder(copyToFolder).exists) {
    new Folder(copyToFolder).create();
}

var doc = app.activeDocument;
var f = doc.fonts;
var L = f.length;
var c = 0;
for (var i = 0; i < L; i++) {
    var font = f[i];
    var copyTo = copyToFolder + new File(font.location).name;
    var flag = new File(font.location).copy(new File(copyTo));
    if (flag) {
        c++;
    } else {
        alert(new File(font.location).name + " コピー失敗しました");
    }
}

alert(c + " 個フォントがコピーしました。場所： " + copyToFolder);