|
I'm writing a script to scan the size of our exchange DB. While GetFileSize doesn't support file greater than 2Gb, I'm using the UDF fnGetFileProp to retrieve it's size. This works fine, but the results are in bytes. This gives me a numer in the format of 1.000.000.000. I want to retrieve the size of the DB in MB's, like 1.000
***********************
Function fnGetFileProp($sFile,$sProp)
Dim $objFSO, $objFile, $nul
$objFSO = CreateObject("Scripting.FileSystemObject")
If Not VarType($objFSO)=9 Exit 1 EndIf
$objFile = $objFSO.GetFile($sFile)
If Not VarType($objFile)=9 Exit 2 EndIf
$nul=Execute("$$fnGetFileProp = $$objFile."+$sProp)
If VarType($fnGetFileProp)=0 Exit 87 EndIf
EndFunction
$Priv1EDB = "\\server\mdbdata\Priv1.edb"
$PrivResult = FormatNumber(fnGetFileProp($Priv1EDB,Size),0) ?
*******************************
Can anyone help me ?
| 
