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)