Bonjour,
Tout d'abord merci à celles et ceux qui me liront jusqu'au bout et qui pourront m'aider 
en fait, je n'y connais pour ainsi dire rien en VBS ou presque, mais j'ai besoin de faire la chose suivante :
- dans un dossier C:\test\Default Pictures\, pouvoir sélectionner 1 fichier *.BMP de façon aléatoire parmi tous ceux qui y sont présents.
- copier ce fichier *.BMP en tant que USER.BMP, dans C:\test\
j'ai testé plusieurs choses en cherchant sur le net, mais je m'en sors pas du tout.
j'ai pour le moment ceci :
Citation :
Set WshShell = WScript.CreateObject("Wscript.Shell" )
vProgData = WshShell.ExpandEnvironmentStrings("%systemdrive%" )
Set objShell = CreateObject("Shell.Application" )
Set objFolder = objShell.Namespace(vProgData & "\test\Default Pictures\" )
Set colItems = objFolder.Items
Randomize
For i = 1 To colItems.Count
objNbr = Int(colItems.Count * Rnd + 1)
Next
MsgBox objNbr (c'était pour vérifier qu'il sort bien un chiffre aléatoire en fonction du nombre de fichiers BMP présents, ce qui a été le cas)
objApp = colItems.Item(objNbr) (erreur, pourtant en remplaçant objNbr par 2 pour tester, il me sort le nom du 2e fichier, vu avec une MsgBox)
objshell.Run "cmd /c COPY /Y objFolder\Default Pictures\objApp objFolder\user.bmp" (erreur, mais je vois pas trop comment faire cette copie vu qu'au dessus ça ne marche déjà plus)
|
Par avance merci BCP pour toute aide qui me débloquera.
Message édité par r0sWell le 05-10-2009 à 23:21:19
---------------
i want to believe ....
FORUM HardWare.fr
