fs.copyfile

Version imprimable

fs.copyfile

Bonjour, j utilise la methode fs.copyfile de cette façon mais j ai un bug

Code:

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
private sub button OK ()
Dim fs
set fs = CreateObject("Scripting.filesystemObject")
....ici 
....plein de ligne de code
.....
.....

select case true
case combobox = A
PCF3 = "D:\......."
case combobox = B
PCF3 = "D:\......."
case combobox = C
PCF3 = "D:\......."
case combobox = D
PCF3 = "D:\......."
end select
Mkdir PCF3  
origine = "D:\....."
Destination= PCF3 & "\"
fs.copyfile origine, destination


...ici 
..plein 
...de 
...ligne de code
' et la j ai encore une utilisation de fs


select case true 
case combobox = A
 fs.movefolder "D:\.....", "D:\....."
case combobox = B
fs.movefolder "D:\.....", "D:\....."
case combobox = C
fs.movefolder "D:\.....", "D:\....."
case combobox = D
fs.movefolder "D:\.....", "D:\....."
end select
set fs nothing 

end sub

le bug est en jaune , si vous avez une idée merci!!!!

est ce qu il faut que je mette:

Code:

1
2
3
4
5
6
dim fs 
set fs =  createobject ("Scripting.FileSystemObject")
origine =....
destination =...
fs.copfile origine, destination 
set fs = nothing

ou alors je peux :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
dim fs 
set fs =  createobject ("Scripting.FileSystemObject")
origine1 =....
destination1 =...
fs.copfile origine1, destination1 
 
origine2 =....
destination2 =...
fs.copfile origine2, destination2 
 
origine3 =....
destination3 =...
fs.copfile origine3, destination3 
 
set fs = nothing
.
.
.
.

29/02/2008, 14h03
tomy7

solution
j ai eu un bug car j oubliais de mettre:
Code:

1 2 D:\.....\nini*.*
29/02/2008, 14h08
ouskel'n'or

Pour moi tu inverses les termes. Si je regarde l'aide, j'ai ça

Citation:

Envoyé par l'aide (extrait)

Copy, méthode
Copie un fichier ou un dossier spécifié d'un emplacement vers un autre.

Syntaxe :
object.Copy destination[, overwrite]

Remarques
Le résultat de la méthode Copy sur un objet File ou Folder est identique à celui de FileSystemObject.CopyFile ou FileSystemObject.CopyFolder où le fichier ou le dossier référencé par object est passé en argument. Notez cependant que ces méthodes alternatives sont capables de copier plusieurs fichiers ou dossiers.

destination est en première position.
Tu vois...
A+

PS - N'oublie pas d'indiquer le chemin...
29/02/2008, 15h23
tomy7

re

non non , j avais juste oublier le *.* mais mtn s amarche du tonnerre.

merci qd meme...