NSIS Wiki - User contributions [en]

File:SOD II tool.zip

2013-05-25T01:05:02Z

Bnicer: uploaded a new version of "File:SOD II tool.zip": Re-Re-Compiled with NSIS 3 new release - corrected syntax. Updated May 25, 2013.

Size On Disk (SOD) utility, mark II. Supplemental file for the 'Size on disk' NSIS wiki code example. Source files are included for compiling the utility. The purpose is to exemplify the use of ${GetSizeOnDisk}, an included macro that returns logical size (size on disk) of folders and files. The tool has an MUI 2 input page and an output page.

File:SODTool.zip

2013-05-25T01:03:28Z

Bnicer: uploaded a new version of "File:SODTool.zip": Re-Re-Compiled with NSIS 3 new release - corrected syntax. Updated May 25, 2013.

File attachment for Get size on disk code example. Includes icon, macros header file, nsissize executable, nsissize script. Created Feb. 15, 2013.

2013-03-08T01:15:14Z

Bnicer: Size On Disk (SOD) utility

{{PageAuthor|Bnicer}}
This example code shows you how to get the space used by directories and files.
<highlight-nsis>
; A utility for computing the NSIS (or NSIS Unicode) install folder size and the size of
; the uninstaller
; nsissize.nsi
; Compile, then run the .exe

Name "SOD Tool"
RequestExecutionLevel user
#RequestExecutionLevel admin ; More files may be found in system folders
!define LOCAL "" ; Path where local include files reside
OutFile "${LOCAL}nsissize.exe"
!include "${LOCAL}macros.nsh"
Icon "${LOCAL}arrows.ico"
ReserveFile "${NSISDIR}\Plugins\Math.dll" ; Doesn't seem to like "!include"
!include "LogicLib.nsh"
ShowInstDetails show

;--------------------------------

; Variables
Var NSIS
Var COMPRESSED
Var COMPRESSED_UN
Var BLOCK
Var FILES
Var FOLDERS
Var SIZE_B
Var SIZE_M
Var SOD_B
Var SOD_K
Var SOD_M
Var SIZE_UN_B
Var SIZE_UN_K
Var SOD_UN_B
Var SOD_UN_K

;--------------------------------

; Functions
Function Separator ; comma
Exch $R1 ; input string
Push $R2
Push $R3
Push $R4
Push $R5
StrCpy $R2 $R1
StrCpy $R5 "16" ; 1,000,000,000,000,000 limit
StrLen $R4 $R1
loop:
IntCmp $R5 3 endloop endloop 0
IntCmp $R4 $R5 0 +7 0
IntOp $R5 $R5 - 1
StrCpy $R2 $R2 -$R5
StrCpy $R3 $R1 "" -$R5
StrCpy $R2 "$R2,$R3"
IntOp $R5 $R5 - 2
Goto loop
IntOp $R5 $R5 - 3
Goto loop
endloop:
Pop $R5
Pop $R4
Pop $R3
Exch $R2
Pop $R1
Exch $R1 ; output string
FunctionEnd

;--------------------------------

; Main Section (nothing will be installed)
Section
; registry
ReadRegStr $NSIS HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS Unicode" "InstallLocation"
IfErrors 0 begin
ClearErrors
ReadRegStr $NSIS HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS ANSI" "InstallLocation"
IfErrors 0 begin
ClearErrors
ReadRegStr $NSIS HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS" "InstallLocation"
IfErrors 0 begin
ClearErrors
Goto done
begin:
IfFileExists "$NSIS" 0 done
${GetClusterSize} $NSIS $BLOCK
; directory
${GetSizeOnDisk} "$NSIS" "/S=0B" "" $0 $1 $2 $3
StrCpy $SIZE_B $0
StrCpy $FILES $1
StrCpy $FOLDERS $2
Math::Script "r4 = ff($0 / 1024 / 1024.0, 16 +2)"
StrCpy $SIZE_M $4
${GetSizeOnDisk} "$NSIS" "/S=0B" "$BLOCK" $0 $1 $2 $3
StrCpy $SOD_B $0
StrCpy $COMPRESSED $3
Math::Script "r4 = ff($0 / 1024.0, 16 +0); r5 = ff(r4 / 1024.0, 16 +2)"
StrCpy $SOD_K $4
StrCpy $SOD_M $5
; uninstaller
IfFileExists "$NSIS\uninst-nsis.exe" 0 done
${GetSizeOnDisk} "$NSIS" "/M=uninst-nsis.exe /S=0B /G=0" "" $0 $1 $2 $3
StrCpy $SIZE_UN_B $0
Math::Script "r4 = ff($0 / 1024.0, 16 +1)"
StrCpy $SIZE_UN_K $4
${GetSizeOnDisk} "$NSIS" "/M=uninst-nsis.exe /S=0B /G=0" "$BLOCK" $0 $1 $2 $3
StrCpy $SOD_UN_B $0
${If} $3 > 0
StrCpy $COMPRESSED_UN " (compressed or sparse)"
${Else}
StrCpy $COMPRESSED_UN ""
${EndIf}
Math::Script "r4 = ff($0 / 1024.0, 16 +1)"
StrCpy $SOD_UN_K $4
; format
Push $SIZE_B
Call Separator
Pop $SIZE_B

Push $SOD_B
Call Separator
Pop $SOD_B

Push $SOD_K
Call Separator
Pop $SOD_K

Push $SIZE_UN_B
Call Separator
Pop $SIZE_UN_B

Push $SOD_UN_B
Call Separator
Pop $SOD_UN_B
; output
DetailPrint ""
DetailPrint "$NSIS"
DetailPrint "Size: $SIZE_M MB ($SIZE_B bytes)"
DetailPrint "SOD: $SOD_M MB ($SOD_B bytes)"
DetailPrint ""
DetailPrint "Uninstaller$COMPRESSED_UN"
DetailPrint "Size: $SIZE_UN_K KB ($SIZE_UN_B bytes)"
DetailPrint "SOD: $SOD_UN_K KB ($SOD_UN_B bytes)"
DetailPrint ""
DetailPrint "$FILES files | $FOLDERS folders | $SOD_K Kb | $COMPRESSED compressed/sparse file(s)"
DetailPrint ""
Goto completed
done:
DetailPrint "File not found."
completed:
SectionEnd

;--------------------------------
# EOF
</highlight-nsis>
You should copy the next code into a separate file: macros.nsh.
<highlight-nsis>
; Macros include (TN)
;--------------------------------
/*

FileFunction=[GetSizeOnDisk|GetClusterSize]

*/
;_____________________________________________________________________________
;
; Macros
;_____________________________________________________________________________
;
; Change log window verbosity (default: 3=no script)
;
; Example:
; !include "macros.nsh"
; !insertmacro GetSizeOnDisk
; ${FILEFUNC_VERBOSE} 4 # all verbosity
; !insertmacro GetClusterSize
; ${FILEFUNC_VERBOSE} 3 # no script

!include Util.nsh ; for "CallArtificialFunction"

!verbose push
!verbose 3
!ifndef _FILEFUNC_VERBOSE
!define _FILEFUNC_VERBOSE 3
!endif
!verbose ${_FILEFUNC_VERBOSE}
!define FILEFUNC_VERBOSE `!insertmacro FILEFUNC_VERBOSE`
!verbose pop

!macro FILEFUNC_VERBOSE _VERBOSE
!verbose push
!verbose 3
!undef _FILEFUNC_VERBOSE
!define _FILEFUNC_VERBOSE ${_VERBOSE}
!verbose pop
!macroend

!macro GetSizeOnDiskCall _PATH _OPTIONS _FILESYSTEM _RESULT1 _RESULT2 _RESULT3 _RESULT4
!verbose push
!verbose ${_FILEFUNC_VERBOSE}
Push `${_PATH}`
Push `${_OPTIONS}`
Push `${_FILESYSTEM}` ; volume block size
${CallArtificialFunction} GetSizeOnDisk_
Pop ${_RESULT1}
Pop ${_RESULT2}
Pop ${_RESULT3}
Pop ${_RESULT4}
!verbose pop
!macroend

!macro GetClusterSizeCall _PATH _RESULT
!verbose push
!verbose ${_FILEFUNC_VERBOSE}
Push `${_PATH}`
${CallArtificialFunction} GetClusterSize_
Pop ${_RESULT}
!verbose pop
!macroend

; ---------------
; GetSizeOnDisk (modified "GetSize" - FileFunc.nsh - KiCHiK - Function "FindFiles")

!define GetSizeOnDisk `!insertmacro GetSizeOnDiskCall`
!define un.GetSizeOnDisk `!insertmacro GetSizeOnDiskCall`

!macro GetSizeOnDisk
!macroend

!macro un.GetSizeOnDisk
!macroend

; Usage: similar to "GetSize"

; For documentation, see the NSIS user manual: E.1.3 GetSize
; Four (not three) values are returned

; $var1 ; Result1: Size/Size on disk
; $var2 ; Result2: Sum of files
; $var3 ; Result3: Sum of directories
; $var4 ; Result4: Sum of compressed/sparse files

; Example: ${GetSizeOnDisk} "$INSTDIR" "/S=0K" "SOD" $0 $1 $2 $3
; DetailPrint "$1 file(s) | $2 folder(s) | $0 Kb | $3 compressed or sparse file(s)"

; Specifying 'SOD' (e.g. Size On Disk) toggles the $var1 result
; Output is logical size, if used, or physical size, if left empty ""
; The target volume's allocation unit size in bytes, the size of a
; cluster, for example '4096' bytes, if valid, can also be the input
; If neither 'SOD' nor a cluster size is specified, $var4 returns 0
; even where compressed and/or sparse files exist

; ${GetSizeOnDisk} can be used with Windows NT and Windows 2000
; When the volume is FAT32, FAT16 or an older file system, the result
; in $var1 reverts to physical size, although not incorrect

!macro GetSizeOnDisk_
!verbose push
!verbose ${_FILEFUNC_VERBOSE}

Exch $2
Exch 2
Exch $0
Exch
Exch $1
Push $3
Push $4
Push $5
Push $6
Push $7
Push $8
Push $9
Push $R0
Push $R1
Push $R2
StrCpy $R1 $2
Push $R3
Push $R4
Push $R5
Push $R6
Push $R7
Push $R8
Push $R9
ClearErrors

StrCmp $R1 '' FileFunc_GetSize_path

StrCpy $5 $0
StrCpy $2 $0 2
StrCmp $2 '\\' FileFunc_GetSize_Root_UNC
StrCpy $3 $2 1 1
StrCmp $3 ':' 0 FileFunc_GetSize_Root_empty
StrCpy $5 $2
goto FileFunc_GetSize_FileSystem

FileFunc_GetSize_Root_UNC:
StrCpy $3 1
StrCpy $4 ''

FileFunc_GetSize_Root_loop:
IntOp $3 $3 + 1
StrCpy $2 $5 1 $3
StrCmp $2$4 '' FileFunc_GetSize_Root_empty
StrCmp $2 '' +5
StrCmp $2 '\' 0 FileFunc_GetSize_Root_loop
StrCmp $4 '1' +3
StrCpy $4 '1'
goto FileFunc_GetSize_Root_loop
StrCpy $5 $5 $3
StrCpy $3 $5 1 -1
StrCmp $3 '\' 0 FileFunc_GetSize_FileSystem

FileFunc_GetSize_Root_empty:
StrCpy $5 ''

FileFunc_GetSize_FileSystem:
System::Call 'Kernel32::GetVolumeInformation\
(t "$5\",t,i ${NSIS_MAX_STRLEN},*i,*i,*i,t.r2,i ${NSIS_MAX_STRLEN})i.r3'
StrCmp $3 0 FileFunc_GetSize_FileSystem_error
StrCpy $2 $2 3
StrCmp $2 'FAT' FileFunc_GetSize_FileSystem_error
StrCmp $R1 'SOD' 0 FileFunc_GetSize_path
System::Call 'kernel32::GetDiskFreeSpace(t "$5\",*i0r2,*i0r3,,)'
IntOp $R1 $2 * $3
goto FileFunc_GetSize_path

FileFunc_GetSize_FileSystem_error:
StrCpy $R1 ''

FileFunc_GetSize_path:
StrCpy $R9 $0 1 -1
StrCmp $R9 '\' 0 +3
StrCpy $0 $0 -1
goto -3
IfFileExists '$0\*.*' 0 FileFunc_GetSize_error

StrCpy $3 0
StrCpy $4 ''
StrCpy $5 ''
StrCpy $6 ''
StrCpy $8 0
StrCpy $R3 ''
StrCpy $R4 ''
StrCpy $R5 ''

FileFunc_GetSize_option:
StrCpy $R9 $1 1
StrCpy $1 $1 '' 1
StrCmp $R9 ' ' -2
StrCmp $R9 '' FileFunc_GetSize_sizeset
StrCmp $R9 '/' 0 -4

StrCpy $9 -1
IntOp $9 $9 + 1
StrCpy $R9 $1 1 $9
StrCmp $R9 '' +2
StrCmp $R9 '/' 0 -3
StrCpy $8 $1 $9
StrCpy $8 $8 '' 2
StrCpy $R9 $8 '' -1
StrCmp $R9 ' ' 0 +3
StrCpy $8 $8 -1
goto -3
StrCpy $R9 $1 2
StrCpy $1 $1 '' $9

StrCmp $R9 'M=' 0 FileFunc_GetSize_size
StrCpy $4 $8
goto FileFunc_GetSize_option

FileFunc_GetSize_size:
StrCmp $R9 'S=' 0 FileFunc_GetSize_gotosubdir
StrCpy $6 $8
goto FileFunc_GetSize_option

FileFunc_GetSize_gotosubdir:
StrCmp $R9 'G=' 0 FileFunc_GetSize_error
StrCpy $7 $8
StrCmp $7 '' +3
StrCmp $7 '1' +2
StrCmp $7 '0' 0 FileFunc_GetSize_error
goto FileFunc_GetSize_option

FileFunc_GetSize_sizeset:
StrCmp $6 '' FileFunc_GetSize_default
StrCpy $9 0
StrCpy $R9 $6 1 $9
StrCmp $R9 '' +4
StrCmp $R9 ':' +3
IntOp $9 $9 + 1
goto -4
StrCpy $5 $6 $9
IntOp $9 $9 + 1
StrCpy $1 $6 1 -1
StrCpy $6 $6 -1 $9
StrCmp $5 '' +2
IntOp $5 $5 + 0
StrCmp $6 '' +2
IntOp $6 $6 + 0

StrCmp $1 'B' 0 +4
StrCpy $1 1
StrCpy $2 bytes
goto FileFunc_GetSize_default
StrCmp $1 'K' 0 +4
StrCpy $1 1024
StrCpy $2 Kb
goto FileFunc_GetSize_default
StrCmp $1 'M' 0 +4
StrCpy $1 1048576
StrCpy $2 Mb
goto FileFunc_GetSize_default
StrCmp $1 'G' 0 FileFunc_GetSize_error
StrCpy $1 1073741824
StrCpy $2 Gb

FileFunc_GetSize_default:
StrCmp $4 '' 0 +2
StrCpy $4 '*.*'
StrCmp $7 '' 0 +2
StrCpy $7 '1'

StrCpy $8 1
Push $0
SetDetailsPrint textonly

FileFunc_GetSize_nextdir:
IntOp $8 $8 - 1
Pop $R8
FindFirst $0 $R7 '$R8\$4'
IfErrors FileFunc_GetSize_show
StrCmp $R7 '.' 0 FileFunc_GetSize_dir
FindNext $0 $R7
StrCmp $R7 '..' 0 FileFunc_GetSize_dir
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_dir
FindClose $0
goto FileFunc_GetSize_show

FileFunc_GetSize_dir:
IfFileExists '$R8\$R7\*.*' 0 FileFunc_GetSize_file
IntOp $R5 $R5 + 1
goto FileFunc_GetSize_findnext

FileFunc_GetSize_file:
StrCpy $R6 0
StrCmp $5$6 '' 0 +3
IntOp $R4 $R4 + 1
goto FileFunc_GetSize_findnext
StrCmp $R1 '' FileFunc_GetSize_fileopen
StrCpy $R0 0
System::Call 'kernel32::GetFileAttributes(t "$R8\$R7")i .R2'
StrCmp $R2 -1 FileFunc_GetSize_fileopen
IntOp $R0 $R2 & 0x0800 ; compressed
IntCmp $R0 0 0 0 FileFunc_GetSize_GetCompressed
IntOp $R0 $R2 & 0x0200 ; sparse file
IntCmp $R0 0 FileFunc_GetSize_fileopen
FileFunc_GetSize_GetCompressed:
System::Call 'kernel32::GetCompressedFileSize(t "$R8\$R7", i)i .R6'
IntCmp $R6 4096 +2 0 +2
StrCpy $R6 4096
IntOp $3 $3 + 1 ; location contains compressed or sparse files
goto FileFunc_GetSize_fileclose
FileFunc_GetSize_fileopen:
FileOpen $9 '$R8\$R7' r
IfErrors +3
FileSeek $9 0 END $R6
FileClose $9
FileFunc_GetSize_fileclose:
StrCmp $5 '' +2
IntCmp $R6 $5 0 FileFunc_GetSize_findnext
StrCmp $6 '' +2
IntCmp $R6 $6 0 0 FileFunc_GetSize_findnext
IntOp $R4 $R4 + 1
StrCmp $R1 '' FileFunc_GetSize_file_add
StrCmp $R0 0 0 FileFunc_GetSize_file_add
StrCpy $R0 $R1
IntOp $R6 $R6 + $R0
IntOp $R1 $R6 % $R0
StrCmp $R1 0 0 +2
StrCpy $R1 $R0
IntOp $R2 $R0 - $R1
IntOp $R6 $R6 - $R0
IntOp $R6 $R6 + $R2
StrCpy $R1 $R0
FileFunc_GetSize_file_add:
System::Int64Op $R3 + $R6
Pop $R3

FileFunc_GetSize_findnext:
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_dir
FindClose $0

FileFunc_GetSize_show:
StrCmp $5$6 '' FileFunc_GetSize_nosize
System::Int64Op $R3 / $1
Pop $9
DetailPrint 'Size:$9 $2 Files:$R4 Folders:$R5'
goto FileFunc_GetSize_subdir
FileFunc_GetSize_nosize:
DetailPrint 'Files:$R4 Folders:$R5'

FileFunc_GetSize_subdir:
StrCmp $7 0 FileFunc_GetSize_preend
FindFirst $0 $R7 '$R8\*.*'
StrCmp $R7 '.' 0 FileFunc_GetSize_pushdir
FindNext $0 $R7
StrCmp $R7 '..' 0 FileFunc_GetSize_pushdir
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_pushdir
FindClose $0
StrCmp $8 0 FileFunc_GetSize_preend FileFunc_GetSize_nextdir

FileFunc_GetSize_pushdir:
IfFileExists '$R8\$R7\*.*' 0 +3
Push '$R8\$R7'
IntOp $8 $8 + 1
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_pushdir
FindClose $0
StrCmp $8 0 FileFunc_GetSize_preend FileFunc_GetSize_nextdir

FileFunc_GetSize_preend:
StrCmp $R3 '' FileFunc_GetSize_nosizeend
System::Int64Op $R3 / $1
Pop $R3
FileFunc_GetSize_nosizeend:
StrCpy $2 $R4
StrCpy $1 $R5
StrCpy $0 $R3
goto FileFunc_GetSize_noerror

FileFunc_GetSize_error:
SetErrors
StrCpy $0 ''
StrCpy $1 ''
StrCpy $2 ''
StrCpy $3 ''
goto FileFunc_GetSize_end

FileFunc_GetSize_noerror:
StrCmp $0 '' 0 +2
StrCpy $0 0
StrCmp $1 '' 0 +2
StrCpy $1 0
StrCmp $2 '' 0 +2
StrCpy $2 0
StrCmp $3 '' 0 +2
StrCpy $3 0

FileFunc_GetSize_end:
SetDetailsPrint both
Pop $R9
Pop $R8
Pop $R7
Pop $R6
Pop $R5
Pop $R4
Pop $R3
Pop $R2
Pop $R1
Pop $R0
Pop $9
Pop $8
Pop $7
Pop $6
Pop $5
Pop $4
Exch $3
Exch 3
Exch $2
Exch
Exch $1
Exch 2
Exch $0

!verbose pop
!macroend

; ---------------
; GetClusterSize

; Allocation unit size on NTFS, exFAT and reFS formatted volumes
; Syntax: ${GetClusterSize} $inputpath $outputvariable
; Result: 512, 1024, ..., 4096, ..., 131072, ...

!define GetClusterSize `!insertmacro GetClusterSizeCall`
!define un.GetClusterSize `!insertmacro GetClusterSizeCall`

!macro GetClusterSize
!macroend

!macro un.GetClusterSize
!macroend

!macro GetClusterSize_
!verbose push
!verbose ${_FILEFUNC_VERBOSE}

Exch $0
Push $1
Push $2
Push $3

StrCpy $1 $0 2
StrCmp $1 '\\' Root_UNC
StrCpy $2 $1 1 1
StrCmp $2 ':' 0 Root_empty
StrCpy $0 $1
goto Root_end

Root_UNC:
StrCpy $2 1
StrCpy $3 ''

Root_loop:
IntOp $2 $2 + 1
StrCpy $1 $0 1 $2
StrCmp $1$3 '' Root_empty
StrCmp $1 '' +5
StrCmp $1 '\' 0 Root_loop
StrCmp $3 '1' +3
StrCpy $3 '1'
goto Root_loop
StrCpy $0 $0 $2
StrCpy $2 $0 1 -1
StrCmp $2 '\' 0 Root_end

Root_empty:
StrCpy $0 ''

Root_end:
System::Call 'kernel32::GetDiskFreeSpace(t "$0\",*i0r1,*i0r2,,)'
IntOp $0 $1 * $2
Pop $3
Pop $2
Pop $1
Exch $0

!verbose pop
!macroend

</highlight-nsis>
Credits:

GetSizeOnDisk has been altered slightly and renamed. The original macro is called GetSize. You will find it in the Users Manual under E.1.3.

=== Download (example) ===

This is the same as the example code above.

<attach>SODTool.zip</attach>

=== Download (utility) ===

This is a Modern UI2 version that displays selection windows and goes to an output page. Script file is included.

<attach>SOD II tool.zip</attach>

Both downloads are compiled in unicode, so SOD Tool can read Russian file names.

History:

Optional parameter for counting compressed/sparse files added. (Feb. 18, 2013)

Option to find without subdirectories '/G=0' switch was missing. (Well, not really missing.) Change to details view (string), showing 'compressed/sparse file(s)'. (Feb. 19, 2013)

Change to unicode, because ansi could not read Russian. (Feb. 20, 2013)

Stack operations cleaned up. The SOD II tool uploaded. (Feb. 22, 2013)

String formatting improvements, functions simplified (SOD II) and small revisions in macros header made. (Feb. 23, 2013)

Macros behavior modified in order to detect the file system to deal with FAT, FAT12, FAT16 and FAT32 volumes. Also checking root path, possibly Win2K error. (March 8, 1213)
[[Category:Code Examples]]

File:SOD II tool.zip

2013-03-08T00:52:50Z

Bnicer: uploaded a new version of "File:SOD II tool.zip": Macro behavior: Detecting file system to deal with FAT, FAT12, FAT16 and FAT32 volumes separately, and getting root path. Updated March 8, 2013.

File:SODTool.zip

2013-03-08T00:51:26Z

Bnicer: uploaded a new version of "File:SODTool.zip": Macro behavior: Detecting file system to deal with FAT, FAT12, FAT16 and FAT32 volumes separately, and getting root path. Updated March 8, 2013.

File attachment for Get size on disk code example. Includes icon, macros header file, nsissize executable, nsissize script. Created Feb. 15, 2013.

Get size on disk

2013-02-23T23:44:29Z

Bnicer: Size On Disk (SOD) utility

{{PageAuthor|Bnicer}}
This example code shows you how to get the space used by directories and files.
<highlight-nsis>
; A utility for computing the NSIS (or NSIS Unicode) install folder size and the size of
; the uninstaller
; nsissize.nsi
; Compile, then run the .exe

Name "SOD Tool"
RequestExecutionLevel user
#RequestExecutionLevel admin ; More files may be found in system folders
!define LOCAL "" ; Path where local include files reside
OutFile "${LOCAL}nsissize.exe"
!include "${LOCAL}macros.nsh"
Icon "${LOCAL}arrows.ico"
ReserveFile "${NSISDIR}\Plugins\Math.dll" ; Doesn't seem to like "!include"
!include "LogicLib.nsh"
ShowInstDetails show

;--------------------------------

; Variables
Var NSIS
Var COMPRESSED
Var COMPRESSED_UN
Var BLOCK
Var FILES
Var FOLDERS
Var SIZE_B
Var SIZE_M
Var SOD_B
Var SOD_K
Var SOD_M
Var SIZE_UN_B
Var SIZE_UN_K
Var SOD_UN_B
Var SOD_UN_K

;--------------------------------

; Functions
Function Separator ; comma
Exch $R1 ; input string
Push $R2
Push $R3
Push $R4
Push $R5
StrCpy $R2 $R1
StrCpy $R5 "16" ; 1,000,000,000,000,000 limit
StrLen $R4 $R1
loop:
IntCmp $R5 3 endloop endloop 0
IntCmp $R4 $R5 0 +7 0
IntOp $R5 $R5 - 1
StrCpy $R2 $R2 -$R5
StrCpy $R3 $R1 "" -$R5
StrCpy $R2 "$R2,$R3"
IntOp $R5 $R5 - 2
Goto loop
IntOp $R5 $R5 - 3
Goto loop
endloop:
Pop $R5
Pop $R4
Pop $R3
Exch $R2
Pop $R1
Exch $R1 ; output string
FunctionEnd

;--------------------------------

; Main Section (nothing will be installed)
Section
; registry
ReadRegStr $NSIS HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS Unicode" "InstallLocation"
IfErrors 0 begin
ClearErrors
ReadRegStr $NSIS HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS ANSI" "InstallLocation"
IfErrors 0 begin
ClearErrors
ReadRegStr $NSIS HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS" "InstallLocation"
IfErrors 0 begin
ClearErrors
Goto done
begin:
IfFileExists "$NSIS" 0 done
${GetClusterSize} $NSIS $BLOCK
; directory
${GetSizeOnDisk} "$NSIS" "/S=0B" "" $0 $1 $2 $3
StrCpy $SIZE_B $0
StrCpy $FILES $1
StrCpy $FOLDERS $2
Math::Script "r4 = ff($0 / 1024 / 1024.0, 16 +2)"
StrCpy $SIZE_M $4
${GetSizeOnDisk} "$NSIS" "/S=0B" "$BLOCK" $0 $1 $2 $3
StrCpy $SOD_B $0
StrCpy $COMPRESSED $3
Math::Script "r4 = ff($0 / 1024.0, 16 +0); r5 = ff(r4 / 1024.0, 16 +2)"
StrCpy $SOD_K $4
StrCpy $SOD_M $5
; uninstaller
IfFileExists "$NSIS\uninst-nsis.exe" 0 done
${GetSizeOnDisk} "$NSIS" "/M=uninst-nsis.exe /S=0B /G=0" "" $0 $1 $2 $3
StrCpy $SIZE_UN_B $0
Math::Script "r4 = ff($0 / 1024.0, 16 +1)"
StrCpy $SIZE_UN_K $4
${GetSizeOnDisk} "$NSIS" "/M=uninst-nsis.exe /S=0B /G=0" "$BLOCK" $0 $1 $2 $3
StrCpy $SOD_UN_B $0
${If} $3 > 0
StrCpy $COMPRESSED_UN " (compressed or sparse)"
${Else}
StrCpy $COMPRESSED_UN ""
${EndIf}
Math::Script "r4 = ff($0 / 1024.0, 16 +1)"
StrCpy $SOD_UN_K $4
; format
Push $SIZE_B
Call Separator
Pop $SIZE_B

Push $SOD_B
Call Separator
Pop $SOD_B

Push $SOD_K
Call Separator
Pop $SOD_K

Push $SIZE_UN_B
Call Separator
Pop $SIZE_UN_B

Push $SOD_UN_B
Call Separator
Pop $SOD_UN_B
; output
DetailPrint ""
DetailPrint "$NSIS"
DetailPrint "Size: $SIZE_M MB ($SIZE_B bytes)"
DetailPrint "SOD: $SOD_M MB ($SOD_B bytes)"
DetailPrint ""
DetailPrint "Uninstaller$COMPRESSED_UN"
DetailPrint "Size: $SIZE_UN_K KB ($SIZE_UN_B bytes)"
DetailPrint "SOD: $SOD_UN_K KB ($SOD_UN_B bytes)"
DetailPrint ""
DetailPrint "$FILES files | $FOLDERS folders | $SOD_K Kb | $COMPRESSED compressed/sparse file(s)"
DetailPrint ""
Goto completed
done:
DetailPrint "File not found."
completed:
SectionEnd

;--------------------------------
# EOF
</highlight-nsis>
You should copy the next code into a separate file: macros.nsh.
<highlight-nsis>
; Macros include (TN)
;--------------------------------
/*

FileFunction=[GetSizeOnDisk|GetClusterSize]

*/
;_____________________________________________________________________________
;
; Macros
;_____________________________________________________________________________
;
; Change log window verbosity (default: 3=no script)
;
; Example:
; !include "macros.nsh"
; !insertmacro GetSizeOnDisk
; ${FILEFUNC_VERBOSE} 4 # all verbosity
; !insertmacro GetClusterSize
; ${FILEFUNC_VERBOSE} 3 # no script

!include Util.nsh ; for "CallArtificialFunction"

!verbose push
!verbose 3
!ifndef _FILEFUNC_VERBOSE
!define _FILEFUNC_VERBOSE 3
!endif
!verbose ${_FILEFUNC_VERBOSE}
!define FILEFUNC_VERBOSE `!insertmacro FILEFUNC_VERBOSE`
!verbose pop

!macro FILEFUNC_VERBOSE _VERBOSE
!verbose push
!verbose 3
!undef _FILEFUNC_VERBOSE
!define _FILEFUNC_VERBOSE ${_VERBOSE}
!verbose pop
!macroend

!macro GetSizeOnDiskCall _PATH _OPTIONS _FILESYSTEM _RESULT1 _RESULT2 _RESULT3 _RESULT4
!verbose push
!verbose ${_FILEFUNC_VERBOSE}
Push `${_PATH}`
Push `${_OPTIONS}`
Push `${_FILESYSTEM}` ; volume block size
${CallArtificialFunction} GetSizeOnDisk_
Pop ${_RESULT1}
Pop ${_RESULT2}
Pop ${_RESULT3}
Pop ${_RESULT4}
!verbose pop
!macroend

!macro GetClusterSizeCall _PATH _RESULT
!verbose push
!verbose ${_FILEFUNC_VERBOSE}
Push `${_PATH}`
${CallArtificialFunction} GetClusterSize_
Pop ${_RESULT}
!verbose pop
!macroend

; ---------------
; GetSizeOnDisk (modified "GetSize" - FileFunc.nsh - KiCHiK - Function "FindFiles")

!define GetSizeOnDisk `!insertmacro GetSizeOnDiskCall`
!define un.GetSizeOnDisk `!insertmacro GetSizeOnDiskCall`

!macro GetSizeOnDisk
!macroend

!macro un.GetSizeOnDisk
!macroend

; Usage: similar to "GetSize"

; For documentation, see the NSIS user manual: E.1.3 GetSize
; Four (not three) values are returned

; $var1 ; Result1: Size/Size on disk
; $var2 ; Result2: Sum of files
; $var3 ; Result3: Sum of directories
; $var4 ; Result4: Sum of compressed/sparse files

; Example: ${GetSizeOnDisk} "$INSTDIR" "/S=0K" "SOD" $0 $1 $2 $3
; DetailPrint "$1 file(s) | $2 folder(s) | $0 Kb | $3 compressed or sparse file(s)"

; Specifying 'SOD' (e.g. Size On Disk) toggles the $var1 result
; Output is logical size, if used, or physical size, if left empty ""
; The target volume's allocation unit size in bytes, the size of a
; cluster, for example '4096' bytes, if valid, can also be the input
; If neither 'SOD' nor a cluster size is specified, $var4 returns 0
; even where compressed and/or sparse files exist

!macro GetSizeOnDisk_
!verbose push
!verbose ${_FILEFUNC_VERBOSE}

Exch $2
Exch 2
Exch $0
Exch
Exch $1
Push $3
Push $4
Push $5
Push $6
Push $7
Push $8
Push $9
Push $R0
Push $R1
Push $R2
StrCpy $R1 $2
Push $R3
Push $R4
Push $R5
Push $R6
Push $R7
Push $R8
Push $R9
ClearErrors

StrCmp $R1 '' FileFunc_GetSize_path FileFunc_GetSize_sod

FileFunc_GetSize_sod:
StrCmp $R1 'SOD' 0 FileFunc_GetSize_path
System::Call 'kernel32::GetDiskFreeSpace(tr0,*i0r2,*i0r3,,)'
IntOp $R1 $2 * $3

FileFunc_GetSize_path:
StrCpy $R9 $0 1 -1
StrCmp $R9 '\' 0 +3
StrCpy $0 $0 -1
goto -3
IfFileExists '$0\*.*' 0 FileFunc_GetSize_error

StrCpy $3 0
StrCpy $4 ''
StrCpy $5 ''
StrCpy $6 ''
StrCpy $8 0
StrCpy $R3 ''
StrCpy $R4 ''
StrCpy $R5 ''

FileFunc_GetSize_option:
StrCpy $R9 $1 1
StrCpy $1 $1 '' 1
StrCmp $R9 ' ' -2
StrCmp $R9 '' FileFunc_GetSize_sizeset
StrCmp $R9 '/' 0 -4

StrCpy $9 -1
IntOp $9 $9 + 1
StrCpy $R9 $1 1 $9
StrCmp $R9 '' +2
StrCmp $R9 '/' 0 -3
StrCpy $8 $1 $9
StrCpy $8 $8 '' 2
StrCpy $R9 $8 '' -1
StrCmp $R9 ' ' 0 +3
StrCpy $8 $8 -1
goto -3
StrCpy $R9 $1 2
StrCpy $1 $1 '' $9

StrCmp $R9 'M=' 0 FileFunc_GetSize_size
StrCpy $4 $8
goto FileFunc_GetSize_option

FileFunc_GetSize_size:
StrCmp $R9 'S=' 0 FileFunc_GetSize_gotosubdir
StrCpy $6 $8
goto FileFunc_GetSize_option

FileFunc_GetSize_gotosubdir:
StrCmp $R9 'G=' 0 FileFunc_GetSize_error
StrCpy $7 $8
StrCmp $7 '' +3
StrCmp $7 '1' +2
StrCmp $7 '0' 0 FileFunc_GetSize_error
goto FileFunc_GetSize_option

FileFunc_GetSize_sizeset:
StrCmp $6 '' FileFunc_GetSize_default
StrCpy $9 0
StrCpy $R9 $6 1 $9
StrCmp $R9 '' +4
StrCmp $R9 ':' +3
IntOp $9 $9 + 1
goto -4
StrCpy $5 $6 $9
IntOp $9 $9 + 1
StrCpy $1 $6 1 -1
StrCpy $6 $6 -1 $9
StrCmp $5 '' +2
IntOp $5 $5 + 0
StrCmp $6 '' +2
IntOp $6 $6 + 0

StrCmp $1 'B' 0 +4
StrCpy $1 1
StrCpy $2 bytes
goto FileFunc_GetSize_default
StrCmp $1 'K' 0 +4
StrCpy $1 1024
StrCpy $2 Kb
goto FileFunc_GetSize_default
StrCmp $1 'M' 0 +4
StrCpy $1 1048576
StrCpy $2 Mb
goto FileFunc_GetSize_default
StrCmp $1 'G' 0 FileFunc_GetSize_error
StrCpy $1 1073741824
StrCpy $2 Gb

FileFunc_GetSize_default:
StrCmp $4 '' 0 +2
StrCpy $4 '*.*'
StrCmp $7 '' 0 +2
StrCpy $7 '1'

StrCpy $8 1
Push $0
SetDetailsPrint textonly

FileFunc_GetSize_nextdir:
IntOp $8 $8 - 1
Pop $R8
FindFirst $0 $R7 '$R8\$4'
IfErrors FileFunc_GetSize_show
StrCmp $R7 '.' 0 FileFunc_GetSize_dir
FindNext $0 $R7
StrCmp $R7 '..' 0 FileFunc_GetSize_dir
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_dir
FindClose $0
goto FileFunc_GetSize_show

FileFunc_GetSize_dir:
IfFileExists '$R8\$R7\*.*' 0 FileFunc_GetSize_file
IntOp $R5 $R5 + 1
goto FileFunc_GetSize_findnext

FileFunc_GetSize_file:
StrCpy $R6 0
StrCmp $5$6 '' 0 +3
IntOp $R4 $R4 + 1
goto FileFunc_GetSize_findnext
StrCmp $R1 '' FileFunc_GetSize_fileopen
StrCpy $R0 0
System::Call 'kernel32::GetFileAttributes(t "$R8\$R7")i .R2'
StrCmp $R2 -1 FileFunc_GetSize_fileopen
IntOp $R0 $R2 & 0x0800 ; compressed
IntCmp $R0 0 0 0 FileFunc_GetSize_GetCompressed
IntOp $R0 $R2 & 0x0200 ; sparse file
IntCmp $R0 0 FileFunc_GetSize_fileopen
FileFunc_GetSize_GetCompressed:
System::Call 'kernel32::GetCompressedFileSize(t "$R8\$R7", i)i .R6'
IntCmp $R6 4096 +2 0 +2
StrCpy $R6 4096
IntOp $3 $3 + 1 ; location contains compressed or sparse files
goto FileFunc_GetSize_fileclose
FileFunc_GetSize_fileopen:
FileOpen $9 '$R8\$R7' r
IfErrors +3
FileSeek $9 0 END $R6
FileClose $9
FileFunc_GetSize_fileclose:
StrCmp $5 '' +2
IntCmp $R6 $5 0 FileFunc_GetSize_findnext
StrCmp $6 '' +2
IntCmp $R6 $6 0 0 FileFunc_GetSize_findnext
IntOp $R4 $R4 + 1
StrCmp $R1 '' FileFunc_GetSize_file_add
StrCmp $R0 0 0 FileFunc_GetSize_file_add
StrCpy $R0 $R1
IntOp $R6 $R6 + $R0
IntOp $R1 $R6 % $R0
StrCmp $R1 0 0 +2
StrCpy $R1 $R0
IntOp $R2 $R0 - $R1
IntOp $R6 $R6 - $R0
IntOp $R6 $R6 + $R2
StrCpy $R1 $R0
FileFunc_GetSize_file_add:
System::Int64Op $R3 + $R6
Pop $R3

FileFunc_GetSize_findnext:
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_dir
FindClose $0

FileFunc_GetSize_show:
StrCmp $5$6 '' FileFunc_GetSize_nosize
System::Int64Op $R3 / $1
Pop $9
DetailPrint 'Size:$9 $2 Files:$R4 Folders:$R5'
goto FileFunc_GetSize_subdir
FileFunc_GetSize_nosize:
DetailPrint 'Files:$R4 Folders:$R5'

FileFunc_GetSize_subdir:
StrCmp $7 0 FileFunc_GetSize_preend
FindFirst $0 $R7 '$R8\*.*'
StrCmp $R7 '.' 0 FileFunc_GetSize_pushdir
FindNext $0 $R7
StrCmp $R7 '..' 0 FileFunc_GetSize_pushdir
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_pushdir
FindClose $0
StrCmp $8 0 FileFunc_GetSize_preend FileFunc_GetSize_nextdir

FileFunc_GetSize_pushdir:
IfFileExists '$R8\$R7\*.*' 0 +3
Push '$R8\$R7'
IntOp $8 $8 + 1
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_pushdir
FindClose $0
StrCmp $8 0 FileFunc_GetSize_preend FileFunc_GetSize_nextdir

FileFunc_GetSize_preend:
StrCmp $R3 '' FileFunc_GetSize_nosizeend
System::Int64Op $R3 / $1
Pop $R3
FileFunc_GetSize_nosizeend:
StrCpy $2 $R4
StrCpy $1 $R5
StrCpy $0 $R3
goto FileFunc_GetSize_noerror

FileFunc_GetSize_error:
SetErrors
StrCpy $0 ''
StrCpy $1 ''
StrCpy $2 ''
StrCpy $3 ''
goto FileFunc_GetSize_end

FileFunc_GetSize_noerror:
StrCmp $0 '' 0 +2
StrCpy $0 0
StrCmp $1 '' 0 +2
StrCpy $1 0
StrCmp $2 '' 0 +2
StrCpy $2 0
StrCmp $3 '' 0 +2
StrCpy $3 0

FileFunc_GetSize_end:
SetDetailsPrint both
Pop $R9
Pop $R8
Pop $R7
Pop $R6
Pop $R5
Pop $R4
Pop $R3
Pop $R2
Pop $R1
Pop $R0
Pop $9
Pop $8
Pop $7
Pop $6
Pop $5
Pop $4
Exch $3
Exch 3
Exch $2
Exch
Exch $1
Exch 2
Exch $0

!verbose pop
!macroend

; ---------------
; GetClusterSize

; Syntax: ${GetClusterSize} $inputpath $outputvariable
; Result: 512, 1024, ..., 4096, ..., 131072, ...

!define GetClusterSize `!insertmacro GetClusterSizeCall`
!define un.GetClusterSize `!insertmacro GetClusterSizeCall`

!macro GetClusterSize
!macroend

!macro un.GetClusterSize
!macroend

!macro GetClusterSize_
!verbose push
!verbose ${_FILEFUNC_VERBOSE}

Exch $0
Push $1
Push $2
System::Call 'kernel32::GetDiskFreeSpace(tr0,*i0r1,*i0r2,,)'
IntOp $0 $1 * $2
Pop $2
Pop $1
Exch $0

!verbose pop
!macroend

</highlight-nsis>
Credits:

GetSizeOnDisk has been altered slightly and renamed. The original macro is called GetSize. You will find it in the Users Manual under E.1.3.

=== Download (example) ===

This is the same as the example code above.

<attach>SODTool.zip</attach>

=== Download (utility) ===

This is a Modern UI2 version that displays selection windows and goes to an output page. Script file is included.

<attach>SOD II tool.zip</attach>

Both downloads are compiled in unicode, so SOD Tool can read Russian file names.

History:

Optional parameter for counting compressed/sparse files added. (Feb. 18, 2013)

Option to find without subdirectories '/G=0' switch was missing. (Well, not really missing.) Change to details view (string), showing 'compressed/sparse file(s)'. (Feb. 19, 2013)

Change to unicode, because ansi could not read Russian. (Feb. 20, 2013)

Stack operations cleaned up. The SOD II tool uploaded. (Feb. 22, 2013)

String formatting improvements, functions simplified (SOD II) and small revisions in macros header made. (Feb. 23, 2013)
[[Category:Code Examples]]

File:SODTool.zip

2013-02-23T23:39:08Z

Bnicer: uploaded a new version of "File:SODTool.zip": Small revisions in macros header made. Updated Feb. 23, 2013.

File attachment for Get size on disk code example. Includes icon, macros header file, nsissize executable, nsissize script. Created Feb. 15, 2013.

File:SOD II tool.zip

2013-02-23T23:37:46Z

Bnicer: uploaded a new version of "File:SOD II tool.zip": String formatting improvements, functions simplified and small revisions in macros header made. Updated Feb. 23, 2013.

Get size on disk

2013-02-22T16:48:54Z

Bnicer: Size On Disk (SOD) utility

{{PageAuthor|Bnicer}}
This example code shows you how to get the space used by directories and files.
<highlight-nsis>
; A utility for computing the NSIS (or NSIS Unicode) install folder size and the size of
; the uninstaller
; nsissize.nsi
; Compile, then run the .exe

Name "SOD Tool"
RequestExecutionLevel user
#RequestExecutionLevel admin ; More files may be found in system folders
!define LOCAL "" ; Path where local include files reside
OutFile "${LOCAL}nsissize.exe"
!include "${LOCAL}macros.nsh"
Icon "${LOCAL}arrows.ico"
ReserveFile "${NSISDIR}\Plugins\Math.dll" ; Doesn't seem to like "!include"
!include "LogicLib.nsh"
ShowInstDetails show

;--------------------------------

; Variables
Var NSIS
Var COMPRESSED
Var COMPRESSED_UN
Var BLOCK
Var FILES
Var FOLDERS
Var SIZE_B
Var SIZE_M
Var SOD_B
Var SOD_K
Var SOD_M
Var SIZE_UN_B
Var SIZE_UN_K
Var SOD_UN_B
Var SOD_UN_K

;--------------------------------

; Functions
Function Separator ; comma
Exch $R1 ; input string
Push $R2
Push $R3
Push $R4
Push $R5
StrCpy $R2 $R1
StrCpy $R5 "16" ; 1,000,000,000,000,000 limit
StrLen $R4 $R1
loop:
IntCmp $R5 3 endloop endloop 0
IntCmp $R4 $R5 0 +7 0
IntOp $R5 $R5 - 1
StrCpy $R2 $R2 -$R5
StrCpy $R3 $R1 "" -$R5
StrCpy $R2 "$R2,$R3"
IntOp $R5 $R5 - 2
Goto loop
IntOp $R5 $R5 - 3
Goto loop
endloop:
Pop $R5
Pop $R4
Pop $R3
Exch $R2
Pop $R1
Exch $R1 ; output string
FunctionEnd

;--------------------------------

; Main Section (nothing will be installed)
Section
; registry
ReadRegStr $NSIS HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS Unicode" "InstallLocation"
IfErrors 0 begin
ClearErrors
ReadRegStr $NSIS HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS ANSI" "InstallLocation"
IfErrors 0 begin
ClearErrors
ReadRegStr $NSIS HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS" "InstallLocation"
IfErrors 0 begin
ClearErrors
Goto done
begin:
IfFileExists "$NSIS" 0 done
${GetClusterSize} $BLOCK
; directory
${GetSizeOnDisk} "$NSIS" "/S=0B" "" $0 $1 $2 $3
StrCpy $SIZE_B $0
StrCpy $FILES $1
StrCpy $FOLDERS $2
Math::Script "r4 = ff($0 / 1024 / 1024.0, 16 +2)"
StrCpy $SIZE_M $4
${GetSizeOnDisk} "$NSIS" "/S=0B" "$BLOCK" $0 $1 $2 $3
StrCpy $SOD_B $0
StrCpy $COMPRESSED $3
Math::Script "r4 = ff($0 / 1024.0, 16 +0); r5 = ff(r4 / 1024.0, 16 +2)"
StrCpy $SOD_K $4
StrCpy $SOD_M $5
; uninstaller
IfFileExists "$NSIS\uninst-nsis.exe" 0 done
${GetSizeOnDisk} "$NSIS" "/M=uninst-nsis.exe /S=0B /G=0" "" $0 $1 $2 $3
StrCpy $SIZE_UN_B $0
Math::Script "r4 = ff($0 / 1024.0, 16 +1)"
StrCpy $SIZE_UN_K $4
${GetSizeOnDisk} "$NSIS" "/M=uninst-nsis.exe /S=0B /G=0" "$BLOCK" $0 $1 $2 $3
StrCpy $SOD_UN_B $0
${If} $3 > 0
StrCpy $COMPRESSED_UN " (compressed or sparse)"
${Else}
StrCpy $COMPRESSED_UN ""
${EndIf}
Math::Script "r4 = ff($0 / 1024.0, 16 +1)"
StrCpy $SOD_UN_K $4
; format
Push $SIZE_B
Call Separator
Pop $SIZE_B

Push $SOD_B
Call Separator
Pop $SOD_B

Push $SOD_K
Call Separator
Pop $SOD_K

Push $SIZE_UN_B
Call Separator
Pop $SIZE_UN_B

Push $SOD_UN_B
Call Separator
Pop $SOD_UN_B
; output
DetailPrint ""
DetailPrint "$NSIS"
DetailPrint "Size: $SIZE_M MB ($SIZE_B bytes)"
DetailPrint "SOD: $SOD_M MB ($SOD_B bytes)"
DetailPrint ""
DetailPrint "Uninstaller$COMPRESSED_UN"
DetailPrint "Size: $SIZE_UN_K KB ($SIZE_UN_B bytes)"
DetailPrint "SOD: $SOD_UN_K KB ($SOD_UN_B bytes)"
DetailPrint ""
DetailPrint "$FILES files | $FOLDERS folders | $SOD_K Kb | $COMPRESSED compressed/sparse file(s)"
DetailPrint ""
Goto completed
done:
DetailPrint "File not found."
completed:
SectionEnd

;--------------------------------
# EOF
</highlight-nsis>
You should copy the next code into a separate file: macros.nsh.
<highlight-nsis>
; Macros include (TN)
;--------------------------------
/*

FileFunction=[GetSizeOnDisk|GetClusterSize]

*/
;_____________________________________________________________________________
;
; Macros
;_____________________________________________________________________________
;
; Change log window verbosity (default: 3=no script)
;
; Example:
; !include "macros.nsh"
; !insertmacro GetSizeOnDisk
; ${FILEFUNC_VERBOSE} 4 # all verbosity
; !insertmacro GetClusterSize
; ${FILEFUNC_VERBOSE} 3 # no script

!include Util.nsh ; for "CallArtificialFunction"

!verbose push
!verbose 3
!ifndef _FILEFUNC_VERBOSE
!define _FILEFUNC_VERBOSE 3
!endif
!verbose ${_FILEFUNC_VERBOSE}
!define FILEFUNC_VERBOSE `!insertmacro FILEFUNC_VERBOSE`
!verbose pop

!macro FILEFUNC_VERBOSE _VERBOSE
!verbose push
!verbose 3
!undef _FILEFUNC_VERBOSE
!define _FILEFUNC_VERBOSE ${_VERBOSE}
!verbose pop
!macroend

!macro GetSizeOnDiskCall _PATH _OPTIONS _FILESYSTEM _RESULT1 _RESULT2 _RESULT3 _RESULT4
!verbose push
!verbose ${_FILEFUNC_VERBOSE}
Push `${_PATH}`
Push `${_OPTIONS}`
Push `${_FILESYSTEM}` ; volume block size
${CallArtificialFunction} GetSizeOnDisk_
Pop ${_RESULT1}
Pop ${_RESULT2}
Pop ${_RESULT3}
Pop ${_RESULT4}
!verbose pop
!macroend

!macro GetClusterSizeCall _RESULT
!verbose push
!verbose ${_FILEFUNC_VERBOSE}
${CallArtificialFunction} GetClusterSize_
Pop ${_RESULT}
!verbose pop
!macroend

; ---------------
; GetSizeOnDisk (modified "GetSize" - FileFunc.nsh - KiCHiK - Function "FindFiles")

!define GetSizeOnDisk `!insertmacro GetSizeOnDiskCall`
!define un.GetSizeOnDisk `!insertmacro GetSizeOnDiskCall`

!macro GetSizeOnDisk
!macroend

!macro un.GetSizeOnDisk
!macroend

; Usage: similar to "GetSize"

; For documentation, see the NSIS user manual: E.1.3 GetSize
; Four (not three) values are returned

; $var1 ; Result1: Size/Size on disk
; $var2 ; Result2: Sum of files
; $var3 ; Result3: Sum of directories
; $var4 ; Result4: Sum of compressed/sparse files

; Example: ${GetSizeOnDisk} "$INSTDIR" "/S=0K" "4096" $0 $1 $2 $3
; DetailPrint "$1 files | $2 folders | $0 Kb | $3 compressed or sparse file(s)"

; Specifying 4096 (e.g. NTFS block size) toggles the result
; Output is size on disk, if used, or size, if left empty ""
; and $var4 (compressed/sparse files) returns 0

!macro GetSizeOnDisk_
!verbose push
!verbose ${_FILEFUNC_VERBOSE}

; replace
Exch $2
Exch 2
Exch $0
Exch
Exch $1
; end replace
Push $3
Push $4
Push $5
Push $6
Push $7
Push $8
Push $9
; insert code
Push $R0
Push $R1
Push $R2
StrCpy $R1 $2
; end insert
Push $R3
Push $R4
Push $R5
Push $R6
Push $R7
Push $R8
Push $R9
ClearErrors

StrCpy $R9 $0 1 -1
StrCmp $R9 '\' 0 +3
StrCpy $0 $0 -1
goto -3
IfFileExists '$0\*.*' 0 FileFunc_GetSize_error

; replace
StrCpy $3 0
; end replace
StrCpy $4 ''
StrCpy $5 ''
StrCpy $6 ''
StrCpy $8 0
StrCpy $R3 ''
StrCpy $R4 ''
StrCpy $R5 ''

FileFunc_GetSize_option:
StrCpy $R9 $1 1
StrCpy $1 $1 '' 1
StrCmp $R9 ' ' -2
StrCmp $R9 '' FileFunc_GetSize_sizeset
StrCmp $R9 '/' 0 -4

StrCpy $9 -1
IntOp $9 $9 + 1
StrCpy $R9 $1 1 $9
StrCmp $R9 '' +2
StrCmp $R9 '/' 0 -3
StrCpy $8 $1 $9
StrCpy $8 $8 '' 2
StrCpy $R9 $8 '' -1
StrCmp $R9 ' ' 0 +3
StrCpy $8 $8 -1
goto -3
StrCpy $R9 $1 2
StrCpy $1 $1 '' $9

StrCmp $R9 'M=' 0 FileFunc_GetSize_size
StrCpy $4 $8
goto FileFunc_GetSize_option

FileFunc_GetSize_size:
StrCmp $R9 'S=' 0 FileFunc_GetSize_gotosubdir
StrCpy $6 $8
goto FileFunc_GetSize_option

FileFunc_GetSize_gotosubdir:
StrCmp $R9 'G=' 0 FileFunc_GetSize_error
StrCpy $7 $8
StrCmp $7 '' +3
StrCmp $7 '1' +2
StrCmp $7 '0' 0 FileFunc_GetSize_error
goto FileFunc_GetSize_option

FileFunc_GetSize_sizeset:
StrCmp $6 '' FileFunc_GetSize_default
StrCpy $9 0
StrCpy $R9 $6 1 $9
StrCmp $R9 '' +4
StrCmp $R9 ':' +3
IntOp $9 $9 + 1
goto -4
StrCpy $5 $6 $9
IntOp $9 $9 + 1
StrCpy $1 $6 1 -1
StrCpy $6 $6 -1 $9
StrCmp $5 '' +2
IntOp $5 $5 + 0
StrCmp $6 '' +2
IntOp $6 $6 + 0

StrCmp $1 'B' 0 +4
StrCpy $1 1
StrCpy $2 bytes
goto FileFunc_GetSize_default
StrCmp $1 'K' 0 +4
StrCpy $1 1024
StrCpy $2 Kb
goto FileFunc_GetSize_default
StrCmp $1 'M' 0 +4
StrCpy $1 1048576
StrCpy $2 Mb
goto FileFunc_GetSize_default
StrCmp $1 'G' 0 FileFunc_GetSize_error
StrCpy $1 1073741824
StrCpy $2 Gb

FileFunc_GetSize_default:
StrCmp $4 '' 0 +2
StrCpy $4 '*.*'
StrCmp $7 '' 0 +2
StrCpy $7 '1'

StrCpy $8 1
Push $0
SetDetailsPrint textonly

FileFunc_GetSize_nextdir:
IntOp $8 $8 - 1
Pop $R8
FindFirst $0 $R7 '$R8\$4'
IfErrors FileFunc_GetSize_show
StrCmp $R7 '.' 0 FileFunc_GetSize_dir
FindNext $0 $R7
StrCmp $R7 '..' 0 FileFunc_GetSize_dir
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_dir
FindClose $0
goto FileFunc_GetSize_show

FileFunc_GetSize_dir:
IfFileExists '$R8\$R7\*.*' 0 FileFunc_GetSize_file
IntOp $R5 $R5 + 1
goto FileFunc_GetSize_findnext

FileFunc_GetSize_file:
StrCpy $R6 0
StrCmp $5$6 '' 0 +3
IntOp $R4 $R4 + 1
goto FileFunc_GetSize_findnext
; insert code
StrCmp $R1 "" FileFunc_GetSize_fileopen
StrCpy $R0 0
System::Call 'kernel32::GetFileAttributes(t "$R8\$R7")i .R2'
StrCmp $R2 -1 FileFunc_GetSize_fileopen
IntOp $R0 $R2 & 0x0800 ; compressed
IntCmp $R0 0 0 0 FileFunc_GetSize_GetCompressed
IntOp $R0 $R2 & 0x0200 ; sparse file
IntCmp $R0 0 FileFunc_GetSize_fileopen
FileFunc_GetSize_GetCompressed:
System::Call 'kernel32::GetCompressedFileSize(t "$R8\$R7", i)i .R6'
IntCmp $R6 4096 +2 0 +2
StrCpy $R6 4096
IntOp $3 $3 + 1 ; location contains compressed or sparse files
goto FileFunc_GetSize_fileclose
FileFunc_GetSize_fileopen:
; end insert
FileOpen $9 '$R8\$R7' r
IfErrors +3
FileSeek $9 0 END $R6
FileClose $9
; insert code
FileFunc_GetSize_fileclose:
; end insert
StrCmp $5 '' +2
IntCmp $R6 $5 0 FileFunc_GetSize_findnext
StrCmp $6 '' +2
IntCmp $R6 $6 0 0 FileFunc_GetSize_findnext
IntOp $R4 $R4 + 1
; insert code
StrCmp $R1 "" FileFunc_GetSize_file_add
StrCmp $R0 0 0 FileFunc_GetSize_file_add
StrCpy $R0 $R1
IntOp $R6 $R6 + $R0
IntOp $R1 $R6 % $R0
StrCmp $R1 0 0 +2
StrCpy $R1 $R0
IntOp $R2 $R0 - $R1
IntOp $R6 $R6 - $R0
IntOp $R6 $R6 + $R2
StrCpy $R1 $R0
FileFunc_GetSize_file_add:
; end insert
System::Int64Op $R3 + $R6
Pop $R3

FileFunc_GetSize_findnext:
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_dir
FindClose $0

FileFunc_GetSize_show:
StrCmp $5$6 '' FileFunc_GetSize_nosize
System::Int64Op $R3 / $1
Pop $9
DetailPrint 'Size:$9 $2 Files:$R4 Folders:$R5'
goto FileFunc_GetSize_subdir
FileFunc_GetSize_nosize:
DetailPrint 'Files:$R4 Folders:$R5'

FileFunc_GetSize_subdir:
StrCmp $7 0 FileFunc_GetSize_preend
FindFirst $0 $R7 '$R8\*.*'
StrCmp $R7 '.' 0 FileFunc_GetSize_pushdir
FindNext $0 $R7
StrCmp $R7 '..' 0 FileFunc_GetSize_pushdir
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_pushdir
FindClose $0
StrCmp $8 0 FileFunc_GetSize_preend FileFunc_GetSize_nextdir

FileFunc_GetSize_pushdir:
IfFileExists '$R8\$R7\*.*' 0 +3
Push '$R8\$R7'
IntOp $8 $8 + 1
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_pushdir
FindClose $0
StrCmp $8 0 FileFunc_GetSize_preend FileFunc_GetSize_nextdir

FileFunc_GetSize_preend:
StrCmp $R3 '' FileFunc_GetSize_nosizeend
System::Int64Op $R3 / $1
Pop $R3
FileFunc_GetSize_nosizeend:
StrCpy $2 $R4
StrCpy $1 $R5
StrCpy $0 $R3
goto FileFunc_GetSize_end

FileFunc_GetSize_error:
SetErrors
StrCpy $0 ''
StrCpy $1 ''
StrCpy $2 ''
; insert code
StrCpy $3 ''
; end insert

FileFunc_GetSize_end:
SetDetailsPrint both
Pop $R9
Pop $R8
Pop $R7
Pop $R6
Pop $R5
Pop $R4
Pop $R3
; insert code
Pop $R2
Pop $R1
Pop $R0
; end insert
Pop $9
Pop $8
Pop $7
Pop $6
Pop $5
Pop $4
; replace
Exch $3
Exch 3
; end replace
Exch $2
Exch
Exch $1
Exch 2
Exch $0

!verbose pop
!macroend

; ---------------
; GetClusterSize

!define GetClusterSize `!insertmacro GetClusterSizeCall`
!define un.GetClusterSize `!insertmacro GetClusterSizeCall`

!macro GetClusterSize
!macroend

!macro un.GetClusterSize
!macroend

!macro GetClusterSize_
!verbose push
!verbose ${_FILEFUNC_VERBOSE}

Push $0
Push $1
Push $2
System::Call 'kernel32::GetDiskFreeSpace(i0,*i0r0,*i0r1,*i0r2,*i)'
IntOp $0 $0 * $1
Pop $2
Pop $1
Exch $0

!verbose pop
!macroend

</highlight-nsis>
Credits:

GetSizeOnDisk has been altered slightly and renamed. The original macro is called GetSize. You will find it in the Users Manual under E.1.3.

=== Download (example) ===

This is the same as the example code above.

<attach>SODTool.zip</attach>

=== Download (utility) ===

This is a Modern UI2 version that displays selection windows and goes to an output page. Script file is included.

<attach>SOD II tool.zip</attach>

Both downloads are compiled in unicode, so SOD Tool can read Russian file names.

History:

Optional parameter for counting compressed/sparse files added. (Feb. 18, 2013)

Option to find without subdirectories '/G=0' switch was missing. (Well, not really missing.) Change to details view (string), showing 'compressed/sparse file(s)'. (Feb. 19, 2013)

Change to unicode, because ansi could not read Russian. (Feb. 20, 2013)

Stack operations cleaned up. The SOD II tool uploaded. (Feb. 22, 2013)
[[Category:Code Examples]]

2013-02-17T13:24:05Z

Bnicer: uploaded a new version of "File:SODTool.zip": Unnecessary Wow6432Node registry searches taken out. Updated 17. Feb. 2013

File attachment for Get size on disk code example. Includes icon, macros header file, nsissize executable, nsissize script. Created Feb. 15, 2013.

2013-02-12T09:46:30Z

Bnicer: Size On Disk (SOD) utility to get the space used by directories and files

Get size on disk

2013-02-12T09:39:00Z

Bnicer: A Size On Disk (SOD) utilty which uses a macro to get the space used by directories and files

Get Size On Disk

This example code shows you how to get the space used by directories and files.
<highlight-nsis>
; A utility for computing the NSIS (or NSIS Unicode) install folder size and the size of
; the uninstaller
; nsissize.nsi
; Compile & run the .exe

Name "SOD Tool"
RequestExecutionLevel user
!define LOCAL "" ; Path where local include files reside
OutFile "${LOCAL}nsissize.exe"
!include "${LOCAL}macros.nsh"
ReserveFile "${NSISDIR}\Plugins\Math.dll"
#Icon "${LOCAL}arrows.ico"
ShowInstDetails show

; Variables
Var NSIS
Var ZIP
Var ZIP_UN
Var COUNT
Var BLOCK
Var FILES
Var FOLDERS
Var SIZE_B
Var SIZE_M
Var SOD_B
Var SOD_K
Var SOD_M
Var SIZE_UN_B
Var SIZE_UN_K
Var SOD_UN_B
Var SOD_UN_K

Function Separator ; comma
StrCpy $R2 $R1
StrCpy $COUNT "16" ; 1,000,000,000,000,000 limit
StrLen $R4 $R1
loop:
IntCmp $COUNT 3 endloop endloop 0
IntCmp $R4 $COUNT 0 +7 0
IntOp $COUNT $COUNT - 1
StrCpy $R2 $R2 -$COUNT
StrCpy $R3 $R1 "" -$COUNT
StrCpy $R2 "$R2,$R3"
IntOp $COUNT $COUNT - 2
Goto loop
IntOp $COUNT $COUNT - 3
Goto loop
endloop:
FunctionEnd

Section
; root
ReadRegStr $NSIS HKLM "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS Unicode" "InstallLocation"
IfErrors 0 begin
ClearErrors
ReadRegStr $NSIS HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS Unicode" "InstallLocation"
IfErrors 0 begin
ClearErrors
ReadRegStr $NSIS HKLM "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS ANSI" "InstallLocation"
IfErrors 0 begin
ClearErrors
ReadRegStr $NSIS HKLM "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS" "InstallLocation"
IfErrors 0 begin
ClearErrors
ReadRegStr $NSIS HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS ANSI" "InstallLocation"
IfErrors 0 begin
ClearErrors
ReadRegStr $NSIS HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS" "InstallLocation"
IfErrors 0 begin
ClearErrors
Goto done
begin:
IfFileExists "$NSIS" 0 done
${GetFileAttributes} "$NSIS" "COMPRESSED" $ZIP
${GetClusterSize} $BLOCK
${GetSizeOnDisk} "$NSIS" "/S=0B" "" $0 $1 $2
Math::Script "r3 = ff($0 / 1024 / 1024.0, 16 +2"
StrCpy $SIZE_B $0
StrCpy $FILES $1
StrCpy $FOLDERS $2
StrCpy $SIZE_M $3
${GetSizeOnDisk} "$NSIS" "/S=0B" "$BLOCK" $0 $1 $2
Math::Script "r4 = ff($0 / 1024.0, 16 +0); r5 = ff(r4 / 1024.0, 16 +2)"
StrCpy $SOD_B $0
StrCpy $SOD_K $4
StrCpy $SOD_M $5
; uninstaller
IfFileExists "$NSIS\uninst-nsis.exe" 0 done
${GetFileAttributes} "$NSIS\uninst-nsis.exe" "COMPRESSED" $ZIP_UN
${GetSizeOnDisk} "$NSIS" "/M=uninst-nsis.exe /S=0B" "" $0 $1 $2
Math::Script "r6 = ff($0 / 1024.0, 16 +1); \
a = $0; b = $BLOCK; c = a % b; #[c == 0, c = $BLOCK]; r7 = (b - c + a); \
r8 = ff(r7 / 1024.0, 16 +1)"
StrCpy $SIZE_UN_B $0
StrCpy $SIZE_UN_K $6
StrCpy $SOD_UN_B $7
StrCpy $SOD_UN_K $8
; format
StrCpy $R1 $SIZE_B
Call Separator
StrCpy $SIZE_B $R2

StrCpy $R1 $SOD_B
Call Separator
StrCpy $SOD_B $R2

StrCpy $R1 $SOD_K
Call Separator
StrCpy $SOD_K $R2

StrCpy $R1 $SIZE_UN_B
Call Separator
StrCpy $SIZE_UN_B $R2
StrCpy $R1 $SOD_UN_B
Call Separator
StrCpy $SOD_UN_B $R2
; output
; note: with compression SOD lines are incorrect
DetailPrint ""
DetailPrint "$NSIS"
DetailPrint "Size: $SIZE_M MB ($SIZE_B bytes)"
StrCmp $ZIP "1" +3
StrCmp $ZIP_UN "1" +2
DetailPrint "SOD: $SOD_M MB ($SOD_B bytes)"
DetailPrint ""
DetailPrint "Uninstaller"
DetailPrint "Size: $SIZE_UN_K KB ($SIZE_UN_B bytes)"
StrCmp $ZIP "1" +3
StrCmp $ZIP_UN "1" +2
DetailPrint "SOD: $SOD_UN_K KB ($SOD_UN_B bytes)"
DetailPrint ""
DetailPrint "$FILES files $FOLDERS folders $SOD_K Kb"
DetailPrint ""
Goto completed
done:
DetailPrint "File not found."
completed:
SectionEnd

;--------------------------------
# EOF
</highlight-nsis>
You should copy the next code into a separate file: macros.nsh.
<highlight-nsis>
; Macros include file
;--------------------------------
/*

FileFunction=[GetSizeOnDisk|GetClusterSize|GetFileAttributes]

*/
;_____________________________________________________________________________
;
; Macros
;_____________________________________________________________________________
;
; Change log window verbosity (default: 3=no script)
;
; Example:
; !include "sizemacros.nsh"
; !insertmacro GetSizeOnDisk
; ${FILEFUNC_VERBOSE} 4 # all verbosity
; !insertmacro GetClusterSize
; ${FILEFUNC_VERBOSE} 3 # no script

!include Util.nsh ; for "CallArtificialFunction"

!verbose push
!verbose 3
!ifndef _FILEFUNC_VERBOSE
!define _FILEFUNC_VERBOSE 3
!endif
!verbose ${_FILEFUNC_VERBOSE}
!define FILEFUNC_VERBOSE `!insertmacro FILEFUNC_VERBOSE`
!verbose pop

!macro FILEFUNC_VERBOSE _VERBOSE
!verbose push
!verbose 3
!undef _FILEFUNC_VERBOSE
!define _FILEFUNC_VERBOSE ${_VERBOSE}
!verbose pop
!macroend

!macro GetSizeOnDiskCall _PATH _OPTIONS _FILESYSTEM _RESULT1 _RESULT2 _RESULT3
!verbose push
!verbose ${_FILEFUNC_VERBOSE}
Push `${_PATH}`
Push `${_OPTIONS}`
Push `${_FILESYSTEM}` ; block size
${CallArtificialFunction} GetSizeOnDisk_
Pop ${_RESULT1}
Pop ${_RESULT2}
Pop ${_RESULT3}
!verbose pop
!macroend

!macro GetClusterSizeCall _RESULT
!verbose push
!verbose ${_FILEFUNC_VERBOSE}
${CallArtificialFunction} GetClusterSize_
Pop ${_RESULT}
!verbose pop
!macroend

!macro GetFileAttributesCall _PATH _ATTR _RESULT
!verbose push
!verbose ${_FILEFUNC_VERBOSE}
Push `${_PATH}`
Push `${_ATTR}`
${CallArtificialFunction} GetFileAttributes_
Pop ${_RESULT}
!verbose pop
!macroend

; ---------------
; GetSizeOnDisk (modified "GetSize" - FileFunc.nsh - KiCHiK - Function "FindFiles")

!define GetSizeOnDisk `!insertmacro GetSizeOnDiskCall`
!define un.GetSizeOnDisk `!insertmacro GetSizeOnDiskCall`

!macro GetSizeOnDisk
!macroend

!macro un.GetSizeOnDisk
!macroend

; Usage: similar to "GetSize"

; For documentation, see the NSIS user manual: E.1.3 GetSize
; Three values are returned

; $var1 ; Result1: Size/Size on disk
; $var2 ; Result2: Sum of files
; $var3 ; Result3: Sum of directories

; Example: ${GetSizeOnDisk} "$INSTDIR" "/S=0K" "4096" $0 $1 $2

; Specifying 4096 (logical size) toggles the result
; Output is size on disk, if used, or size in bytes, if left empty ""

!macro GetSizeOnDisk_
!verbose push
!verbose ${_FILEFUNC_VERBOSE}

; replace
Exch $R1
Exch
Exch $1
Exch 2
; end replace
Exch $0
Exch
Push $2
Push $3
Push $4
Push $5
Push $6
Push $7
Push $8
Push $9
; insert code
Push $R2
; end insert
Push $R3
Push $R4
Push $R5
Push $R6
Push $R7
Push $R8
Push $R9
ClearErrors

StrCpy $R9 $0 1 -1
StrCmp $R9 '\' 0 +3
StrCpy $0 $0 -1
goto -3
IfFileExists '$0\*.*' 0 FileFunc_GetSize_error

StrCpy $3 ''
StrCpy $4 ''
StrCpy $5 ''
StrCpy $6 ''
StrCpy $8 0
StrCpy $R3 ''
StrCpy $R4 ''
StrCpy $R5 ''

FileFunc_GetSize_option:
StrCpy $R9 $1 1
StrCpy $1 $1 '' 1
StrCmp $R9 ' ' -2
StrCmp $R9 '' FileFunc_GetSize_sizeset
StrCmp $R9 '/' 0 -4

StrCpy $9 -1
IntOp $9 $9 + 1
StrCpy $R9 $1 1 $9
StrCmp $R9 '' +2
StrCmp $R9 '/' 0 -3
StrCpy $8 $1 $9
StrCpy $8 $8 '' 2
StrCpy $R9 $8 '' -1
StrCmp $R9 ' ' 0 +3
StrCpy $8 $8 -1
goto -3
StrCpy $R9 $1 2
StrCpy $1 $1 '' $9

StrCmp $R9 'M=' 0 FileFunc_GetSize_size
StrCpy $4 $8
goto FileFunc_GetSize_option

FileFunc_GetSize_size:
StrCmp $R9 'S=' 0 FileFunc_GetSize_gotosubdir
StrCpy $6 $8
goto FileFunc_GetSize_option

FileFunc_GetSize_gotosubdir:
StrCmp $R9 'G=' 0 FileFunc_GetSize_error
StrCpy $7 $8
StrCmp $7 '' +3
StrCmp $7 '1' +2
StrCmp $7 '0' 0 FileFunc_GetSize_error
goto FileFunc_GetSize_option

FileFunc_GetSize_sizeset:
StrCmp $6 '' FileFunc_GetSize_default
StrCpy $9 0
StrCpy $R9 $6 1 $9
StrCmp $R9 '' +4
StrCmp $R9 ':' +3
IntOp $9 $9 + 1
goto -4
StrCpy $5 $6 $9
IntOp $9 $9 + 1
StrCpy $1 $6 1 -1
StrCpy $6 $6 -1 $9
StrCmp $5 '' +2
IntOp $5 $5 + 0
StrCmp $6 '' +2
IntOp $6 $6 + 0

StrCmp $1 'B' 0 +4
StrCpy $1 1
StrCpy $2 bytes
goto FileFunc_GetSize_default
StrCmp $1 'K' 0 +4
StrCpy $1 1024
StrCpy $2 Kb
goto FileFunc_GetSize_default
StrCmp $1 'M' 0 +4
StrCpy $1 1048576
StrCpy $2 Mb
goto FileFunc_GetSize_default
StrCmp $1 'G' 0 FileFunc_GetSize_error
StrCpy $1 1073741824
StrCpy $2 Gb

FileFunc_GetSize_default:
StrCmp $4 '' 0 +2
StrCpy $4 '*.*'
StrCmp $7 '' 0 +2
StrCpy $7 '1'

StrCpy $8 1
Push $0
SetDetailsPrint textonly

FileFunc_GetSize_nextdir:
IntOp $8 $8 - 1
Pop $R8
FindFirst $0 $R7 '$R8\$4'
IfErrors FileFunc_GetSize_show
StrCmp $R7 '.' 0 FileFunc_GetSize_dir
FindNext $0 $R7
StrCmp $R7 '..' 0 FileFunc_GetSize_dir
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_dir
FindClose $0
goto FileFunc_GetSize_show

FileFunc_GetSize_dir:
IfFileExists '$R8\$R7\*.*' 0 FileFunc_GetSize_file
IntOp $R5 $R5 + 1
goto FileFunc_GetSize_findnext

FileFunc_GetSize_file:
StrCpy $R6 0
StrCmp $5$6 '' 0 +3
IntOp $R4 $R4 + 1
goto FileFunc_GetSize_findnext
FileOpen $9 '$R8\$R7' r
IfErrors +3
FileSeek $9 0 END $R6
FileClose $9
StrCmp $5 '' +2
IntCmp $R6 $5 0 FileFunc_GetSize_findnext
StrCmp $6 '' +2
IntCmp $R6 $6 0 0 FileFunc_GetSize_findnext
IntOp $R4 $R4 + 1
; insert code
StrCmp $R1 "" +10 0
StrCpy $R0 $R1
IntOp $R6 $R6 + $R0
IntOp $R1 $R6 % $R0
StrCmp $R1 0 0 +2
StrCpy $R1 $R0
IntOp $R2 $R0 - $R1
IntOp $R6 $R6 - $R0
IntOp $R6 $R6 + $R2
StrCpy $R1 $R0
; end insert
System::Int64Op $R3 + $R6
Pop $R3

FileFunc_GetSize_findnext:
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_dir
FindClose $0

FileFunc_GetSize_show:
StrCmp $5$6 '' FileFunc_GetSize_nosize
System::Int64Op $R3 / $1
Pop $9
DetailPrint 'Size:$9 $2 Files:$R4 Folders:$R5'
goto FileFunc_GetSize_subdir
FileFunc_GetSize_nosize:
DetailPrint 'Files:$R4 Folders:$R5'

FileFunc_GetSize_subdir:
StrCmp $7 0 FileFunc_GetSize_preend
FindFirst $0 $R7 '$R8\*.*'
StrCmp $R7 '.' 0 FileFunc_GetSize_pushdir
FindNext $0 $R7
StrCmp $R7 '..' 0 FileFunc_GetSize_pushdir
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_pushdir
FindClose $0
StrCmp $8 0 FileFunc_GetSize_preend FileFunc_GetSize_nextdir

FileFunc_GetSize_pushdir:
IfFileExists '$R8\$R7\*.*' 0 +3
Push '$R8\$R7'
IntOp $8 $8 + 1
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_pushdir
FindClose $0
StrCmp $8 0 FileFunc_GetSize_preend FileFunc_GetSize_nextdir

FileFunc_GetSize_preend:
StrCmp $R3 '' FileFunc_GetSize_nosizeend
System::Int64Op $R3 / $1
Pop $R3
FileFunc_GetSize_nosizeend:
StrCpy $2 $R4
StrCpy $1 $R5
StrCpy $0 $R3
goto FileFunc_GetSize_end

FileFunc_GetSize_error:
SetErrors
StrCpy $0 ''
StrCpy $1 ''
StrCpy $2 ''

FileFunc_GetSize_end:
SetDetailsPrint both
Pop $R9
Pop $R8
Pop $R7
Pop $R6
Pop $R5
Pop $R4
Pop $R3
; insert code
Pop $R2
; end insert
Pop $9
Pop $8
Pop $7
Pop $6
Pop $5
Pop $4
Pop $3
Exch $2
Exch
Exch $1
Exch 2
Exch $0

!verbose pop
!macroend

; ---------------
; GetFileAttributes (FileFunc.nsh)

!define GetFileAttributes `!insertmacro GetFileAttributesCall`
!define un.GetFileAttributes `!insertmacro GetFileAttributesCall`

!macro GetFileAttributes
!macroend

!macro un.GetFileAttributes
!macroend

!macro GetFileAttributes_
!verbose push
!verbose ${_FILEFUNC_VERBOSE}

Exch $1
Exch
Exch $0
Exch
Push $2
Push $3
Push $4
Push $5

System::Call 'kernel32::GetFileAttributes(t r0)i .r2'
StrCmp $2 -1 FileFunc_GetFileAttributes_error
StrCpy $3 ''

IntOp $0 $2 & 0x4000
IntCmp $0 0 +2
StrCpy $3 'ENCRYPTED|'

IntOp $0 $2 & 0x2000
IntCmp $0 0 +2
StrCpy $3 'NOT_CONTENT_INDEXED|$3'

IntOp $0 $2 & 0x1000
IntCmp $0 0 +2
StrCpy $3 'OFFLINE|$3'

IntOp $0 $2 & 0x0800
IntCmp $0 0 +2
StrCpy $3 'COMPRESSED|$3'

IntOp $0 $2 & 0x0400
IntCmp $0 0 +2
StrCpy $3 'REPARSE_POINT|$3'

IntOp $0 $2 & 0x0200
IntCmp $0 0 +2
StrCpy $3 'SPARSE_FILE|$3'

IntOp $0 $2 & 0x0100
IntCmp $0 0 +2
StrCpy $3 'TEMPORARY|$3'

IntOp $0 $2 & 0x0080
IntCmp $0 0 +2
StrCpy $3 'NORMAL|$3'

IntOp $0 $2 & 0x0040
IntCmp $0 0 +2
StrCpy $3 'DEVICE|$3'

IntOp $0 $2 & 0x0020
IntCmp $0 0 +2
StrCpy $3 'ARCHIVE|$3'

IntOp $0 $2 & 0x0010
IntCmp $0 0 +2
StrCpy $3 'DIRECTORY|$3'

IntOp $0 $2 & 0x0004
IntCmp $0 0 +2
StrCpy $3 'SYSTEM|$3'

IntOp $0 $2 & 0x0002
IntCmp $0 0 +2
StrCpy $3 'HIDDEN|$3'

IntOp $0 $2 & 0x0001
IntCmp $0 0 +2
StrCpy $3 'READONLY|$3'

StrCpy $0 $3 -1
StrCmp $1 '' FileFunc_GetFileAttributes_end
StrCmp $1 'ALL' FileFunc_GetFileAttributes_end

FileFunc_GetFileAttributes_attrcmp:
StrCpy $5 0
IntOp $5 $5 + 1
StrCpy $4 $1 1 $5
StrCmp $4 '' +2
StrCmp $4 '|' 0 -3
StrCpy $2 $1 $5
IntOp $5 $5 + 1
StrCpy $1 $1 '' $5
StrLen $3 $2
StrCpy $5 -1
IntOp $5 $5 + 1
StrCpy $4 $0 $3 $5
StrCmp $4 '' FileFunc_GetFileAttributes_notfound
StrCmp $4 $2 0 -3
StrCmp $1 '' 0 FileFunc_GetFileAttributes_attrcmp
StrCpy $0 1
goto FileFunc_GetFileAttributes_end

FileFunc_GetFileAttributes_notfound:
StrCpy $0 0
goto FileFunc_GetFileAttributes_end

FileFunc_GetFileAttributes_error:
SetErrors
StrCpy $0 ''

FileFunc_GetFileAttributes_end:
Pop $5
Pop $4
Pop $3
Pop $2
Pop $1
Exch $0

!verbose pop
!macroend

!define GetFileVersion `!insertmacro GetFileVersionCall`
!define un.GetFileVersion `!insertmacro GetFileVersionCall`

!macro GetFileVersion
!macroend

!macro un.GetFileVersion
!macroend

!macro GetFileVersion_
!verbose push
!verbose ${_FILEFUNC_VERBOSE}

Exch $0
Push $1
Push $2
Push $3
Push $4
Push $5
Push $6
ClearErrors

GetDllVersion '$0' $1 $2
IfErrors FileFunc_GetFileVersion_error
IntOp $3 $1 >> 16
IntOp $3 $3 & 0x0000FFFF
IntOp $4 $1 & 0x0000FFFF
IntOp $5 $2 >> 16
IntOp $5 $5 & 0x0000FFFF
IntOp $6 $2 & 0x0000FFFF
StrCpy $0 '$3.$4.$5.$6'
goto FileFunc_GetFileVersion_end

FileFunc_GetFileVersion_error:
SetErrors
StrCpy $0 ''

FileFunc_GetFileVersion_end:
Pop $6
Pop $5
Pop $4
Pop $3
Pop $2
Pop $1
Exch $0

!verbose pop
!macroend

; ---------------
; GetClusterSize

!define GetClusterSize `!insertmacro GetClusterSizeCall`
!define un.GetClusterSize `!insertmacro GetClusterSizeCall`

!macro GetClusterSize
!macroend

!macro un.GetClusterSize
!macroend

!macro GetClusterSize_
!verbose push
!verbose ${_FILEFUNC_VERBOSE}

System::Call 'kernel32::GetDiskFreeSpace(i0,*i0r0,*i0r1,*i0r2,*i)'
IntOp $0 $0 * $1
Push $0

!verbose pop
!macroend
</highlight-nsis>
Credits:

GetFileAttributes is borrowed from filefunc.nsh. GetSizeOnDisk has been altered slightly and renamed. The original macro is called GetSize. You will find it in the Users Manual under E.1.3.
[[Category:Code Examples]]

2013-02-08T05:47:27Z

Bnicer: Get Size On Disk function

Get Size On Disk

There are two types of sizes. The physical size of files in bytes vs. the logical size on disk used.
This NSIS example code shows you how to get both sizes all in one go.
<highlight-nsis>
; A utility for computing the NSIS (or NSIS Unicode) 32-bit install folder size and the
; size of the uninstaller
; nsissize.nsi
; Compile & run the .exe

; Note: where either the folder or the uninstaller have been compressed, size on disk
; results will not be shown, as they would be incorrect

Name "SOD Tool"
RequestExecutionLevel user
!define LOCAL "" ; Path where local include files reside
OutFile "${LOCAL}nsissize.exe"
!include "${LOCAL}macros.nsh"
ReserveFile "${NSISDIR}\Plugins\Math.dll"
#Icon "${LOCAL}arrows.ico"
ShowInstDetails show

; Variables
Var NSIS
Var ZIP
Var ZIP_UN
Var COUNT
Var BLOCK
Var FILES
Var FOLDERS
Var SIZE_B
Var SIZE_M
Var SOD_B
Var SOD_K
Var SOD_M
Var SIZE_UN_B
Var SIZE_UN_K
Var SOD_UN_B
Var SOD_UN_K

Function Separator ; comma
StrCpy $R2 $R1
StrCpy $COUNT "16" ; 1,000,000,000,000,000 limit
StrLen $R4 $R1
loop:
IntCmp $COUNT 3 endloop endloop 0
IntCmp $R4 $COUNT 0 +7 0
IntOp $COUNT $COUNT - 1
StrCpy $R2 $R2 -$COUNT
StrCpy $R3 $R1 "" -$COUNT
StrCpy $R2 "$R2,$R3"
IntOp $COUNT $COUNT - 2
Goto loop
IntOp $COUNT $COUNT - 3
Goto loop
endloop:
FunctionEnd

Section
; root
ReadRegStr $NSIS HKLM "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS Unicode" "InstallLocation"
IfErrors 0 begin
ClearErrors
ReadRegStr $NSIS HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS Unicode" "InstallLocation"
IfErrors 0 begin
ClearErrors
ReadRegStr $NSIS HKLM "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS ANSI" "InstallLocation"
IfErrors 0 begin
ClearErrors
ReadRegStr $NSIS HKLM "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS" "InstallLocation"
IfErrors 0 begin
ClearErrors
ReadRegStr $NSIS HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS ANSI" "InstallLocation"
IfErrors 0 begin
ClearErrors
ReadRegStr $NSIS HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\
NSIS" "InstallLocation"
IfErrors 0 begin
ClearErrors
Goto done
begin:
IfFileExists "$NSIS" 0 done
${GetFileAttributes} "$NSIS" "COMPRESSED" $ZIP
${GetClusterSize} $BLOCK
${GetSizeOnDisk} "$NSIS" "/S=0B" "" $0 $1 $2
Math::Script "r3 = ff($0 / 1024 / 1024.0, 16 +2"
StrCpy $SIZE_B $0
StrCpy $FILES $1
StrCpy $FOLDERS $2
StrCpy $SIZE_M $3
${GetSizeOnDisk} "$NSIS" "/S=0B" "$BLOCK" $0 $1 $2
Math::Script "r4 = ff($0 / 1024.0, 16 +0); r5 = ff(r4 / 1024.0, 16 +2)"
StrCpy $SOD_B $0
StrCpy $SOD_K $4
StrCpy $SOD_M $5
; uninstaller
IfFileExists "$NSIS\uninst-nsis.exe" 0 done
${GetFileAttributes} "$NSIS\uninst-nsis.exe" "COMPRESSED" $ZIP_UN
${GetSizeOnDisk} "$NSIS" "/M=uninst-nsis.exe /S=0B" "" $0 $1 $2
Math::Script "r6 = ff($0 / 1024.0, 16 +1); \
a = $0; b = $BLOCK; c = a % b; #[c == 0, c = $BLOCK]; r7 = (b - c + a); \
r8 = ff(r7 / 1024.0, 16 +1)"
StrCpy $SIZE_UN_B $0
StrCpy $SIZE_UN_K $6
StrCpy $SOD_UN_B $7
StrCpy $SOD_UN_K $8
; format
StrCpy $R1 $SIZE_B
Call Separator
StrCpy $SIZE_B $R2

StrCpy $R1 $SOD_B
Call Separator
StrCpy $SOD_B $R2

StrCpy $R1 $SOD_K
Call Separator
StrCpy $SOD_K $R2

StrCpy $R1 $SIZE_UN_B
Call Separator
StrCpy $SIZE_UN_B $R2
StrCpy $R1 $SOD_UN_B
Call Separator
StrCpy $SOD_UN_B $R2
; output
DetailPrint ""
DetailPrint "$NSIS"
DetailPrint "Size: $SIZE_M MB ($SIZE_B bytes)"
StrCmp $ZIP "1" +3
StrCmp $ZIP_UN "1" +2
DetailPrint "SOD: $SOD_M MB ($SOD_B bytes)"
DetailPrint ""
DetailPrint "Uninstaller"
DetailPrint "Size: $SIZE_UN_K KB ($SIZE_UN_B bytes)"
StrCmp $ZIP "1" +3
StrCmp $ZIP_UN "1" +2
DetailPrint "SOD: $SOD_UN_K KB ($SOD_UN_B bytes)"
DetailPrint ""
DetailPrint "$FILES files $FOLDERS folders $SOD_K Kb"
DetailPrint ""
Goto completed
done:
DetailPrint "File not found."
completed:
SectionEnd

;--------------------------------
# EOF
</highlight-nsis>
You should copy the next code into a separate file called macros.nsh.
<highlight-nsis>
; Macros include file
;--------------------------------
/*

FileFunction=[GetSizeOnDisk|GetClusterSize|GetFileAttributes]

*/
;_____________________________________________________________________________
;
; Macros
;_____________________________________________________________________________
;
; Change log window verbosity (default: 3=no script)
;
; Example:
; !include "sizemacros.nsh"
; !insertmacro GetSizeOnDisk
; ${FILEFUNC_VERBOSE} 4 # all verbosity
; !insertmacro GetClusterSize
; ${FILEFUNC_VERBOSE} 3 # no script

!include Util.nsh ; for "CallArtificialFunction"

!verbose push
!verbose 3
!ifndef _FILEFUNC_VERBOSE
!define _FILEFUNC_VERBOSE 3
!endif
!verbose ${_FILEFUNC_VERBOSE}
!define FILEFUNC_VERBOSE `!insertmacro FILEFUNC_VERBOSE`
!verbose pop

!macro FILEFUNC_VERBOSE _VERBOSE
!verbose push
!verbose 3
!undef _FILEFUNC_VERBOSE
!define _FILEFUNC_VERBOSE ${_VERBOSE}
!verbose pop
!macroend

!macro GetSizeOnDiskCall _PATH _OPTIONS _FILESYSTEM _RESULT1 _RESULT2 _RESULT3
!verbose push
!verbose ${_FILEFUNC_VERBOSE}
Push `${_PATH}`
Push `${_OPTIONS}`
Push `${_FILESYSTEM}` ; block size
${CallArtificialFunction} GetSizeOnDisk_
Pop ${_RESULT1}
Pop ${_RESULT2}
Pop ${_RESULT3}
!verbose pop
!macroend

!macro GetClusterSizeCall _RESULT
!verbose push
!verbose ${_FILEFUNC_VERBOSE}
${CallArtificialFunction} GetClusterSize_
Pop ${_RESULT}
!verbose pop
!macroend

!macro GetFileAttributesCall _PATH _ATTR _RESULT
!verbose push
!verbose ${_FILEFUNC_VERBOSE}
Push `${_PATH}`
Push `${_ATTR}`
${CallArtificialFunction} GetFileAttributes_
Pop ${_RESULT}
!verbose pop
!macroend

; ---------------
; GetSizeOnDisk (modified "GetSize" - FileFunc.nsh - KiCHiK - Function "FindFiles")

!define GetSizeOnDisk `!insertmacro GetSizeOnDiskCall`
!define un.GetSizeOnDisk `!insertmacro GetSizeOnDiskCall`

!macro GetSizeOnDisk
!macroend

!macro un.GetSizeOnDisk
!macroend

; Usage: similar to "GetSize"

; For documentation, see the NSIS user manual: E.1.3 GetSize
; Three values are returned

; $var1 ; Result1: Size/Size on disk
; $var2 ; Result2: Sum of files
; $var3 ; Result3: Sum of directories

; Example: ${GetSizeOnDisk} "$INSTDIR" "/S=0K" "4096" $0 $1 $2

; Specifying 4096 (logical size) toggles the result
; Output is size on disk (4KB clusters), if used, or size in bytes, if left empty ""
; Caution: All writable variables go on the stack; make sure you save them before

!macro GetSizeOnDisk_
!verbose push
!verbose ${_FILEFUNC_VERBOSE}

; replace
Exch $R1
Exch
Exch $1
Exch 2
; end replace
Exch $0
Exch
Push $2
Push $3
Push $4
Push $5
Push $6
Push $7
Push $8
Push $9
; insert code
Push $R2
; end insert
Push $R3
Push $R4
Push $R5
Push $R6
Push $R7
Push $R8
Push $R9
ClearErrors

StrCpy $R9 $0 1 -1
StrCmp $R9 '\' 0 +3
StrCpy $0 $0 -1
goto -3
IfFileExists '$0\*.*' 0 FileFunc_GetSize_error

StrCpy $3 ''
StrCpy $4 ''
StrCpy $5 ''
StrCpy $6 ''
StrCpy $8 0
StrCpy $R3 ''
StrCpy $R4 ''
StrCpy $R5 ''

FileFunc_GetSize_option:
StrCpy $R9 $1 1
StrCpy $1 $1 '' 1
StrCmp $R9 ' ' -2
StrCmp $R9 '' FileFunc_GetSize_sizeset
StrCmp $R9 '/' 0 -4

StrCpy $9 -1
IntOp $9 $9 + 1
StrCpy $R9 $1 1 $9
StrCmp $R9 '' +2
StrCmp $R9 '/' 0 -3
StrCpy $8 $1 $9
StrCpy $8 $8 '' 2
StrCpy $R9 $8 '' -1
StrCmp $R9 ' ' 0 +3
StrCpy $8 $8 -1
goto -3
StrCpy $R9 $1 2
StrCpy $1 $1 '' $9

StrCmp $R9 'M=' 0 FileFunc_GetSize_size
StrCpy $4 $8
goto FileFunc_GetSize_option

FileFunc_GetSize_size:
StrCmp $R9 'S=' 0 FileFunc_GetSize_gotosubdir
StrCpy $6 $8
goto FileFunc_GetSize_option

FileFunc_GetSize_gotosubdir:
StrCmp $R9 'G=' 0 FileFunc_GetSize_error
StrCpy $7 $8
StrCmp $7 '' +3
StrCmp $7 '1' +2
StrCmp $7 '0' 0 FileFunc_GetSize_error
goto FileFunc_GetSize_option

FileFunc_GetSize_sizeset:
StrCmp $6 '' FileFunc_GetSize_default
StrCpy $9 0
StrCpy $R9 $6 1 $9
StrCmp $R9 '' +4
StrCmp $R9 ':' +3
IntOp $9 $9 + 1
goto -4
StrCpy $5 $6 $9
IntOp $9 $9 + 1
StrCpy $1 $6 1 -1
StrCpy $6 $6 -1 $9
StrCmp $5 '' +2
IntOp $5 $5 + 0
StrCmp $6 '' +2
IntOp $6 $6 + 0

StrCmp $1 'B' 0 +4
StrCpy $1 1
StrCpy $2 bytes
goto FileFunc_GetSize_default
StrCmp $1 'K' 0 +4
StrCpy $1 1024
StrCpy $2 Kb
goto FileFunc_GetSize_default
StrCmp $1 'M' 0 +4
StrCpy $1 1048576
StrCpy $2 Mb
goto FileFunc_GetSize_default
StrCmp $1 'G' 0 FileFunc_GetSize_error
StrCpy $1 1073741824
StrCpy $2 Gb

FileFunc_GetSize_default:
StrCmp $4 '' 0 +2
StrCpy $4 '*.*'
StrCmp $7 '' 0 +2
StrCpy $7 '1'

StrCpy $8 1
Push $0
SetDetailsPrint textonly

FileFunc_GetSize_nextdir:
IntOp $8 $8 - 1
Pop $R8
FindFirst $0 $R7 '$R8\$4'
IfErrors FileFunc_GetSize_show
StrCmp $R7 '.' 0 FileFunc_GetSize_dir
FindNext $0 $R7
StrCmp $R7 '..' 0 FileFunc_GetSize_dir
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_dir
FindClose $0
goto FileFunc_GetSize_show

FileFunc_GetSize_dir:
IfFileExists '$R8\$R7\*.*' 0 FileFunc_GetSize_file
IntOp $R5 $R5 + 1
goto FileFunc_GetSize_findnext

FileFunc_GetSize_file:
StrCpy $R6 0
StrCmp $5$6 '' 0 +3
IntOp $R4 $R4 + 1
goto FileFunc_GetSize_findnext
FileOpen $9 '$R8\$R7' r
IfErrors +3
FileSeek $9 0 END $R6
FileClose $9
StrCmp $5 '' +2
IntCmp $R6 $5 0 FileFunc_GetSize_findnext
StrCmp $6 '' +2
IntCmp $R6 $6 0 0 FileFunc_GetSize_findnext
IntOp $R4 $R4 + 1
; insert code
StrCmp $R1 "" +10 0
StrCpy $R0 $R1
IntOp $R6 $R6 + $R0
IntOp $R1 $R6 % $R0
StrCmp $R1 0 0 +2
StrCpy $R1 $R0
IntOp $R2 $R0 - $R1
IntOp $R6 $R6 - $R0
IntOp $R6 $R6 + $R2
StrCpy $R1 $R0
; end insert
System::Int64Op $R3 + $R6
Pop $R3

FileFunc_GetSize_findnext:
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_dir
FindClose $0

FileFunc_GetSize_show:
StrCmp $5$6 '' FileFunc_GetSize_nosize
System::Int64Op $R3 / $1
Pop $9
DetailPrint 'Size:$9 $2 Files:$R4 Folders:$R5'
goto FileFunc_GetSize_subdir
FileFunc_GetSize_nosize:
DetailPrint 'Files:$R4 Folders:$R5'

FileFunc_GetSize_subdir:
StrCmp $7 0 FileFunc_GetSize_preend
FindFirst $0 $R7 '$R8\*.*'
StrCmp $R7 '.' 0 FileFunc_GetSize_pushdir
FindNext $0 $R7
StrCmp $R7 '..' 0 FileFunc_GetSize_pushdir
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_pushdir
FindClose $0
StrCmp $8 0 FileFunc_GetSize_preend FileFunc_GetSize_nextdir

FileFunc_GetSize_pushdir:
IfFileExists '$R8\$R7\*.*' 0 +3
Push '$R8\$R7'
IntOp $8 $8 + 1
FindNext $0 $R7
IfErrors 0 FileFunc_GetSize_pushdir
FindClose $0
StrCmp $8 0 FileFunc_GetSize_preend FileFunc_GetSize_nextdir

FileFunc_GetSize_preend:
StrCmp $R3 '' FileFunc_GetSize_nosizeend
System::Int64Op $R3 / $1
Pop $R3
FileFunc_GetSize_nosizeend:
StrCpy $2 $R4
StrCpy $1 $R5
StrCpy $0 $R3
goto FileFunc_GetSize_end

FileFunc_GetSize_error:
SetErrors
StrCpy $0 ''
StrCpy $1 ''
StrCpy $2 ''

FileFunc_GetSize_end:
SetDetailsPrint both
Pop $R9
Pop $R8
Pop $R7
Pop $R6
Pop $R5
Pop $R4
Pop $R3
; insert code
Pop $R2
; end insert
Pop $9
Pop $8
Pop $7
Pop $6
Pop $5
Pop $4
Pop $3
Exch $2
Exch
Exch $1
Exch 2
Exch $0

!verbose pop
!macroend

; ---------------
; GetFileAttributes (FileFunc.nsh)

!define GetFileAttributes `!insertmacro GetFileAttributesCall`
!define un.GetFileAttributes `!insertmacro GetFileAttributesCall`

!macro GetFileAttributes
!macroend

!macro un.GetFileAttributes
!macroend

!macro GetFileAttributes_
!verbose push
!verbose ${_FILEFUNC_VERBOSE}

Exch $1
Exch
Exch $0
Exch
Push $2
Push $3
Push $4
Push $5

System::Call 'kernel32::GetFileAttributes(t r0)i .r2'
StrCmp $2 -1 FileFunc_GetFileAttributes_error
StrCpy $3 ''

IntOp $0 $2 & 0x4000
IntCmp $0 0 +2
StrCpy $3 'ENCRYPTED|'

IntOp $0 $2 & 0x2000
IntCmp $0 0 +2
StrCpy $3 'NOT_CONTENT_INDEXED|$3'

IntOp $0 $2 & 0x1000
IntCmp $0 0 +2
StrCpy $3 'OFFLINE|$3'

IntOp $0 $2 & 0x0800
IntCmp $0 0 +2
StrCpy $3 'COMPRESSED|$3'

IntOp $0 $2 & 0x0400
IntCmp $0 0 +2
StrCpy $3 'REPARSE_POINT|$3'

IntOp $0 $2 & 0x0200
IntCmp $0 0 +2
StrCpy $3 'SPARSE_FILE|$3'

IntOp $0 $2 & 0x0100
IntCmp $0 0 +2
StrCpy $3 'TEMPORARY|$3'

IntOp $0 $2 & 0x0080
IntCmp $0 0 +2
StrCpy $3 'NORMAL|$3'

IntOp $0 $2 & 0x0040
IntCmp $0 0 +2
StrCpy $3 'DEVICE|$3'

IntOp $0 $2 & 0x0020
IntCmp $0 0 +2
StrCpy $3 'ARCHIVE|$3'

IntOp $0 $2 & 0x0010
IntCmp $0 0 +2
StrCpy $3 'DIRECTORY|$3'

IntOp $0 $2 & 0x0004
IntCmp $0 0 +2
StrCpy $3 'SYSTEM|$3'

IntOp $0 $2 & 0x0002
IntCmp $0 0 +2
StrCpy $3 'HIDDEN|$3'

IntOp $0 $2 & 0x0001
IntCmp $0 0 +2
StrCpy $3 'READONLY|$3'

StrCpy $0 $3 -1
StrCmp $1 '' FileFunc_GetFileAttributes_end
StrCmp $1 'ALL' FileFunc_GetFileAttributes_end

FileFunc_GetFileAttributes_attrcmp:
StrCpy $5 0
IntOp $5 $5 + 1
StrCpy $4 $1 1 $5
StrCmp $4 '' +2
StrCmp $4 '|' 0 -3
StrCpy $2 $1 $5
IntOp $5 $5 + 1
StrCpy $1 $1 '' $5
StrLen $3 $2
StrCpy $5 -1
IntOp $5 $5 + 1
StrCpy $4 $0 $3 $5
StrCmp $4 '' FileFunc_GetFileAttributes_notfound
StrCmp $4 $2 0 -3
StrCmp $1 '' 0 FileFunc_GetFileAttributes_attrcmp
StrCpy $0 1
goto FileFunc_GetFileAttributes_end

FileFunc_GetFileAttributes_notfound:
StrCpy $0 0
goto FileFunc_GetFileAttributes_end

FileFunc_GetFileAttributes_error:
SetErrors
StrCpy $0 ''

FileFunc_GetFileAttributes_end:
Pop $5
Pop $4
Pop $3
Pop $2
Pop $1
Exch $0

!verbose pop
!macroend

!define GetFileVersion `!insertmacro GetFileVersionCall`
!define un.GetFileVersion `!insertmacro GetFileVersionCall`

!macro GetFileVersion
!macroend

!macro un.GetFileVersion
!macroend

!macro GetFileVersion_
!verbose push
!verbose ${_FILEFUNC_VERBOSE}

Exch $0
Push $1
Push $2
Push $3
Push $4
Push $5
Push $6
ClearErrors

GetDllVersion '$0' $1 $2
IfErrors FileFunc_GetFileVersion_error
IntOp $3 $1 >> 16
IntOp $3 $3 & 0x0000FFFF
IntOp $4 $1 & 0x0000FFFF
IntOp $5 $2 >> 16
IntOp $5 $5 & 0x0000FFFF
IntOp $6 $2 & 0x0000FFFF
StrCpy $0 '$3.$4.$5.$6'
goto FileFunc_GetFileVersion_end

FileFunc_GetFileVersion_error:
SetErrors
StrCpy $0 ''

FileFunc_GetFileVersion_end:
Pop $6
Pop $5
Pop $4
Pop $3
Pop $2
Pop $1
Exch $0

!verbose pop
!macroend

; ---------------
; GetClusterSize

!define GetClusterSize `!insertmacro GetClusterSizeCall`
!define un.GetClusterSize `!insertmacro GetClusterSizeCall`

!macro GetClusterSize
!macroend

!macro un.GetClusterSize
!macroend

!macro GetClusterSize_
!verbose push
!verbose ${_FILEFUNC_VERBOSE}

System::Call 'kernel32::GetDiskFreeSpace(i0,*i0r0,*i0r1,*i0r2,*i)'
IntOp $0 $0 * $1
Push $0

!verbose pop
!macroend
</highlight-nsis>
Credits:

GetFileAttributes is borrowed from filefunc.nsh. For usage documentation look under section E.1.7 in the Users Manual.

GetSizeOnDisk also comes from filefunc.nsh, but has been altered slightly and renamed. The original macro was called GetSize. You will find it in the Users Manual under E.1.3.