List Desktop Icons

[Kasteel]

Hi

Is it possible to list the icons on a desktop using AutoIT? (And possibly when they were created?)

I know it can be done using vb script:

Const DESKTOP = &H10&

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace(DESKTOP)

Set objFolderItem = objFolder.Self

Wscript.Echo objFolderItem.Path

Set colItems = objFolder.Items

For Each objItem in colItems

Wscript.Echo objItem.Name

Next

Any help would be appreciated.

Edited December 9, 2008 by Kasteel

[Andreik]

Hi

Is it possible to list the icons on a desktop using AutoIT? (And possibly when they were created?)

I know it can be done using vb script:

Const DESKTOP = &H10&

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace(DESKTOP)

Set objFolderItem = objFolder.Self

Wscript.Echo objFolderItem.Path

Set colItems = objFolder.Items

For Each objItem in colItems

Wscript.Echo objItem.Name

Next

Any help would be appreciated.

Like this:

#include <Array.au3>
#include <File.au3>

$DESK_FILES = _FileListToArray(@DesktopDir)
_ArrayDisplay($DESK_FILES)

[Kasteel]

Like this:

#include <Array.au3>
#include <File.au3>

$DESK_FILES = _FileListToArray(@DesktopDir)
_ArrayDisplay($DESK_FILES)

Thanks!!

[Kasteel]

Like this:

#include <Array.au3>
#include <File.au3>

$DESK_FILES = _FileListToArray(@DesktopDir)
_ArrayDisplay($DESK_FILES)

Hi

The above code does not list the "My Computer", "My Documents" icons. It only lists user created icons on the desktop. Any idea how I can list everything?

[amokoura]

Hi

The above code does not list the "My Computer", "My Documents" icons. It only lists user created icons on the desktop. Any idea how I can list everything?

A wild guess: They're "special" icons. Their visibility should be checked from the registry.

[MrCreatoR]

Hi

The above code does not list the "My Computer", "My Documents" icons. It only lists user created icons on the desktop. Any idea how I can list everything?

But in your VBscript example it's also not listing these items

Try this:

#include <GuiListView.au3>

$hDesktop_LV = ControlGetHandle("[CLASS:Progman]", "", "SysListView321")

$iCountItems = _GUICtrlListView_GetItemCount($hDesktop_LV)
$sDesktopItems_List = ""

For $i = 0 To $iCountItems-1
    $sCurrent_Item = _GUICtrlListView_GetItemText($hDesktop_LV, $i)
    $sDesktopItems_List &= $sCurrent_Item & @CRLF
Next

ConsoleWrite($sDesktopItems_List & @CRLF)

And your example from vbs:

$objShell = ObjCreate("Shell.Application")
$objFolder = $objShell.Namespace(0x10)
$objFolderItem = $objFolder.Self

MsgBox(0, "", $objFolderItem.Path)

$colItems = $objFolder.Items

For $objItem In $colItems
    ConsoleWrite($objItem.Name & @CRLF)
Next

[Andreik]

But in your VBscript example it's also not listing these items

Try this:

#include <GuiListView.au3>

$hDesktop_LV = ControlGetHandle("[CLASS:Progman]", "", "SysListView321")

$iCountItems = _GUICtrlListView_GetItemCount($hDesktop_LV)
$sDesktopItems_List = ""

For $i = 0 To $iCountItems-1
    $sCurrent_Item = _GUICtrlListView_GetItemText($hDesktop_LV, $i)
    $sDesktopItems_List &= $sCurrent_Item & @CRLF
Next

ConsoleWrite($sDesktopItems_List & @CRLF)

And your example from vbs:

$objShell = ObjCreate("Shell.Application")
$objFolder = $objShell.Namespace(0x10)
$objFolderItem = $objFolder.Self

MsgBox(0, "", $objFolderItem.Path)

$colItems = $objFolder.Items

For $objItem In $colItems
    ConsoleWrite($objItem.Name & @CRLF)
Next

First code not return any result, the VBS code is like _FileListToArray() without My Computer and other special folders.

[SmOke_N]

First code not return any result, the VBS code is like _FileListToArray() without My Computer and other special folders.

1st one works on XP, what OS are you using?

[Andreik]

1st one works on XP, what OS are you using?

XP x64 Edited December 10, 2008 by Andreik

[Kasteel]

XP x64

Wow - you are amazing!! Thanks for your help - I really appreciate it.

Last night I came accross @DesktopCommonDir which gave me a bit more info but your code works 110% on my pc.

Thanks.

[MrCreatoR]

XP x64

Can you check if the ControlGetHandle returns a handle? If not, can you also check with AutoIt Info Tool the class of the desktop window and the id of the ListView control?

[Andreik]

Can you check if the ControlGetHandle returns a handle? If not, can you also check with AutoIt Info Tool the class of the desktop window and the id of the ListView control?

ControlGetHandle() and _GUICtrlListView_GetItemCount() seems to work fine.

The problem seems to be the _GUICtrlListView_GetItemText. Does not return anything.

[MrCreatoR]

ControlGetHandle() and _GUICtrlListView_GetItemCount() seems to work fine.

The problem seems to be the _GUICtrlListView_GetItemText. Does not return anything.

Hm, that's strange. What AutoIt version you are using? Because i don't think that x64 is affecting on the function somehow....

[Andreik]

Hm, that's strange. What AutoIt version you are using? Because i don't think that x64 is affecting on the function somehow....

v3.2.12.1

v3.2.13.12 (beta)