Discussion :

[rabi]

bonjour

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

Code :

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

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

[SfJ5Rpw8]

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

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

Code :

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

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

[ced600]

Code :

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

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.

[rabi]

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 :

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