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 |
Diaporama 2, encore mieux :DL'avantage de ce diaporama par rapport au premier, c'est qu'il est plus simple à configurer et surtout plus pratique car il suffit d'indiquer le répertoire ou sont les images plutot que d'indiquer les images une par une... Après avoir créé un bouton VBS, ajoutez ce code : Public Sub lancer_diapo(chemin) Set fso=CreateObject("Scripting.FileSystemObject") Set rep = fso.GetFolder(chemin) Set fich=fso.createtextfile("diapo.m3u") Set lf = rep.Files For Each file In lf extension=right(file,3) if extension="jpg" or extension="gif" or extension="bmp" or extension="peg" then fich.writeline file end if Next fich.close Set exe_f = CreateObject("WScript.Shell") exe_f.Run("mplayer2.exe diapo.m3u") End Sub Ensuite pour le démarrer, tapez ceci : lancer_diapo "c:\mes documents\" 'pour voir toutes les images de c:\mes documents\ ou lancer_diapo "[LECT]:\images\" 'pour voir les images du répertoire images du lecteur en cours (et ainsi du futur CD). etc... Commentaires sur l'article : Retour au menu |