Discussion :

[erforceone]

Bonjour, dans le cadre d'un projet personnel, je souhaiterai copie des fichiers vers mon serveur de fichiers à chaque fermeture de session. J'ai avancé sur une grosse partie du projet mais il me manque une étape: je ne sais pas comment comparer deux fichiers en fonction de leur dernière mise à jour. En fait, pour éviter que mon système recopie tous les fichiers, je veux qu'il vérifie si le fichier existe ou non avant de le copier. S'il hésite, alors il doit vérifier la date de modification du fichier pour voir s'il doit le copier ou non. Merci de votre aide.

[DAUDET78]

Tu as la solution de la commande DOS

Code :

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

1
2
3
4
5
6
7
8
 
FichierDate$ = Toto.txt
' suppression du fichier par sécurité
on error resume next
Kill FichierDate$
on error goto 0
 
shell ("DIR>"+FichierDate$)

qui te retourne dans le fichier Toto.txt, le résultat de la commande DIR
Il n'y a plus qu'a interpréter le contenu du fichier.
ATTENTION : La commande shell redonne la main avant que la commande soit totalement exécutée. Donc il faut vérifier que la longueur du fichier est différente de zéro et stable avant de l'étudier

[ucfoutu]

Bonsoir,

Regarde dans ton aide en ligne :

La fonction FileDateTime (qui te retourne la date de création ou de dernière modification)
La fonction Dir (qui te permet de savoir si un fichier existe)

[pc75]

Bonjour,

Ou encore la propriété DateLastModified de l'objet FileSystemObject

[erforceone]

d'accord avec DateLastModified, j'ai trouvé cette information sur un site. Par contre comment faire la syntaxe pour qu'il compare la derniere modification entre mon tablo local et tablo serveur. En faite, avan de faire la comparaison, jai récupéré la liste des fichier du poste local vers le tablo local et jai récupéré la liste des fichiers du serveur ver le tablo serveur.
Merci, désolé vu que c'est la premiere foi que j'utilise le vbs

[pc75]

Re,

Un extrait de MSDN :

DateLastModified, propriété


Description

Renvoie la date et l'heure de dernière modification du fichier ou du dossier spécifié. Lecture seule.

Syntaxe

object.DateLastModified

L'argument object représente toujours un objet File ou Folder.

Remarques

Le code suivant illustre l'emploi de la propriété DateLastModified avec un fichier :

Sub AfficheInfoAccesFichier(specfichier)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
s = UCase(specfichier) & vbCrLf
s = s & "Créé le : " & f.DateCreated & vbCrLf
s = s & "Dernier accès le : " & f.DateLastAccessed & vbCrLf
s = s & "Dernière modification le : " & f.DateLastModified
MsgBox s, 0, "Infos d'accès au fichier"
End Sub

Tu récupères la date pour les deux fichiers et tu utilises la fonction DateDiff

[erforceone]

merci a toi pc75, je vais essayer ca! cordialement