Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 17 03:50:28

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

Fichier / Disque

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

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

Information sur la source

Note :
Aucune note

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 :19 966

Auteur : sergiooi

Ecrire un message privé

Site perso

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. :)

Sources de la même categorie

MODIFIER LES EXTENSION DES FICHIERS par okosa

ROUTINE DIR RÉCURSIVE POUR OBTENIR LA LISTE DE TOUS LES FICH... par kerisolde

FILE,SECURITY,FICHIER par okosa

PATCHEUR DE FICHIER par tototh

LECTURE DES INFORMATIONS DES DISQUES COMPOSANT UN ENSEMBLE R... par jack

Toutes les sources de la catégorie Fichier / Disque

Sources en rapport avec celle ci

LE DÉFLÈCHEUR par dheroux

PROGRAMME POUR SUPPRIMER LES FICHIERS INTERNET TEMPORAIRES par LHAKEI

RÉCUPÉRER LES RACCOURCIS DU BUREAU (VBA) par The Mailman

TROUVER LE FICHIER LIÉ À UN RACCOURCI par frank150

JOGICONES, PROGRAMME POUR GÉRER LES RACCOURCIS par mfourcade

Commentaires et avis

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.*"

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...

@+

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

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.

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.

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

@+

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.

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 ;)
@+

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 un fichier Texte sous VB 6 [ par chwem ] Bonjour à tous, Je suis en train de développer un lecteur média sous VB6, et je souhaite supprimer un fichier texte. J'ai trouvé ce code sur le net création de raccourcis de bureau pour profils itinérants [ par zilbadmin ] je suis administrateur réseau dans un collège, j'ai une confique win serveur 2003 avec active directory et des profils itinérants pour chaquns des 800 supprimer doublons streamreader [ par AlexTheDoctor ] Bonjour tout le monde.Je voudrai savoir comment je pourrai supprimer des doublons dans un fichier txt (streamreader)exemple fichier : abcdaabedet je v Raccourcis sur bureau et dans la barre de lancement rapude [ par jytest ] Bonjour à tous !J'ai passé plusieurs heures à chercher l'introuvable sur vbfrance...Donc à l'aide, svp.J'ai un programme "statPACK.exe" que je dois co Supprimer ligne d'un fichier .txt en fonction d'un controle de listbox [ par stageVB6 ] Bonjour à tousVoila je vous explique le problème : -J'ai un fichier RDV.txt -J'ai 6 listbox regroupées dans un même controle ( Liste1(0) à Liste1( supprimer des fichier de plus de 2 ans [ par gosub59 ] Salut les programmeursje suis en train de développer un programme de gestion de consignation électrique dans mon usine, il utilise conjointement: acce VB.Net supprimer un fichier [ par MagDix ] Bonjour Je dois effacer un fichier qui, selon VB, le fichier est en cour d'utilisation. J'utilise un ListBox qui contient toutes les images d'un r supprimer les barres dans un fichier excel [ par stann29 ] Bonjour à tous, voilà :J'ai fais des recherches mais je n'ai pas trouver le bon code.je voudrais simplement, dans un fichier seulement, et pas sur d'a Supprimer un fichier après impression [ par jfuck ] Hello,Je voudrais supprimer un fichier que je viens d'imprimer.Le probleme c'est qu'un utilisant kill, le process d'impression n'est pas terminé meme supprimer un fichier favoris selectionner d'un treeview [ par Triboutmatthieu ] Bonjour j'ai un treeview qui afiche tous mes favoris.J'ai créer un bouton pour supprimer un fichier selectionner dans le treeview voici le codeTreeVie

Nos sponsors

Derniers Blogs

ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi

PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff

OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg

PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc

PRéSENTATION DES API REST DE WINDOWS AZURE : 1èRE éTAPE, LE CERTIFICAT par richardc

Forum

RE : PROBLEME PROCEDURE FERMETURE FORM par Renfield

RE : PROCESSUS "INTUABLE" par acive

RE : PROCESSUS "INTUABLE" par ghighidu63

RE : PROCESSUS "INTUABLE" par acive

RE : PROCESSUS "INTUABLE" par ghighidu63

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Configuration de Virtuemart pour Fianet
Budget : 300€
Creation d-une application web Prediction Energy Tool-CDC DISPONIBLE-REPUBLICATION
Budget : 12 000€
Finalisation site d-encheres au centime
Budget : 2 800€

Logiciels

DocTranslate (V3.1.0.0)
DOCTRANSLATE (V3.1.0.0)

DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom...

Cliquez pour télécharger DocTranslate
Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System