FolderSize() - get folder size quickly

[gwarble]

This is the fastest method I could find to get the size of a folder, any way to do this faster or similarly fast with the WinAPI? File Loop, PowerShell, COM, winmgmts?

Code: Select all

FolderSize(folder) { ;gwarble 2020 - any faster method to get folder size?
Loop, Parse, % RunCMD("robocopy /l /nfl /ndl " folder " . /r:0 /w:0 /e /bytes"), `n, `r
 If InStr(A_LoopField,"Bytes :") ;thanks SKAN for RunCMD()
  For each, z in StrSplit(RegExReplace(A_LoopField, "\s+", " "), " ")
   If (A_Index = 4) ;probably much better ways to parse result
    Return z
}

thanks to SKAN for RunCMD() https://www.autohotkey.com/boards/viewtopic.php?f=6&t=74647
thanks to SKAN, FormatBytes() is useful in this case: https://www.autohotkey.com/boards/viewtopic.php?f=6&t=3567

[Xtra]

Code: Select all

bytes := ComObjCreate("Scripting.FileSystemObject").GetFolder(folderpath).Size

[gwarble]

thanks, exactly what i wanted (faster and not dependent on another exe)

Works on A_Desktop, any idea about overcoming error 0x800A0046 when running on A_WinDir?

[Xtra]

CTL_E_PERMISSIONDENIED
You will need adequate permissions to access that folder.
I dont want to get into changing computer settings (google if interested) but maybe someone can chime in on a simple solution or another method.

[SKAN]

Code: Select all

bytes := ComObjCreate("Scripting.FileSystemObject").GetFolder(folderpath).Size

Nice!
Useful for known folders. Unable to use it at root level.

[gwarble]

Interesting results in one scenario here, COM wins locally, robocopy wins on network share via VPN over internet:

Code: Select all

Local Folder:
Robocopy:	127 GB		5304ms
COM:		127 GB		4555ms

Network Share via VPN over internet:
Robocopy:	16.8 GB		31294ms
COM:		16.8 GB		37097ms

overall very comparable results in both cases

[cyruz]

thanks, exactly what i wanted (faster and not dependent on another exe)

Works on A_Desktop, any idea about overcoming error 0x800A0046 when running on A_WinDir?

Running the script as admin alone will not do. A quick but unpractical way would be to get the SeBackupPrivilege, while running as admin:

Code: Select all

DllCall( "ntdll.dll\RtlAdjustPrivilege", UInt,17, Int,1, Int,0, Int,0 )