Discussion :

[maxtofurious]

Bonjour,

Je ne trouve pas pourquoi il ne fonctionne pas ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Si quelqun a la solution ...

merci d'avance

[SfJ5Rpw8]

Comment déplacer un fichier ?