Discussion :

[damsmut]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ced600]

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 !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[damsmut]

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

[ced600]

c'est à dire ?

[damsmut]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ced600]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[damsmut]

l'erreur est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Ligne : 2
Caract : 17
Erreur :Fin d'instruction attendue
Code : 800A0401
Source : Erreur de compilation Microsoft VBScript

[ced600]

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

[RadPAT]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

A++

[ced600]

bof aujourd'hui je ne suis plus à cela pret

[RadPAT]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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++

[ced600]

cela me fait plaisirs ton bout de code

[RadPAT]

cela me fait plaisirs ton bout de code

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

A++

[damsmut]

merci à tous

j'ai donc fait comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+

Damsmut