Date d'un fichier sans ouvrir le fichier

[olivier]

Salut à tous les programmeurs, et tout ceux qui aident les débutants dans leur tache....
Voila , j'ai besoin de connaitre la date de fichier créer, j'ai recherché dans le forum et j'ai trouvé coment faire (Merci Nico)

Je n'ai pas bien compris celui là, mais j'ai l'impression qui ne résouderas pas mon problème! (Merci Denis de me contredire si je me trompe)
Code:
#Date = "dd'/'MM'/'yyyy"

FileTimeToLocalFileTime_(FileInfos\ftLastWriteTime, @OutPut.l)
FileTimeToSystemTime_(@OutPut, @OutPutSystemTime.SYSTEMTIME)
GetDateFormat_(2048, 0, @OutPutSystemTime, #Date, @String1, 256)
GetTimeFormat_(2048, #TIME_FORCE24HOURFORMAT, @OutPutSystemTime, 0, @FileDateTime, 256)
String1 + " " + FileDateTime

Le problèeme est qu'avec ton code (Nico) je suis obligé d'ouvrir le fichier !
Et lorsqu'il est en lecture seule il ne veut pas !!

Les solutions
1°) Mettre l'option qui va bien pour pouvoir ouvrir un fichier en lecture seul
2°) Tester le fichier, si il est en lecture seul changer son attribut et le remettre apres
3°) Obtenir la date autrement....

PS : Je n'ai besoin que de la date de dernière modification dans le but d'une synchronisation de deux répertoire.

Merci d'avance pour votre aide et longue vie à Purebasic !!!!

[Anonyme2]

Je n'ai pas bien compris celui là, mais j'ai l'impression qui ne résouderas pas mon problème! (Merci Denis de me contredire si je me trompe)
Code:
#Date = "dd'/'MM'/'yyyy"

FileTimeToLocalFileTime_(FileInfos\ftLastWriteTime, @OutPut.l)
FileTimeToSystemTime_(@OutPut, @OutPutSystemTime.SYSTEMTIME)
GetDateFormat_(2048, 0, @OutPutSystemTime, #Date, @String1, 256)
GetTimeFormat_(2048, #TIME_FORCE24HOURFORMAT, @OutPutSystemTime, 0, @FileDateTime, 256)
String1 + " " + FileDateTime

Salut Olivier,

le code ci-dessus est faux car la variable OutPut.l ne doit pas être de type long mais basée sur la structure Filetime (pourtant le code fonctionne avec le débugger activé mais plante sans le débugger).

Code : Tout sélectionner

 FileTimeToLocalFileTime_(FileInfos\ftLastWriteTime, @OutPut.l)

sinon ce code permet de récupérer les dates des fichiers et l'heure au format local c'est-à-dire en tenant compte de l'heure d'été/hiver.

Mais je ne suis pas sur (je n'ai pas testé) que ça fonctionne avec des fichiers ouverts (dépend surement du type d'ouverture)

Sinon j'ai posté un code ici (c'est un peu long) sur le forum ou j'énumère le contenu d'un dossier avec la date des fichiers. J'ai du utiliser l'API windows CreateFile_ pour récupérer le handle de certains fichiers qui n'apparaissaient pas dans la liste avec la commande PureBasic.

J'espère que ça va t'aider (le code est un peu long et pas forcément simple à comprendre)

La procédure qui t'intéresse c'est LectureDossier()

[nico]

Salut Olivier et bienvenue sur le Forum,

Le code que j'ai posté fonctionne, seulement pour ouvrir le fichier, j'utilise OpenFile qui est une fonction pour Lecture et écriture sur fichier, alors que si tu le remplaces par ReadFile, il n'y aura pas de problème car cette fonction ne peut être utilisé pour modifier le fichier.

Donc en résumé, remplace OpenFile par ReadFile.

[Jacobus]

salut

tu peux aussi utiliser

Code : Tout sélectionner

ExplorerListGadget

qui te listera les fichiers que tu veux avec les renseignements
qui t'intéressent. Avec

Code : Tout sélectionner

EventType

tu pourras agir
sur les éléments de ta liste.

[olivier]

Je l'ai révée et Purebasic (enfin son concépteur) la réalisé.

Bravo les gars, le logiciel est simple et puissant, et les gars du forum sont rapide et éfficace !!!!!
Merci à Nico qui me donne satisfaction, et oui Read à la place de Write et le tour et jouer

Denis, ce code est un peu tres tout plein pas clair, mais j'aimerais bien voir ton code, celui que tu as poster sur le forum....mais ou ??? Merci

Et toi Jacobus, sa pourrais être super puissant, mais j'ai l'impression que je n'ariverais pas au bout, c'est à dire à comparer deux répertoires (+sous répertoire) dans le but de les synchronisées, j'ai l'impression que je n'aurais que l'affichage du contenu mais que je ne peut pas le mettre dans des variables. Si je me trompe, merci de prendre le temps de m'expliquer.

Merci à tous, je suis débloqué !

[Anonyme2]

Excuses-moi, j'ai oublié le lien


le voici

http://purebasic.hmt-forum.com/viewtopi ... createfile

[Le Soldat Inconnu]

Pour synchroniser 2 fichiers, un CompareFileTime_ me semble plus approprié et plus rapide car on n'a pas besoin de convertir la date

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu
; Version de PB : 3.90
;
; Explication du programme :
; Ce code permet de comparer la date de 2 fichiers afin de connaître le plus récent, utile pour faire un logiciel de sauvegarde ou un synchroniseur

Procedure.l CompareFileTime(File1.s, File2.s)
  Protected Resultat.l
  Resultat = 0
  HandleFichier1 = OpenFile(100, File1) ; recupère le Handle du fichier avec la fonction OpenFile
  If HandleFichier1
    HandleFichier2 = OpenFile(101, File2) ; recupère le Handle du fichier avec la fonction OpenFile
    If HandleFichier2 ; si les 2 fichiers sont ouverts
      GetFileTime_(HandleFichier1, @ct1.FILETIME, @lat1.FILETIME, @lwt1.FILETIME) ; récupère la date du fichier
      GetFileTime_(HandleFichier2, @ct2.FILETIME, @lat2.FILETIME, @lwt2.FILETIME)
      Resultat = CompareFileTime_(@lwt1, @lwt2) ; compare les dates
      CloseFile(101)
    EndIf
    CloseFile(100)
    ProcedureReturn Resultat
  EndIf
EndProcedure


;- Test
Fichier1.s = OpenFileRequester("Ouvrir fichier 1", "", "Fichier|*.*", 0)
Fichier2.s = OpenFileRequester("Ouvrir fichier 2", "", "Fichier|*.*", 0)

If Fichier1 And Fichier2
  
  Select CompareFileTime(Fichier1.s, Fichier2.s)
    Case -1
      MessageRequester("", "Le fichier le plus récent est :" + Chr(10) + Fichier2, 0)
    Case 0
      MessageRequester("", "Les deux fichiers ont la même date", 0)
    Case 1
      MessageRequester("", "Le fichier le plus récent est :" + Chr(10) + Fichier1, 0)
  EndSelect
  
EndIf