AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 12 02 05:55:05
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

SUPPRIMER UN RACCOURCI DU BUREAU ET/OU DU MENU DÉMARRER


Information sur la source

Catégorie :Fichier / Disque Classé sous : supprimer, raccourcis, fichier, bureau, menudémarrer Niveau : Débutant Date de création : 19/04/2007 Date de mise à jour : 07/12/2007 06:26:47 Vu : 11 530
Auteur : sergiooi Site perso
Ecrire un message privé
Note :
Aucune note
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

Description

Mon code est simple et sert seulement à supprimer un raccourci du bureau ou du menu démarrer. Étant donné, après mes looooonnngues recherches, qu'il y a peu (ou pas) de sources à ce sujet.
Dans mon exemple, vous avez besoin que d'une feuille standard.
Je me suis inspiré de la source de Mika1000 et de clementpat. Merci pour vos sources!!!

 

Source

  • Private Sub Command1_Click()
  • Dim WSHShell
  • Set WSHShell = CreateObject("Wscript.Shell")
  • Dim MenudemarrerPath, BureauPath
  • BureauPath = WSHShell.SpecialFolders("Desktop") ' Voir les notes en bas pour les différents path.
  • MenudemarrerPath = WSHShell.SpecialFolders("AllUsersStartMenu")
  • 'pour supprimer un raccourci du bureau
  • Kill BureauPath & "\LENOMDETONRACCOURCIS.lnk"
  • 'pour supprimer un raccourci du menu Démarrer
  • Kill MenudemarrerPath & "\LENOMDETONRACCOURCIS.lnk"
  • set WSHShell = nothing
  • End
  • End Sub
  • 'AllUsersDesktop
  • 'AllUsersStartMenu
  • 'AllUsersPrograms
  • 'AllUsersStartup
  • 'Favorites
  • 'Fonts
  • 'MyDocuments
  • 'NetHood
  • 'PrintHood
  • 'Programs
  • 'Récent
  • 'SendTo
  • 'StartMenu
  • 'Startup
  • 'Templates 
Private Sub Command1_Click()
Dim WSHShell

Set WSHShell = CreateObject("Wscript.Shell")
    
Dim MenudemarrerPath, BureauPath

    BureauPath = WSHShell.SpecialFolders("Desktop") ' Voir les notes en bas pour les différents path.
    MenudemarrerPath = WSHShell.SpecialFolders("AllUsersStartMenu")

'pour supprimer un raccourci du bureau
Kill BureauPath & "\LENOMDETONRACCOURCIS.lnk" 
'pour supprimer un raccourci du menu Démarrer                              
Kill MenudemarrerPath & "\LENOMDETONRACCOURCIS.lnk" 


set WSHShell = nothing
End
End Sub


'AllUsersDesktop
'AllUsersStartMenu
'AllUsersPrograms
'AllUsersStartup
'Favorites
'Fonts
'MyDocuments
'NetHood
'PrintHood
'Programs
'Récent
'SendTo
'StartMenu
'Startup
'Templates

Conclusion

Voilà. C'est simple non? Mais ne soyez pas trop dur avec moi car je suis un débutant.

 

Historique

19 avril 2007 22:17:20 :
Voilà le code a été corrigé suite au critique (que je ne prend pas mal :) )
20 juin 2007 22:16:43 :
:)
07 décembre 2007 06:26:48 :
fautes d'orthographes corrigées. :)

Commentaires et avis

signaler à un administrateur
Commentaire de Drikce06 le 19/04/2007 11:57:12

Salut, lnk et pas ink, mais bon c'est pas grave, mais si par exemple tu as un fichier .pdf, .doc ou autres qui a le même nom, qu'est ce qui se passe?

SupprimerFichier BureauPath & "\LENOMDETONRACCOURCIS.*" ' ou LENOMDETONRACCOURCIS.ink
                                                        ' (chez moi seulement le .* fonctionne.
SupprimerFichier MenudemarrerPath & "\LENOMDETONRACCOURCIS.*"

signaler à un administrateur
Commentaire de violent_ken le 19/04/2007 12:42:54

"Étant donné, après mes looooonnngues recherches, qu'il y a peu (ou pas) de sources à ce sujet." ==> Ah bon ? Du DeleteFile par FSO, c'est pourtant pas ce qui manque...

@+

signaler à un administrateur
Commentaire de MadM@tt le 19/04/2007 13:26:27

Oui un raccourci c'est un fichier.
En fait, tu supprime juste un fichier, avec une méthode (objets FSO) très répandue.
Avec la meme méthode, tu peux supprimer n'importe quel fichier, en gros c'est comme si tu faisais une source pour supprimer des fichiers word (.doc), mais en utilisant une méthode qui marcherait pour tous les fichiers.
Rien de bien neuf la dedans quoi, mais le prend pas personnelement ;-) et continue

signaler à un administrateur
Commentaire de sergiooi le 19/04/2007 20:36:44

Salut Drikce06. si tu as plus d'un fichier portant le meme nom, tu dois utiliser lextention appropriée, ex:
SupprimerFichier BureauPath & "\LENOMDETONRACCOURCIS.pdf" si il sagit d'un pdf ou
SupprimerFichier BureauPath & "\LENOMDETONRACCOURCIS.txt" si il sagit d'un document texte. ect ect.

signaler à un administrateur
Commentaire de sergiooi le 19/04/2007 20:39:17

Salut violent_Ken tu as dit:
"Étant donné, après mes looooonnngues recherches, qu'il y a peu (ou pas) de sources à ce sujet." ==> Ah bon ? Du DeleteFile par FSO, c'est pourtant pas ce qui manque...
@+

J'ai bien spécifié ma source et il me semble quil ny ai pas de sources pour supprimer un raccourci, donc j'en ai fait une.
Je sais que c'est basique mais ca peut aider un autre débutant.

signaler à un administrateur
Commentaire de violent_ken le 19/04/2007 20:47:14

Ah mais ne le prend pas mal, plus il y a de sources mieux c'est pour codes-sources.

Cependant, un raccourci est un fichier *.lnk, donc un
Kill "c:\....\raccourci.lnk" aurait eu le même résultat que ta source... c'est pour çà que je dis qu'il n'y a rien de nouveau, et que donc par conséquent, çà existe déjà en mutliples exemplaires.


Qu'importe, si tu veux améliorer ta source, voilà quelques conseils :
- Set WSHShell = Nothing avant de quitter le programme
- typer les variables (exemple : Dim MenudemarrerPath as string, BureauPath as string)
- supprimer la procédure SupprimerFichier et la remplacer par l'instruction Kill


@+

signaler à un administrateur
Commentaire de sergiooi le 21/04/2007 07:39:21

Salut Violent_Ken, voilà j'ai fais les modifs. Et en passant, si quelqun sait, c'est quoi l'erreur #91?
dans le test, ca marche no1 mais ,une fois compilé, à la fin de mon programme ca me dit cette erreur.J'ai fais un genre d'installateur qui copie les fichiers contenus avec dans un répertoire de windows(ex."C:\") avec des raccourcis (le tout fonctionne compilé ou non)et c'est à la suppression que j'ai ce message: Erreur d'éxécution '91'Variable objet ou variable boc WITH non définie.

J'ai tout rereregardé mon code et les variables mais il n'y a aucun "WITH" dans mon projet donc ????....

Si quelqun est plus avancé que moi (moi debutant :P ) veux bien me répondre, MERCI à l'avance.

signaler à un administrateur
Commentaire de violent_ken le 21/04/2007 09:08:32

Salut, cette erreur arrive parce que tu as du faire un :

WSHShell.quelquechose AVANT d'avoir instancié WSHShell par Set WSHShell = CreateObject("Wscript.Shell").

Ou en tout cas c'est quelque chose dans le genre ;)
@+

signaler à un administrateur
Commentaire de sergiooi le 21/04/2007 11:50:23

Je savais cela et j'ai regardé mon code et non ce n'est pas ca car tout marche et tout est dans l'ordre et j'ai meme min un set WSHShell=nothing à la fin et rien ne change. je crois que mon erreur est dans le son;
Private Sub Form_Load()
' DirectSound

Set Ds = Dx.DirectSoundCreate("")
    Ds.SetCooperativeLevel quitForm.hwnd, DSSCL_PRIORITY
    'If Err.Number <> 0 Then
    'MsgBox "Impossible de démarrer DirectSound. Vérifiez que votre carte son est bien installée."
    'End
    If Err.Number = 91 Then 'J'ai du ajouter cette "gestion" d'erreur car je ne connais pas cette erreur Mais
                            'si vous savez et etes interressé à me le dire bin Merci.
    Err.Clear
    End If
    

    bufferDesc.lFlags = DSBCAPS_CTRLFREQUENCY Or DSBCAPS_CTRLPAN Or DSBCAPS_CTRLVOLUME Or DSBCAPS_STATIC
    waveFormat.nFormatTag = WAVE_FORMAT_PCM
    waveFormat.nChannels = 2
    waveFormat.lSamplesPerSec = 22050
    waveFormat.nBitsPerSample = 16
    waveFormat.nBlockAlign = waveFormat.nBitsPerSample / 8 * waveFormat.nChannels
    waveFormat.lAvgBytesPerSec = waveFormat.lSamplesPerSec * waveFormat.nBlockAlign
    
    Set son = Ds.CreateSoundBufferFromFile(App.Path & "\boom logo.wav", bufferDesc, waveFormat)
    Volume 80

End Sub

'fonction du volume de "son"*****Pour l'erreur no 91 (mentionné ci haut), je crois que ca proviens d'ici car le son n'est pas à 80 mais à 100 quand on entend le "boom" de la fin
Public Sub Volume(ByVal vol As Long)
Dim av As Long
vol = Abs(100 - vol)
If vol < 0 Then vol = 0
If vol > 100 Then vol = 100
av = vol * (-50)

'ici on peux changer,ajouter des sons/musiques pour le controle du volume
son.SetVolume av

End Sub

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

supprimer UNE ligne dans un fichier txt [ par vince ] mon fichier texte contient par exemple 3 lignes de texte. Je souhaite supprimer la 1ere et en rajouter une à la fin (comme une mémoire déroulante).Mer Existe t-il une boite de dialogue prédéfinie pour supprimer un fichier? [ par franck ] Il en existe une pour ouvrir fichier:"opengetfilename" et une autre pour "enregistrer sous" un fichier:saveasfilename" mais en existe t-il une pour su Supprimer feuille Excel en Vb [ par sev ] Je voudrais supprimer les feuille générés automatiquement à la création d'un fichier Excel (Feuil2, Feuil3) sans qu'un message de confirmation pour la supprimer un fichier [ par flatmax ] salut, j'aimerais savoir comment supprimer un fichier, si quelqu'un connait la réponse, merci de m'aidé SUPPRIMER UN ENREGISTREMENT D'UN FICHIER SEQUENTIEL [ par Alain ] bONJOUR,Je réalise un carnet d'adresses avec un fichier à accés sequentiel.'E C R I T U R E D U F I C H I E RDim P$(50, 2)N = N + 1P$(N, 1) = Text1.Te Supprimer une valeur du registre dans un fichier REG [ par idev ] Je veux faire un fichier REG où seront effacés la RegValue et le RegData d'une RegKey.Merci d'avance pour vos réponses. Comment supprimer la première ligne dans un fichier texte? Merci:) [ par Kali ] Je crois que tout est dit dans le titre, j'ai besoin d'automatiser la suppression de la première ligne d'un fichier texte, est-ce possible?Peut-on par Comment supprimer la première ligne dans un fichier texte? Merci:) [ par Kali ] Je crois que tout est dit dans le titre, j'ai besoin d'automatiser la suppression de la première ligne d'un fichier texte, est-ce possible?Peut-on par comment avoir le fichier du papier peint sur le bureau [ par martinkk ] comment avoir le fichier du papier peint sur le bureau ?comment avoir la couleur de fond du bureau ? Comment créer un raccourcis d'exe vers le bureau de windows en VB5 [ par Turakam ] Comment créer un raccourcis d'exe (exemple : C:\monprog\prog.exe) vers le bureau de windows en VB5?Merci d'avance :)


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,359 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.