Discussion :

[SergioMaster]

Question bête peut-être , mais actuellement je n'ai aucun réseau pour tester cette demande .

Voici le topo :

Sur un réseau local hétérogène (enfin soyons précis uniquement des Windows mais de 95 à Vista en passant par NT et cie) je me retouve avec plusieurs versions d'un même programmes suite à des mise à jour ratées ou oubliées (postes nomades, postes défunts au moment de l'upgrade etc ... je vous laisse à votre imagination débridée) . J'ai donc décidé d'avoir un PC "référence" contenant toujours les dernières versions de façon à pouvoir vérifier (et mettre à jour si besoin ) les dates de version.

La question est donc est-il aussi facile d'obtenir la date du fichier sur mon PC de référence aussi facilement que sur le PC demandeur ?

par exemple comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
function DateFichier(Fichier : String) : LongInt;
  var FHandle : Integer;
  begin
    FHandle := FileOpen(Fichier, fmOpenRead);
    if FHandle>=0 then Result:= FileGetDate(FHandle)
                  else Result:=0;
    FileClose(FHandle);
  end;

aux bonnes âmes qui pourraient tester cette fonction

[Aka Guymelef]

Hello Sergio,

j'ai essayé ta fonction pour récupérer la date sur des fichiers distants sur le réseau local de mon entreprise. J'ai testé avec des chemins complets (\\192.168.X.X\xxx) ou bien avec des chemins utilisant des lecteurs réseaux et dans les deux cas cela fonctionne.

Testé avec un serveur Win2000 et WinServer2003.

[SergioMaster]

Merci Aka Guymelef, cela me retire une épine du pied

je vais donc noter comme résolu , mais toute bonne "âme" est bienvenue