Synchronisation de dossier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Synchronisation de dossier

daniel-12

Bonsoir

je cherche une solution pour synchroniser 2 répertoires

le premier sur C:monrepsource....
le second sur un serveur T:monrepdestination

pour la destination je préfère que le script accepte \servermonrepdestination
car tous les utilisateurs non pas forcément la même lettre

je voudrais que ce soit automatique pour que je puisse le lancer via des taches planifiées, donc exit les vbs qui me demande la source et destination

et il faudrait aussi que les sous-répertoire soit pris en compte

quelqu'un a cela, en VBS ou VBA ?

j'ai trouvé celui ci, mais il tourne en boucle, écrit et ré-efface
mais j'ai 30go, donc ca va pas le faire sans adaptation

Code :

'Synchronizes one folder to another using the xcopy command.
'INSTRUCTIONS: Copy FolderSync.vbs to the Startup menu in Windows.
' Set SourceFolder to reference the location on your computer.
' Set TargetFolder to reference the location to copy files to.
' Adjust scan time to a desired level. 3 seconds (3000) is default.
' More time may reduce system lag or HDD lag, less time will make
' files more quickly available.
Dim SourceFolder: SourceFolder = "F:DCIM"
Dim TargetFolder: TargetFolder = "H:" '\servershare also works
Dim ScanTime: ScanTime = 3000
'Do not edit
Dim retval: retval = 0
Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set wshShell = WScript.CreateObject ("WSCript.shell" )
While retval = 0
retval = wshshell.run("%windir%system32xcopy.exe """&SourceFolder&"*.*"" """&TargetFolder&""" /d /y /s", 0, True)
CheckDeletions TargetFolder,TargetFolder, SourceFolder
WScript.Sleep(ScanTime) 'milleseconds
Wend
set wshshell = Nothing 'it will never get here.
Sub CheckDeletions(Target, TargetFolder, SourceFolder)
Set Folder = objFSO.GetFolder(Target)
'check if source folder exists
If Not objFSO.FolderExists(Replace(Folder.Path,TargetFolder,SourceFolder)) Then
Folder.Delete True 'delete folder because it doesn't exist in the source
Else 'check within the folder
For Each Subfolder in Folder.SubFolders
CheckDeletions Subfolder.Path,TargetFolder,SourceFolder
Next
'get the files in the folder
Set colFiles = Folder.Files
For Each objFile in colFiles
If Not objFSO.FileExists(Replace(objFile.Path,TargetFolder,SourceFolder)) Then
objFile.Delete True 'delete file because it doesn't exist in the source
End If
Next
End If
End Sub

Publicité

steph78630

Bonjour,

cette fonction en VBScript va demander un peu (!) de code, et sinon Robocopy sait faire cela de façon optimale en une ligne de commande.

Message édité par steph78630 le 08-05-2018 à 10:11:23

---------------
"L'erreur est humaine mais un véritable désastre nécessite un ordinateur." de William Henry, dit Bill Gates

daniel-12

depuis que j'ai posté, j'ai testé d'autres solutions
ce que je voulais est une solution portable, légère

j'ai trouvé FreeFileSyncPortable, qui me semble pas mal
forcément plus lourd qu'un simple VBS, mais compréhensible par tous, et visuel
l'edition d'un VBS par un utilisateur lamba, c'est pas l'idéal

robocopy, il faut l'installer, cela ne me vas pas

Message cité 1 fois

steph78630

daniel-12 a écrit :

robocopy, il faut l'installer, cela ne me vas pas

Daniel, je me souviens en effet qu'il fallait l'installer à partir du Resource Kit (cf. NT 4.0 / W2k) cependant depuis Windows Vista, Robocopy ne s'installe plus car intégré à l'installation de Windows (natif en ligne de commande).

Si je puis me permettre, ça me semble difficile de faire plus léger et performant (options miroir, incrémental, purge des fichiers orphelins, compression, etc.), mais pas de soucis l'essentiel est que vous ayez trouvé une solution qui vous convienne.

Bien cordialement, Stéphane

Message édité par steph78630 le 08-05-2018 à 18:42:52

---------------
"L'erreur est humaine mais un véritable désastre nécessite un ordinateur." de William Henry, dit Bill Gates

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Synchronisation de dossier

Sujets relatifs
Logiciel de synchronisation	Partage de dossier sur Windows 7 Embedded
Déplacer des fichiers -> dossier avec une partie du nom des fichiers	Récupérer date et heure de modification de dossier dans FTP
Extraire certaines parties PDF d'un dossier vers Excel	Section "Ajouts récents" - Synchronisation ?
Copie et suppression dossier FTP tout les jours	versionner le dossier vendor
Faire une recherche d'un dossier	Java : Problème affichage à partir d'un dossier txt
Plus de sujets relatifs à : Synchronisation de dossier

Page générée en 0.056 secondes