copie de fichier en vbs

Version imprimable

30/08/2006, 09h37
rabi

copie de fichier en vbs
bonjour

J'ai ce code qui d'habitude fonction mais la rien
Code:

1 2 3 4 Const OverWriteFiles = TRUE Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFolder "\\urbanisme\data" , "h:\d2" , OverWriteFiles
erreur 800a0005 argument ou appel procedure incorrect.

je vois pas ou ca plante merci

probléme de syntaxe pour copy folder et les noms UNC :

PRB : CopyFolder Syntax est différent pour chemins UNC et chemin d ..
Code:

1 2 3 4 5 6 Const OverWriteFiles = TRUE Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFolder "\\urbanisme\data\*" , "h:\d2" , OverWriteFiles objFSO.CopyFile "\\urbanisme\data\*" , "h:\d2" , OverWriteFiles

30/08/2006, 10h05
ced600

Code:

objFSO.CopyFolder "\\urbanisme\data" , "h:\d2" , OverWriteFiles

"\\urbanisme\data" me semble incorrecte comme chemin. Si urbanisme represente une machine distante, alors tu ne peut pas le faire ainsi. L'objet FileSystemObject gere le systeme de fichier local.

Merci pour les reponse

Le probleme n'etait pas du au code mais a l'acces des fichier qui son en cours d'utilisationpar msq .

Pour repondre a cedric la syntax est bonne , je l'ai deja utilise et pas de probleme pour la copy

merci a bbil pour la doc sur MS , je vois pas trop la difference car le caractere

voici un code que j'utilse et qui tourne pour infos

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
 
dim dossier
 
dossier=   day(now)& "-"  &  month(now)& "-"& year (now)
 
Set objFSO = CreateObject("scripting.FileSystemObject")
 
 
Set objFolder = objfso.createfolder("\\Serveur-donnees\longitude$\"&dossier)
 
 
 
 
                ' copie des fichier longitude
 
Const OverWriteFiles = TRUE
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "D:\Sedit\export\SMPROD" , "\\Serveur-donnees\longitude$\"&dossier, OverWriteFiles
 
 
                    ' compression des fichiers
 
'Set fso = CreateObject("Scripting.FileSystemObject")
'set shl = createobject("wscript.shell") 'variable shell run
 
'shl.run "cmd  /c gzip -9rf f:\bodetbd\"&day(now)& "-"  &  month(now)& "-"& year (now) 'commande de gzip
 
 
'D:\Sedit\export\SMPROD \\Serveur-donnees\longitude$\%yyyy%_%mm%_%dd%\*.* /s /v /y

merci a +