Udf _foldersize

[trids]

Iteration in one (DOS) command .. surprisingly fast

Func _FolderSize($psFolder)
;Uses the DOS "dir" command to recursively collect all filenames
;in a folder and its children; then adds up the filesize for each one
;and returns the total.
Local $sFileList, $nFileList, $nTotalSize

    $sFileList = "C:\_FolderSize.LST"
    RunWait(@Comspec & " /C DIR """ & $psFolder & "*.*"" /s/b /A:-D > " & $sFileList,"", @SW_HIDE)
    
    $nFileList = FileOpen($sFileList, 0)  ;0=open
    if $nFileList = -1 then
      ;Couldn't open list of files in designated folder
        SetError(1) 
        Return 0
    endif

;Read the listfile, and determine file sizes, 
;writing name and size to CSV file
    $nTotalSize = 0
    While 1
        $sFilePathName = FileReadLine($nFileList)
        if @error = -1 then;EOF
            ExitLoop
        endif
        $nTotalSize = $nTotalSize + FileGetSize($sFilePathName)
    Wend

;Cleanup
    FileClose($nFileList)
#cs    
    FileDelete($sFileList)
#ce    
    Return $nTotalSize
EndFunc

Usage

;Example of call to UDF _FolderSize()
    $sFolder = @TempDir
    $nFolderSize = _FolderSize($sFolder)
    If @error then 
       ;failed
    Else
       Msgbox (4096 + 32,@ScriptName,"Size of " & $sFolder & " = " & $nFolderSize )
    Endif
Exit

Edited March 2, 2004 by trids

[Xenobiologist]

Hi,

there is already DirGetSize and you can try to get rid off saving the info of files into a file.

Something like this

Func _FolderSize1($folderPath)
Local $tempWorkDir = @WorkingDir
FileChangeDir($folderPath)
Local $nTotalSize = 0
Local $command = 'dir "' & $folderPath & '" "*.*" /s/b /A:-D'
Local $text = '', $Pid = Run('"' & @ComSpec & '" /c ' & $command, '', @SW_HIDE, 2 + 4)
While 1
  $text &= StdoutRead($Pid, False, False)
  If @error Then ExitLoop
  Sleep(10)
WEnd
Local $re = StringSplit(StringStripCR($text), @LF, 2)
For $i = 0 To UBound($re) - 1
  $nTotalSize += FileGetSize($re[$i])
Next
FileChangeDir($tempWorkDir)
Return $nTotalSize / 1048576 /2
EndFunc   ;==>_FolderSize1

Mega

[UEZ]

The thread was started in 2004!

Br,

UEZ

[JScript]

The thread was started in 2004!

This interface is crazy! Mad, Mad, Mad, Loca, Loca, Louca!

If you do not pay attention to the date, then you end up responding ...

João Carlos.

[BrewManNH]

This interface is crazy! Mad, Mad, Mad, Loca, Loca, Louca!

If you do not pay attention to the date, then you end up responding ...

João Carlos.

That makes no sense, of course you have to pay attention to the date, that's the same as in EVERY forum. I don't see how you're going to know when it was posted if you don't look at the post date.

Were you expecting the forum software to warn you that the post is x amount of days/weeks/months/years old without you having to do anything?

[JScript]

That makes no sense, of course you have to pay attention to the date, that's the same as in EVERY forum. I don't see how you're going to know when it was posted if you don't look at the post date.

Were you expecting the forum software to warn you that the post is x amount of days/weeks/months/years old without you having to do anything?

I see that you are very upset with my answer, you are the author of this interface?

Perhaps the just Xenobiologist did as many others do: respond what you see on the first page, regardless of the date of the posting!

But do not be offended: this forum was not meant to deal with issues of this category! Do not wait my return

João Carlos.

[storme]

That makes no sense, of course you have to pay attention to the date, that's the same as in EVERY forum. I don't see how you're going to know when it was posted if you don't look at the post date.

Were you expecting the forum software to warn you that the post is x amount of days/weeks/months/years old without you having to do anything?

Actually, in my view it makes perfect sense. The date is in a light gray text that is not easy to discern from the bright white background.

I can see how easy it would be for someone to miss it when reply to the message.

Especially if your eyesight isn't as good as it used to be "Like mine".

In fact, I've "almost" done it a few times myself.

In most cases I reply to recent posts so that date is of no importance.

However, when I've been searching for a solution to a problem I've gone to ask the poster a question and only just cuaght myself in time.

And that is only because I check my replies before sending.

[Xenobiologist]

The thread was started in 2004!

Br,

UEZ

That's what is going to happen if you are to blind to see what you are clicking at.

I thought I clicked next, but I pushed the button to get to the end (which is the first) page of all threads in that particular forum, I suppose.

Anyhow, I need to visit Autoit forums a bit more in the future :-)

Mega

Besides, you all were right, I didn't recognize that the post was so old.

[BrewManNH]

I sometimes go into the online users list just to see what posts are out there that I haven't run into before. Most of the ones that seem interesting are the ones from years ago being looked at by "Guests". I have to make sure what I'm looking at rather responding to them