Discussion :

[benoitB]

Bonjour, je souhaire recopier la totalité d'un lecteur réseau sur un disque du local :

Code :

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

1
2
3
4
5
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
IF objFSO.FolderExists("\\pao1\Dossier_Service") THEN
	objFSO.CopyFolder("\\pao1\Dossier_Service", "F:\Dossier_Service")
END IF

L'erreur est le caractère 69 de la ligne de recopie avec le numéro d'erreur 800A0414 : L'appel d'une fonction Sub n'admet pas de parenthèses.

Sans les parenthèses c'est l'erreur numéro 800A0005 Argument ou appel de procédure incorrect

Des idées ? Merci

[Megaxel]

Je viens de tester ton script.
Avec les parenthèses, j'ai la même erreur que toi, mais en les enlevant, ça fonctionne... (Mais j'ai laissé les guillemets.)
C'est bizarre...
Tu travailles sur quel O.S. ?

[AlainTech]

Comportement habituel dans l'environnement VB(S/A).

Si on envoie plus d'un paramètre entre parenthèses à une Sub, VB interprète la commande comme l'appel à une Function.

Voici les 3 syntaxes possibles:

Résutat = AppelFunction(Paramètres)

AppelSub = (1 seul paramètre)

AppelSub Param1, param2, ...

[benoitB]

Mon script ne fonctionne pas sous XP PRO

[Megaxel]

Je suis sous XP Pro, et ça marche.
Tu veux nous envoyer ton code SANS les parenthèses, s'il te plait?

[benoitB]

Voula tout le code :

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
Function myBackup (TypeDeSauvegarde)
	Dim objFSO
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
 
	' Effacement du répertoire "F:\BACKUP" si il existe
	IF objFSO.FolderExists("F:\BACKUP") THEN
		objFSO.DeleteFolder "F:\BACKUP"
	END IF	
	' Renommage de l'ancien répertoire DESTINATION "F:\Dossier_Service"
	objFSO.MoveFolder "F:\Dossier_Service", "F:\BACKUP"
	' Création d'un répertoire destination vierge
	objFSO.CreateFolder("F:\Dossier_Service")
 
	Dim TailleSource
	IF objFSO.FolderExists("\\pao1\Dossier_Service") THEN
		objFSO.CopyFolder "\\pao1\Dossier_Service", "F:\Dossier_Service"
		TailleSource = 1
	ELSE
		TailleSource = -1
	END IF
 
	' Log file : durée de la tâche
	Dim LogFile
	Set LogFile = objFSO.OpenTextFile(sBackupLogFile, 8, True, TristateFalse)
	LogFile.WriteBlankLines(1)
	LogFile.Write(Date & ";" & Time & ";myBackup;" & get_UserName() & ";" & get_UserDomain() & ";" & get_ComputerName() & ";" & TailleSource)
	LogFile.Close
End Function

TailleSource me permet de voir dans le fichier log que le répertoire pao1 est bien vu par ma fonction

[Megaxel]

Et le DeleteFolder marche, lui?
Tu n'aurais pas un problème de droit sur "Dossier_Service"? D'ailleurs, ça doit être un nom de partage, ça? Si tu remplaces ça par un lecteur réseau, ça ne vas pas mieux?

[benoitB]

Alors après essais :

Code :

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

1
2
3
IF objFSO.FolderExists("\\pao1\Dossier_Service") THEN
	objFSO.CopyFolder "F:\Dossier_Service", "F:\OLD_Dossier_Service"
END IF

marche et

Code :

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

1
2
3
IF objFSO.FolderExists("\\pao1\Dossier_Service") THEN
	objFSO.CopyFolder "\\pao1\Dossier_Service", "\\pao1\OLD_Dossier_Service"
END IF

marche pas !!!

[benoitB]

Pour info le dossier

Code :

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

"\\pao1_Dossier_Service"

est situé sur un PC réseau pao1 dans lequel il y a un disque dur ayant ce fameux répertoire "Dossier_Service", mais maintenant que j'y réfléchis il manque peut-etre le lien entre le nom du PC

Code :

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

pao1

et le répertoire

Code :

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

Dossier_Service

qui est le nom de lecteur non ?

[Megaxel]

Non. Pour accéder à un lecteur distant en nom UNC, tu dois utiliser

Code :

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

1
2
 
\\NomMachine\NomPartage

éventuellement suivi du nom du sous-répertoire.
Et sur la machine distante, il DOIT y avoir un partage, qui correspond à un répertoire, mais peut avoir un nom différent.
Par exemple, sur la machine "pao", le répertoire
"C:\Local\Test" peut être partagé sous le nom "MonPartage".
Tu y accèdes alors depuis une autre machine par
\\pao\MonPartage

En plus, les droits sont gérés à la fois sur le partage ET sur le répertoire...
Il faut vérifier tout ça.

[benoitB]

J'ai essaye en commande dos :
copy \\pao1\Dossier_Service\*.* F:\DESTINATION
et toutest copié.....
Donc :
- J'ai les droits (de copie) bon c'est moi qui administre les partages alors heureusement
- J'y ai accès

J'en déduis que ma syntaxe, ou mes syntaxes ne sont pas correctes :

Code :

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

1
2
3
objFSO.CopyFolder "\\pao1\Dossier_Service", "F:\DESTINATION",  OverWriteFiles
 
objFSO.CopyFolder "Y:", "F:\DESTINATION",  OverWriteFiles

[benoitB]

Voici :

Code :

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

1
2
3
IF objFSO.FolderExists("\\pao1\Dossier_Service") THEN
	objFSO.CopyFolder "\\pao1\Dossier_Service", "F:\TOTO"
END IF

Ne fonctionne pas

Code :

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

1
2
3
IF objFSO.FolderExists("\\pao1\Dossier_Service") THEN
	objFSO.CopyFolder "F:\TOTO", "\\pao1\Dossier_Service"
END IF

Fonctionne