1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Dim objFSO, objDossier, objFichier, objResultat
Dim source, destination, deplacement
source = "D:\Source"
destination = "D:\Destination"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder(source)
Set objFichier = objFSO.GetFile(source)
'Si il y a des fichiers dans le repertoire source
If (objDossier.Files.Count > 0) Then
Wscript.Echo "Nombre de fichier : " & objDossier.Files.Count & vbCr _
& "Dossier Source : " & objDossier & vbCr & "Dossier Destination : " & destination
'pour chaque fichier dans le repertoire source
For Each objFichier In objDossier.Files
'Si le fichier est un wav alors
If (InStr(1, objFichier.Name, ".wav", 1) > 0) Then
Wscript.Echo "Nom du fichier : " & objFichier.Name
'Déplacement du film dans le repertoire destination
objFichier.move(destination) 'emplacement destination
Wscript.Echo "Fichier " & objFichier.Name & " déplacé !"
End If
Next
End If |
Partager