Effacer la liste des documents récents

Bonjour,

J'avoue être complètement débutant en vbs et un peu perdu par rapport à vb.

Ben voilà, j'explique ce que j'aimerais faire :

J'ai ce code sous vb qui permet d'effacer la liste des documents récents sous Windows.

Par contre ça ne marche pas en vbs :-( j'ai lu des trucs avec l'utilisation de Callapi, mais je n'ai rien compris... si quelqu'un sait comment adapter ce code en vbs ce serai ool de m'aider !

Code:

---

1 2 3 4 5 6 7

'API de Gestion des documents récents Private Declare Function SHAddToRecentDocs Lib "Shell32" (ByVal lFlags As Long, ByVal lPv As Long) As Long   Public Sub ClsDocRecents() 'Suppression de la liste SHAddToRecentDocs 0, 0 End Sub

---

merci d'avance

A+
Damsmut

Citation:

---

J'avoue être complètement débutant en vbs et un peu perdu par rapport à vb.

---

Personne ne t'a accusé de quoi que ce soit !!! :mrgreen:

Code:

---

dim chiffre As Long

---

Ce genre de déclaration est incorrecte en VBS, pas de déclaration de type, celui-ci se fait au moment de l'assignation de la valeur :

Code:

---

1 2	dim chiffre chiffre = 10.0

---

Ensuite je ne pense que la ligne d'importation d'une dll devrait être bonne.
Sur le forum certain sujet parle de l'importation de fonction d'une dll.

merci pour la réponse... mais je suis toujours perdu !

c'est à dire ?

Ben dans ce code il n'y a pas de déclaration comme tu l'as stipulé dans ton mail...
et pour toi l'appel de l'api semble correct et pour tant cela ne marche pas.
Il me met un message d'erreur.

merci a+

Code:

---

1 2 3 4 5 6 7

'API de Gestion des documents récents Private Declare Function SHAddToRecentDocs Lib "Shell32" (ByVal lFlags As Long, ByVal lPv As Long) As Long   Public Sub ClsDocRecents() 'Suppression de la liste SHAddToRecentDocs 0, 0 End Sub

---

C'est quoi l'erreur ?

Attends, laisse moi deviner !!! hum ........... je la vois ..... ça y est .... j'y suis .... Ho zut ma boule de cristal vient de casser, j'étais à deux doigt de voir l'erreur :mouarf:

Code:

---

Private Declare Function SHAddToRecentDocs Lib "Shell32" (ByVal lFlags As Long, ByVal lPv As Long) As Long

---

Ce code contient les déclarations pour la function et les paramètres, cela donne en vbs :

Code:

---

Private Declare Function SHAddToRecentDocs Lib "Shell32" (ByVal lFlags, ByVal lPv)

---

l'erreur est la suivante :

Code:

---

1 2 3 4 5 6

Ligne : 2 Caract : 17 Erreur :Fin d'instruction attendue Code : 800A0401 Source : Erreur de compilation Microsoft VBScript

---

En lève declare et vois ce que cela donne.

Salut,

entre nous un bon .Bat avec à l'intérieur :

Code:

---

1 2 3

del "%HomeDrive%%HomePath%\recent\*.*" /q exit

---

et hop !
Oui Ced600, je sais je sais ....:oops:

A++

bof aujourd'hui je ne suis plus à cela pret ;)

Citation:

---

Envoyé par ced600

bof aujourd'hui je ne suis plus à cela pret ;)

---

ben tu es en pleine déprime aujourd'hui ? Sinon, ca sert à quoi de faire plus compliqué quand un peut faire encore plus compliqué ?
Sinon, j'ai ca :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

On Error Resume Next   Set objShell = CreateObject("Shell.Application")   Const MY_RECENT_DOCUMENTS = &H8&   Set objFolder = objShell.Namespace(MY_RECENT_DOCUMENTS) RecentDir = objFolder.Self.Path   strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set FileList = objWMIService.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='" & RecentDir & "'}")   For Each objFile in FileList objFile.Delete Next

---

A++

cela me fait plaisirs ton bout de code :D

Citation:

---

Envoyé par ced600

cela me fait plaisirs ton bout de code :D

---

je ne pouvais pas te laisser dans un tel état dépressif :mouarf:

A++

merci à tous

j'ai donc fait comme ça :

Code:

---

1 2	Set oshell = WScript.CreateObject("WScript.Shell") oshell.Run("cmd /c del ""%HomeDrive%%HomePath%\recent\*.*"" /q")

---

@+

Damsmut