0 1 2 3 4 5 6 7 8 9 A B C D E F -------------------------------------------------------------------------- 00000000 50 4B 05 06 00 00 00 00 00 00 00 00 00 00 00 00 PK.............. 00000010 00 00 00 00 00 00 ...... 504B0506 0000 ディスク情報1 0000 ディスク情報2 0000 エントリされたデータの情報1 0000 エントリされたデータの情報2 00000000 サイズ情報 00000000 データへのオフセット 0000 後続するコメントの長さ http://msdn.microsoft.com/en-us/library/cc144171.aspx#verb_implementation_tasks 拡張子:txtvbswsfjsphpjavahtmlutf8sjis Set Fso = CreateObject( "Scripting.FileSystemObject" ) Set Handle = Fso.CreateTextFile( "empty.zip", True ) EmptyData = Chr(&H50) & Chr(&H4B) & Chr(&H5) & Chr(&H6) EmptyData = EmptyData & String( 18, Chr(0) ) Handle.Write EmptyData Handle.Close
0 1 2 3 4 5 6 7 8 9 A B C D E F -------------------------------------------------------------------------- 00000000 50 4B 05 06 00 00 00 00 00 00 00 00 00 00 00 00 PK.............. 00000010 00 00 00 00 00 00 ...... 504B0506 0000 ディスク情報1 0000 ディスク情報2 0000 エントリされたデータの情報1 0000 エントリされたデータの情報2 00000000 サイズ情報 00000000 データへのオフセット 0000 後続するコメントの長さ
Set Fso = CreateObject( "Scripting.FileSystemObject" ) Set Handle = Fso.CreateTextFile( "empty.zip", True ) EmptyData = Chr(&H50) & Chr(&H4B) & Chr(&H5) & Chr(&H6) EmptyData = EmptyData & String( 18, Chr(0) ) Handle.Write EmptyData Handle.Close