C# Signature:
[DllImport("kernel32.dll")]
static extern uint GetCompressedFileSize(string lpFileName,
IntPtr lpFileSizeHigh);
VB .NET Signature:
Private Declare Function GetCompressedFileSize Lib "kernel32" Alias "GetCompressedFileSizeA" (ByVal lpFileName As String, ByVal lpFileSizeHigh As IntPtr) As UInt32
Legacy VB Signature:
Private Declare Function GetCompressedFileSize Lib "kernel32" Alias "GetCompressedFileSizeA" (ByVal lpFileName As String, lpFileSizeHigh As Long) As Long
User-Defined Types:
None.
Notes:
None.
Tips & Tricks:
Please add some!
Sample Code VB .NET:
Imports System.IO
·
·
·
Public Function CompressedFileSize(ByVal path As String) As Long
If File.Exist(path) Then
Try
Return Convert.ToInt64(GetCompressedFileSize(path, IntPtr.Zero))
Catch ex As Exception
Throw New IOException("The compressed size of the specified file could not be determined.")
End Try
End If
End Function
Sample code legacy VB:
Private Sub GetFileSize(ByVal strPath As String)
MsgBox "The size of " + strPath " is " + CStr(GetCompressedFileSize(strPath, ByVal 0&)) + " bytes "
End Sub
Alternative Managed API:
Do you know one? Please contribute it!
