SUPPRIMER UN RACCOURCI DU BUREAU ET/OU DU MENU DÉMARRER
Utilisateur anonyme
-
19 avril 2007 à 11:57
cs_sergiooi
Messages postés53Date d'inscriptionvendredi 6 octobre 2006StatutMembreDernière intervention 7 octobre 2009
-
21 avril 2007 à 11:50
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_sergiooi
Messages postés53Date d'inscriptionvendredi 6 octobre 2006StatutMembreDernière intervention 7 octobre 2009 21 avril 2007 à 11:50
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
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
violent_ken
Messages postés1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 20102 21 avril 2007 à 09:08
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 ;)
@+
cs_sergiooi
Messages postés53Date d'inscriptionvendredi 6 octobre 2006StatutMembreDernière intervention 7 octobre 2009 21 avril 2007 à 07:39
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.
violent_ken
Messages postés1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 20102 19 avril 2007 à 20:47
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
@+
cs_sergiooi
Messages postés53Date d'inscriptionvendredi 6 octobre 2006StatutMembreDernière intervention 7 octobre 2009 19 avril 2007 à 20:39
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.
cs_sergiooi
Messages postés53Date d'inscriptionvendredi 6 octobre 2006StatutMembreDernière intervention 7 octobre 2009 19 avril 2007 à 20:36
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.
MadM@tt
Messages postés2167Date d'inscriptionmardi 11 novembre 2003StatutMembreDernière intervention16 juillet 20091 19 avril 2007 à 13:26
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
violent_ken
Messages postés1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 20102 19 avril 2007 à 12:42
"É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...
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.*"
21 avril 2007 à 11:50
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
21 avril 2007 à 09:08
WSHShell.quelquechose AVANT d'avoir instancié WSHShell par Set WSHShell = CreateObject("Wscript.Shell").
Ou en tout cas c'est quelque chose dans le genre ;)
@+
21 avril 2007 à 07:39
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.
19 avril 2007 à 20:47
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
@+
19 avril 2007 à 20:39
"É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.
19 avril 2007 à 20:36
SupprimerFichier BureauPath & "\LENOMDETONRACCOURCIS.pdf" si il sagit d'un pdf ou
SupprimerFichier BureauPath & "\LENOMDETONRACCOURCIS.txt" si il sagit d'un document texte. ect ect.
19 avril 2007 à 13:26
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
19 avril 2007 à 12:42
@+
19 avril 2007 à 11:57
SupprimerFichier BureauPath & "\LENOMDETONRACCOURCIS.*" ' ou LENOMDETONRACCOURCIS.ink
' (chez moi seulement le .* fonctionne.
SupprimerFichier MenudemarrerPath & "\LENOMDETONRACCOURCIS.*"