'EXTRACTINGINFO の構造 '-------------------------------------------------------- Private Type EXTRACTINGINFO dwFileSize As Long dwWriteSize As Long szSourceFileName As String * 513 dummy1 As String * 3 szDestFileName As String * 513 dummy As String * 3 End Type
'EXTRACTINGINFOEX の構造 '-------------------------------------------------------- Private Type EXTRACTINGINFOEX exinfo As EXTRACTINGINFO dwCompressedSize As Long dwCRC As Long uOSType As Long wRatio As Long wDate As Long wTime As Long szAttribute As String * 8 szMode As String * 8 End Type