cs_schoon
Messages postés2Date d'inscriptionjeudi 19 janvier 2006StatutMembreDernière intervention12 août 2006
-
12 août 2006 à 01:37
cs_Willi
Messages postés2375Date d'inscriptionjeudi 12 juillet 2001StatutModérateurDernière intervention15 décembre 2018
-
12 août 2006 à 19:06
Bonjour à tous.
Je débute en VBScript et j'ai un petit soucis. J'ai repris un peu ce que j'au trouvé sur le site pour le remettre a ma sauce mais ça e fonctionne pas. Merci d'avance de me filer un petit coup de main.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Extension = 'mp3'")
For Each objFile in colFiles
objFile.Move "c:" (c'est ici que ça coince)
Next
Je voudrais implement rechercher tous les mp3 sur mon PC et les déplacer dans un repertoire.
Merci encore.
Bon et long weekend ;-)