IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Effacer la liste des documents récents


Sujet :

VBScript

  1. #1
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Juin 2006
    Messages
    622
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 622
    Par défaut 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 : 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

  2. #2
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    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 !!!

    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.

  3. #3
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Juin 2006
    Messages
    622
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 622
    Par défaut
    merci pour la réponse... mais je suis toujours perdu !

  4. #4
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    c'est à dire ?

  5. #5
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Juin 2006
    Messages
    622
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 622
    Par défaut
    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

  6. #6
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    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)

  7. #7
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Juin 2006
    Messages
    622
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 622
    Par défaut
    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

  8. #8
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    En lève declare et vois ce que cela donne.

  9. #9
    Membre chevronné
    Inscrit en
    Août 2007
    Messages
    302
    Détails du profil
    Informations personnelles :
    Âge : 58

    Informations forums :
    Inscription : Août 2007
    Messages : 302
    Par défaut
    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++

  10. #10
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    bof aujourd'hui je ne suis plus à cela pret

  11. #11
    Membre chevronné
    Inscrit en
    Août 2007
    Messages
    302
    Détails du profil
    Informations personnelles :
    Âge : 58

    Informations forums :
    Inscription : Août 2007
    Messages : 302
    Par défaut
    Citation Envoyé par ced600 Voir le message
    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++

  12. #12
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    cela me fait plaisirs ton bout de code

  13. #13
    Membre chevronné
    Inscrit en
    Août 2007
    Messages
    302
    Détails du profil
    Informations personnelles :
    Âge : 58

    Informations forums :
    Inscription : Août 2007
    Messages : 302
    Par défaut
    Citation Envoyé par ced600 Voir le message
    cela me fait plaisirs ton bout de code
    je ne pouvais pas te laisser dans un tel état dépressif

    A++

  14. #14
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Juin 2006
    Messages
    622
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 622
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [AC-2010] La liste des documents récents disparaît tous les jours
    Par Guy FALESSE dans le forum Access
    Réponses: 5
    Dernier message: 09/06/2014, 13h38
  2. Effacer automatiquement la liste des projets récents
    Par Roland Chastain dans le forum EDI
    Réponses: 14
    Dernier message: 18/02/2014, 21h09
  3. Modifier la liste des documents récents dans Menu Démarrer
    Par d.tellier dans le forum Windows 7
    Réponses: 4
    Dernier message: 14/10/2013, 23h15
  4. Liste des documents récemment ouverts
    Par frantzgac dans le forum API, COM et SDKs
    Réponses: 5
    Dernier message: 21/01/2009, 00h59
  5. liste des fichiers récents ouverts
    Par salihovic dans le forum Windows Forms
    Réponses: 6
    Dernier message: 22/10/2007, 09h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo