[VBS] Sélectionner un fichier au hasard et le copier (SVP)

Marsh Posté le 05-10-2009 à 23:16:27

Bonjour,

Tout d'abord merci à celles et ceux qui me liront jusqu'au bout et qui pourront m'aider :jap:

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

Message édité par r0sWell le 05-10-2009 à 23:21:19

---------------
i want to believe ....

Marsh Posté le 05-10-2009 à 23:16:27

Marsh Posté le 07-10-2009 à 15:48:56

sujet à fermer :jap:

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *