[VBScript] (débutant) Copie d'un répertoire réseau

Version imprimable

27/09/2005, 16h33
benoitB

[VBScript] (débutant) Copie d'un répertoire réseau
Bonjour, je souhaire recopier la totalité d'un lecteur réseau sur un disque du local :
Code:

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
27/09/2005, 17h57
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. ?
28/09/2005, 09h31
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, ...
28/09/2005, 14h45
benoitB

XP PRO

Mon script ne fonctionne pas sous XP PRO
28/09/2005, 14h49
Megaxel

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

voila tout le code

Voula tout le code :

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

28/09/2005, 15h08
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?

ca marche et ... ca marche pas

Alors après essais :

Code:

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

marche et

Code:

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

marche pas !!!

28/09/2005, 15h22
benoitB

nom de lecteur ?

Pour info le dossier

Code:

"\\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:

pao1

et le répertoire

Code:

Dossier_Service

qui est le nom de lecteur non ?
28/09/2005, 15h38
Megaxel
Non. Pour accéder à un lecteur distant en nom UNC, tu dois utiliser
Code:

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.
28/09/2005, 16h02
benoitB

copie par DOS possible
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:

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

éléments de réflexion...

Voici :

Code:

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

Ne fonctionne pas

Code:

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

Fonctionne