LAB - créateur de menus ! | Créez des menus pour vos DivX | Créez des menus autorun pour vos CDs

NGSoft-fr.com > MenusLAB.com : LAB - créateur de menus !

NGSoft-fr.com I Accueil I Téléchargements I Trucs et astuces I F.A.Q. I Centre d'aide
Forum I Suport/Contact I Livre d'or I Diffusions I Dons I Plan

Rejoindre les 10996 utilisateurs priviliègés gratuitement

Ouvrir/Fermer (méthode compliquée)

Cette méthode est plus compliquée, utilisez donc l'autre de préférence.

Dans l'éditeur de code VBS (d'un bouton par exemple), entrez ceci :
set shell=CreateObject("Shell.Application")
'Set Lecteur=ScanFolder(17, "(D:)") 'remplacer par votre lettre de lecteur
'Lecteur.invokeVerb("Éje&cter")
Set Lecteur=ScanFolder(17, "(F:)") 'remplacer par votre lettre de lecteur
Lecteur.invokeVerb("Éje&cter")

'Entrez ceci dans les 'Déclarations globales' :

Function ScanFolder(vDir, Element)
set folder = Shell.NameSpace(vDir)
For i = 0 to Folder.Items.Count-1
     If Instr(lcase(folder.items.item(i)),lcase(Element))>0 then
         Set ScanFolder=folder.items.item(i)
         exit for
     End If
Next
If Not ISObject(Scanfolder) Then
     Wscript.Quit
     End IF
End Function

Ce script a été tiré d'un PC Expert.

Commentaires sur l'article :

Retour au menu

accès aux pages

Pour obtenir le Banner explode ID de ce site cliquez ici !