Discussion :

[nicogef]

bonjour

j'ai un problème avec se code il se lance bien mais il ne se passe rien

le code serre a rechercher et a supprimer un raccourci sur le bureau

mais je ne connais pas en entier le nom du raccourci mais la structure du nom est nas-.... .lnk

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
18
 
    sub supprrac
    'Déclaration des variables
    Dim Shell, DesktopPath, objFSO
    'Création des variables
    Set Shell = CreateObject("WScript.Shell" )
    DesktopPath = Shell.SpecialFolders("Desktop" )
    Set objFSO = CreateObject("Scripting.FileSystemObject" )
    'Supression du raccourci
    If objFSO.FileExists(DesktopPath & "\nas-*.lnk" ) Then
    MsgBox "Ca marche !"
    objFSO.DeleteFile DesktopPath & "\nas-*.lnk"
    End If
    REM If objFSO.FileExists(DesktopPath & "\nav*.lnk" ) Then
    REM objFSO.DeleteFile DesktopPath & "\nav*.lnk"
    REM End If
 
    end sub

merci d'avance de votre aide

nicogef

[l_autodidacte]

Certaines modifications doivent être faites sur ton code.
De plus, si tu ne fais pas un appel à la procédure (SupprRac), rien ne se passe. En voici une esquisse :

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
 SupprRac
 Sub SupprRac()
    'Déclaration des variables
    Dim Shell, DesktopPath, objFSO, Fichier
    'Création des variables
    Set Shell = CreateObject("WScript.Shell" )
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set DesktopPath = objFSO.GetFolder(Shell.SpecialFolders("Desktop"))
    'Supression du raccourci
    For Each Fichier In DesktopPath.Files
            If LCase(Left(Fichier.Name, 4)) = "nas-" And LCase(objFSO.GetExtensionName(Fichier.Name)) = "lnk" Then
                MsgBox "Ca marche !"
                Fichier.Delete True
            End If
     Next
End Sub