suppression icone sur bureau3Résolu

Question

Salut, j'ai un petit script qui me permet (merci JMO) d'afficher tous les raccourcis sur le bureau. Mais après quelques plusieurs tests je me suis aperçu qu'il affichait tout les icones présents (fichier doc, texte, dossier, ...) J'aimerai savoir si on peut spécifier que ".lnk" à afficher. Est-ce possible ?
ci-joint le script :
var = ""
Const DESKTOP = &H10&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(DESKTOP)
Set objFolderItem = objFolder.Self
Set colItems = objFolder.Items


For Each objItem in colItems
    var = var &vbCrLf& objItem.Name
Next


Set objShell = Nothing
Set objFolder = Nothing
Set objFolderItem = Nothing
Set colItems = Nothing
MsgBox var

Merci pour toute réponse

Quand je suis là tout va mal

leSaleGauSS · Accepted Answer

C bon je pense avoir compris ce que JMO voulais dire
J'ai donc fait :

var = ""
Const DESKTOP = &H10&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(DESKTOP)
Set objFolderItem = objFolder.Self
Set colItems = objFolder.Items
set fso=createObject("Scripting.FileSystemObject")


For Each objItem in colItems
   if fso.FileExists(chemin_de_l'icone & objitem.Name & ".lnk") then
      var = var &vbCrLf& objItem.Name
   end if
Next

Set objShell = Nothing
Set objFolder = Nothing
Set objFolderItem = Nothing
Set colItems = Nothing
MsgBox var

'Merci beaucoup JMO et Drikce06     



Quand je suis là tout va mal

drikce06 · Answer

Salut quelque chose comme ça, si la fonction right existe en vbscript!

For Each objItem in colItems
if right(objItem.Name,4)=".lnk" then
var = var &vbCrLf& objItem.Name
end if
Next

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

cs_JMO · Answer

Bonjour à tous

J'ai testé la proposition de Drikce06 => ko (ou nok)
Je pense qu'il faut parcourir les items pour 
trouver l'item (Type de fichier:), faire +1 sur l'item,
et tester si = "Raccourci".
En faisant manuellement propriété du raccourci, on a la réponse !

jean-marc

leSaleGauSS · Answer

Bonsoir,
Drikce06 >> Right existe mais je sais pas pourquoi ca marche pas... il m'affiche une case vide
JMO >> J'ai pas bien saisi ce que tu voulais dire ...

Quand je suis là tout va mal

leSaleGauSS · Answer

Rectification Right marche trop bien car il ne prend pas en compte l'extension
(raccourci.lnk  => urci)
Quand je suis là tout va mal

mortalino · Answer

Salut,

moi perso, l'extension lnk ne s'affiche pas.
Dans le panneau de config, Options des dossiers, 3e onglet, choisi lnk et fait afficher l'extension.

Ca devrait le faire

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

leSaleGauSS · Answer

Ha salut Mortalino, (je viens de lire ton message), oui tu as raison lnk ne s'affiche pas. Dans mon cas je ne peux pas afficher les extensions (du moins pas encore). C'est pour ça que je fais un FileExists
@+

Quand je suis là tout va mal

mortalino · Answer

Oui, bien vu  

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

leSaleGauSS · Answer

Oui merci j'ai des éclairs de génie quelque fois ...
Bon merci à toi. De toute façon je risque de revenir dans quelques heure alors à bientôt ...

Quand je suis là tout va mal

cs_JMO · Answer

Re,

 leSaleGauSS  

supinfo + secret-Windows + http://www.microsoft.com/technet/scriptcenter/default.mspx
Il y a de quoi passer des nuits blanches....
Toutes les propriétés y sont détaillées.
je commence à profiter du wmi grâce au wbem  (Set objWbemLocator CreateObject("WbemScripting.SWbemLocator")<?xml:namespace prefix o ns = "urn:schemas-microsoft-com:office:office" /??>

.
Ceci pour distinguer la notion de strComputer="."

Bonne soirée de prog.
jean-marc

leSaleGauSS · Answer

oulala 
là c'est du sérieux..... 
Merci mais la soirée de prog n'est pas encore au programme (ca va être soirée découverte héhéhé)
bref merci pour le lien, je connaisait bien FSO, WSH, ADSI et paf! v'la un autre ...

Quand je suis là tout va mal

Suppression icone sur bureau3

11 réponses

Votre réponse

Discussions similaires