Discussion :

[tomy7]

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

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
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!!!!

[tomy7]

est ce qu il faut que je mette:

Code :

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

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 :

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
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
.
.
.
.

[tomy7]

j ai eu un bug car j oubliais de mettre:

Code :

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

1
2
 
D:\.....\nini*.*

[ouskel'n'or]

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

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...

[tomy7]

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

merci qd meme...