Discussion :

[cyberneo]

Bonjour tous le monde, je suis sur la creation d'un sripte qui permet de copier des fichier d'un repertoir a un autre en respectant l'arborecance par rapport a un point donnée.
Grace a votre aide et a la faq j'ai pu creer une fonction recursive qui permet de scanner le dossier ou les fichiers se situe (car je ne copie pas tout), une autre fonction qui permet de creer une arborescance grace a un chemin donné, ensuite dans une fonction de traitement des fichier je tente la copie selon les critéres.

Mais voila je récupére une erreur code a cette ligne....
Je ne comprend pas pourtant j'ai deja utilisé cette methode pour copier et je n'ai pas eu de souci, j'ai vérifier le chemin et le fichier que j'essaye de copier, tout est bon.... help me please c'est vraiment urgent ....

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
 
Dim oFSO,oFld, chemin
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\travail\compile\vers.1.0.3966\src"
LectRep stRep 
 
'
' Fonction récursive de parcours de répertoire
'
Sub LectRep (stR )
 For each oFld in  oFSO.GetFolder(stR).SubFolders
   ListeFichier (oFld.PATH)   
   LectRep oFld.PATH
 Next
end sub
'
' Listing des fichiers du répertoire
'
Sub ListeFichier (stR)
dim temp, extension, arbodestfin, arbodest, oFl,repcreat
 For each oFl in  oFSO.GetFolder(stR).Files
   temp = oFl.Name
   extension = right(temp,len(temp)-instr(1,temp,"."))
   if left(extension,3) = "hbm" then extension = right(extension,3)
   if extension ="xml" or extension ="properties" then
		temp = oFl.parentFolder
		arbodest=right(temp,len(temp)-instr(1,temp,"src"))
		arbodestfin= "c:\travail\compile\vers.1.0.3966\novanet\WEB-INF\classes\"&arbodest
		if not oFSO.FolderExists(arbodestfin) then 
		msgbox arbodestfin
		CreerRep(arbodestfin)
 
' plante ici
		oFl.copy arbodestfin ,true
		else
' ou ici
		oFl.copy arbodestfin ,true
		end if
	end if
 Next
End sub
 
Sub CreerRep(Chemin)
	If Not ofso.FolderExists(chemin) Then
		CreerRep(ofso.GetParentFolderName(chemin))
		ofso.CreateFolder(chemin)
	End If
End Sub

[cyberneo]

j'ai reussi en passant par la methode fso.copyfile source, dest mais bon ca marchais avant :s