Filename and filesize in an array

[spac3m0nk3y]

I've got a function that puts filenames with a certain beginning ID in an array.

$ID = _GUICtrlListViewGetItemText($lstProviders,  -1, 1)
$NumFiles = _FileListToArrayEx($filePath, $ID & '*.doc')

This works fine, except I would also like to add the size of the file to the array, so I can display that in a listview. Is there a way I can do this?

I tried it this way, but it always shows zero filesize:

If IsArray($NumFiles) Then
  GUICtrlSetData($getLst, '');Empty the control $lstProviders

  For $i = 1 To $NumFiles[0]
    GUICtrlCreateListViewItem($NumFiles[$i] & Chr(124) & FileGetSize($NumFiles[$i]) & Chr(124), $getLst)
  Next
EndIf

[PsaltyDS]

FileGetSize() needs a full path to the file. Are you by any chance giving it only the file name without the folder path?

[spac3m0nk3y]

FileGetSize() needs a full path to the file. Are you by any chance giving it only the file name without the folder path?

Ugh, you were right, once I added the path, it showed the filesize, DUH!

Ok, now is there an algorithm that I can perform on the filesize to have it only show something like 60KB or 1.5MB or something like that, instead of the actual bytes?

[SmOke_N]

FileGetSize(...) / 1024 = kb

(FileGetSize(...) / 1024) / 1024 = mb

Edit:

Added iteration... I'm sure you get the picture now.

Edited November 13, 2007 by SmOke_N

[Monamo]

Ugh, you were right, once I added the path, it showed the filesize, DUH!

Ok, now is there an algorithm that I can perform on the filesize to have it only show something like 60KB or 1.5MB or something like that, instead of the actual bytes?

Here's what I typically use when working with the "bytes-only" return:

Const $1GB = 1024 * 1024 * 1024
Const $1MB = 1024 * 1024
Const $1KB = 1024

$targetFile = "C:\pagefile.sys" 

$SpaceCalc = FileGetSize($targetFile)
Select
    Case $SpaceCalc > $1GB
        $sApproximateSpace = $SpaceCalc / $1GB
        $sComparison = "GB" 
    Case $SpaceCalc > $1MB And $SpaceCalc < $1GB
        $sApproximateSpace = $SpaceCalc / $1MB
        $sComparison = "MB" 
    Case $SpaceCalc >= "0"  And $SpaceCalc < $1MB
        $sApproximateSpace = $SpaceCalc / $1KB
        $sComparison = "KB" 
    Case Else
EndSelect
If StringInStr($sApproximateSpace, ".") Then
    $sApproximateSpace = StringTrimRight($sApproximateSpace, StringLen($sApproximateSpace) - StringInStr($sApproximateSpace, ".") - 1)
Else
EndIf
MsgBox(64, "Approximate (rounded) file size", $sApproximateSpace & " " & $sComparison)