obj failing, recyclebin object?

[WeMartiansAreFriendly]

hello,

i tried porting this script to autoit, because theres no way to calculate how much space is used in the recycle bin, atleast that i know of, the problem is that i keep getting 'The requested action with this object has failed.:' what did i do wrong???

expandcollapse popup

#cs
WSH script
http://www.microsoft.com/technet/scriptcenter/resources/qanda/may06/hey0501.mspx
Const RECYCLE_BIN = &Ha&
Const FILE_SIZE = 3

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(RECYCLE_BIN)

Set colItems = objFolder.Items

For Each objItem in colItems
    strSize = objFolder.GetDetailsOf(objItem, FILE_SIZE)
    arrSize = Split(strSize, " ")
    intSize = intSize + CLng(arrSize(0))
Next

Wscript.Echo intSize & " KB"
#ce


Const $RECYCLE_BIN = '&Ha&'
Const $FILE_SIZE = 3

Local $objShell = ObjCreate("Shell.Application")
Local $objFolder = $objShell.Namespace($RECYCLE_BIN)

Local $colItems = $objFolder.Items
Local $strSize, $intSize

For $objItem in $colItems
    $strSize = $objFolder.GetDetailsOf($objItem, $FILE_SIZE)
    $arrSize = StringSplit($strSize, " ")
    $intSize = $intSize + $arrSize(0)
Next

ConsoleWrite( $intSize & " KB")

[BrettF]

hello,

i tried porting this script to autoit, because theres no way to calculate how much space is used in the recycle bin, atleast that i know of, the problem is that i keep getting 'The requested action with this object has failed.:' what did i do wrong???

expandcollapse popup

#cs
WSH script
http://www.microsoft.com/technet/scriptcenter/resources/qanda/may06/hey0501.mspx
Const RECYCLE_BIN = &Ha&
Const FILE_SIZE = 3

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(RECYCLE_BIN)

Set colItems = objFolder.Items

For Each objItem in colItems
    strSize = objFolder.GetDetailsOf(objItem, FILE_SIZE)
    arrSize = Split(strSize, " ")
    intSize = intSize + CLng(arrSize(0))
Next

Wscript.Echo intSize & " KB"
#ce
Const $RECYCLE_BIN = '&Ha&'
Const $FILE_SIZE = 3

Local $objShell = ObjCreate("Shell.Application")
Local $objFolder = $objShell.Namespace($RECYCLE_BIN)

Local $colItems = $objFolder.Items
Local $strSize, $intSize

For $objItem in $colItems
    $strSize = $objFolder.GetDetailsOf($objItem, $FILE_SIZE)
    $arrSize = StringSplit($strSize, " ")
    $intSize = $intSize + $arrSize(0)
Next

ConsoleWrite( $intSize & " KB")
oÝ÷ Ûú®¢×¶ÇËhmëaz«·­Mú¡¸ß¢W^®+^Â-®'Ü"¶¬h¥j»®*mjëh×6
Const $RECYCLE_BIN = "&Ha&"

$objShell = ObjCreate("Shell.Application")
$objFolder = $objShell.Namespace($RECYCLE_BIN)
$objFolderItem = $objFolder.Self
MsgBox (0, "", $objFolderItem.Path)
$colItems = $objFolder.Items

For $objItem in $colItems
    MsgBox(0, "", $objItem.Name)
Next

And it too failed?

[WeMartiansAreFriendly]

It seems to be the part with $objfolder.items......... I tried it with a similar script:

Const $RECYCLE_BIN = "&Ha&"

$objShell = ObjCreate("Shell.Application")
$objFolder = $objShell.Namespace($RECYCLE_BIN)
$objFolderItem = $objFolder.Self
MsgBox (0, "", $objFolderItem.Path)
$colItems = $objFolder.Items

For $objItem in $colItems
    MsgBox(0, "", $objItem.Name)
Next

And it too failed?

hmm.. didn't work for me either..

[DaleHohm]

&Ha& isn't a string but a hex value - 10

also, the array element in your For loop needs [] rather than ()

Dale

[WeMartiansAreFriendly]

&Ha& isn't a string but a hex value - 10

also, the array element in your For loop needs [] rather than ()

Dale

thanks dale,

i had a gut feeling &Ha& was wrong.. it's returning the wrong values now.. have to look into that Clng function

[BrettF]

This worked for me.... I'm pretty sure it return the right values:

expandcollapse popup

#cs
WSH script
http://www.microsoft.com/technet/scriptcen...06/hey0501.mspx
Const RECYCLE_BIN = &Ha&
Const FILE_SIZE = 3

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(RECYCLE_BIN)

Set colItems = objFolder.Items

For Each objItem in colItems
    strSize = objFolder.GetDetailsOf(objItem, FILE_SIZE)
    arrSize = Split(strSize, " ")
    intSize = intSize + CLng(arrSize(0))
Next

Wscript.Echo intSize & " KB"
#ce


Const $RECYCLE_BIN = 10
Const $FILE_SIZE = 3

Local $objShell = ObjCreate("Shell.Application")
If IsObj ($objShell) Then
    
Else
    MsgBox (0, "ERROR", "Shell.Application is not an object.")
EndIf
Local $objFolder = $objShell.Namespace($RECYCLE_BIN)

Local $colItems = $objFolder.Items
Local $strSize, $intSize

For $objItem in $colItems
    $strSize = $objFolder.GetDetailsOf($objItem, $FILE_SIZE)
    $arrSize = StringTrimRight($strSize, 3)
    $intSize = $intSize + $arrSize
Next

ConsoleWrite( $intSize & " KB")

I changed the stringsplit to a string trim and it worked.... First time it was 34.... The i changed it and came 2852.... Pretty much perfect now....