.

Summary

The GetCompressedFileSize API

.

static extern uint GetCompressedFileSize(string lpFileName,

.

Private Declare Function GetCompressedFileSize Lib "kernel32" Alias "GetCompressedFileSizeA" (ByVal lpFileName As String, ByVal lpFileSizeHigh As IntPtr) As UInt32

.

Private Declare Function GetCompressedFileSize Lib "kernel32" Alias "GetCompressedFileSizeA" (ByVal lpFileName As String, lpFileSizeHigh As Long) As Long

.

    [DllImport("kernel32.dll", SetLastError=true, EntryPoint="GetCompressedFileSize")]

.

    static extern uint GetCompressedFileSizeAPI(string lpFileName, out uint lpFileSizeHigh);

.

    public ulong GetCompressedFileSize(string filename)

.

        low = GetCompressedFileSizeAPI(filename, out high);

.

       ' Return Convert.ToInt64(GetCompressedFileSize(path, IntPtr.Zero))

.

         Dim filelength as Long = Convert.ToInt64(GetCompressedFileSize(path, ptr))

.

   MsgBox "The size of " + strPath " is " + CStr(GetCompressedFileSize(strPath, ByVal 0&)) + " bytes "

.

Documentation

[GetCompressedFileSize] on MSDN