という感じで呼び出すと、バックアップフォルダに[ファイルの更新日時(yyyyymmddhhnnss)+ファイル名.zip]でバックアップファイルを作ります。 バックアップフォルダを省略した場合はMDBと同じフォルダに生成するので、MDBをスクリプトにドラッグ&ドロップしてもok。 元のファイルは最適化されます。 Dim fso Set fso = WScript.CreateObject("Scripting.FileSystemObject") If WScript.Arguments.Count = 0 Then WScript.Quit End If Dim SourceDBName SourceDBName = WScript.Arguments(0) Dim BackupFolderName If WScript.Arguments.Count = 2 Then BackupFo
![WSH - なにやらかにやらメモ](https://cdn-ak-scissors.b.st-hatena.com/image/square/45c4684c76601e94abbe94966d9d5a26153b8fbd/height=288;version=1;width=512/https%3A%2F%2Fimg.atwiki.jp%2F_img%2Fog_image.png)