Discussion :

[Sun2k]

Bonsoir

Comment supprimer un programme et son raccourci ?

Exemple:

Je veux supprimer avec un sript vbs un programme nommé "monprogram" qui se trouve dans C:\Documents and Settings\Admin\Bureau\Dossier et en même temps sont raccourci qui se trouve dans C:\Documents and Settings\Admin\Bureau

Merci

[hackoofr]

Dans la Comment effacer un fichier ?

[Sun2k]

Oui effacer un fichier mais pas avec son raccourci qui se trouve dans un autre chemin..

[hackoofr]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
CheminFichier = "C:\Documents and Settings\Administrateur\Bureau\Dossier\monprogram.exe"
CheminRaccourci = "C:\Documents and Settings\Administrateur\Bureau\monprogram.lnk"
If oFSO.FileExists(CheminFichier) Then
    oFSO.DeleteFile CheminFichier,True
Else
    MsgBox "Le fichier n'existe pas",16,"Le fichier n'existe pas"
End If
If oFSO.FileExists(CheminRaccourci) Then
    oFSO.DeleteFile CheminRaccourci,True
Else
    MsgBox "Le fichier n'existe pas",16,"Le fichier n'existe pas"
End If

[Sun2k]

Merci hackoofr ça fonctionne nikel..

Mais j'avais oublier de préciser que le chemin de "program" ainsi que son raccourci ne sont pas fixe (c'est dire qui peuvent changer de chemin),

Donc après une recherche j'ai trouvé qu'on peux chercher un fichier dans C:/ ou autre, le supprimer et qu'il soit aussi opérationnel dans toutes les sessions.

J'ai récupéré un code qui fait ça ,fonctionne très bien, mais il est incapable de trouver et effacer un raccourci.. (avec les fichier autre que les raccourcis fonctionne bien)

Voici le code, quel est le probleme ? :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Dim objDic
Dim oShell
 
Set objDic = CreateObject("Scripting.Dictionary")
' Define the files you need to delete
objDic.Add LCase("cacapipi.jpg.Ink"), ""
 
 
Set oShell = CreateObject("Wscript.Shell")
strUserProfile = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
 
' This is where it will only search and delete in the logged on users profile
ShowFolderList(strUserProfile)
 
Function ShowFolderList(folderspec)
Dim fso, f, f1, s, sf
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 in sf
ShowFolderList(f1.path)
ShowFileList(f1.path)
Next
End Function
 
Function ShowFileList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
if objDic.Exists(LCase(f1.name)) then
fso.deletefile f1.path, true
end if
Next
End Function