comment accèder à l'heure et à la date d'un fichier

Bonjour à tous! Very Happy

Aujourd'hui, j'ai besoin de savoir si il y a un moyen pour connaitre la date d'enregistrement et l'heure à la seconde près, voire au millième de seconde, d'un fichier. Dans la liste des fonctions pour les fichiers, je n'en ai pas trouvé qui renvoient la date et l'heure d'enregistrement d'un fichier.
Merci de vos réponses.
A + Wink

Bonjour Big

Tu peux utiliser un script en VBS comme ceci

Remarque : adapter le nom et le chemin du fichier en ligne 2

Code:: Set oFSO = CreateObject("Scripting.FileSystemObject")
stFichier = "c:\users\acer\desktop\test.txt"
If oFSO.FileExists(stFichier) Then
   Set oFl = oFSO.GetFile(stFichier)
   Hor = oFl.DateLastModified
   WScript.Echo Hor
End if

Enregistre ce code sous date_modif_fich.vbs ou sous un autre nom mais avec .VBS comme extension puis double-clique sur ce fichier pour l'exécuter.

Il affichera quelque chose comme ceci :

comment accèder à l'heure et à la date d'un fichier 114

Si ça répond à ton attente, tu peux l'adapter pour l'intégrer dans un code Panoramic.

La commande DIR de l’invite de commande est souvent très utile pour consulter les fichiers.

Syntaxe:

Exemple :

Code:: dir C:\Users\acer\Desktop\Pano_Editeur\28i12\*.bas /O:D /T:A > C:\Users\acer\Desktop\Pano_Editeur\28i12\Liste.txt

Crée un fichier contenant la liste triée par date d’accès aux fichiers .bas
Il faut bien sûr adapter les chemins

Merci de tes réponses Papydall. Smile

Mais j'aurais espéré avoir quelque chose en panoramic pur. Je trouve que c'est une fonction qui manque à panoramic. Une fonction qui renvoie la date et l'heure d'enregistrement d'un fichier. On peut ouvrir un fichier, modifier, renommer, supprimer, déplacer, cacher, archiver, mettre en lecture seule, etc... un fichier, mais on ne peux pas lire sa date de création et son heure d'enregistrement.
Même les fichiers ont une date de création, mais comporte aussi la date de dernière modification ou du dernier accès à celui-ci. C'est pourtant une fonction essentielle pour rechercher dans l'ordinateur par exemple les derniers fichiers qui ont été modifiés ou créés par un logiciel, ne serait-ce que pour en proposer les plus récents à son ouverture par exemple. Ou bien rechercher la date de prise d'une photo dans un fichier image, etc... Plein d'autres applications peuvent découler de cette fonction.
Pour ma part, je vais essayer les solutions de papydall, mais ce sera fastidieux à mettre en place dans un programme qui doit examiner rapidement des dizaines de fichiers dans plusieurs dossiers et sous dossiers.
Au fait, même les dossiers ont une date de création. Là aussi une fonction serait la bienvenue pour en extraire la date de création.
Merci encore
A + Wink

Je suis tout à fait d'accord avec toi, Bignono.

Jette un oeil sur ce post; peut-être trouveras-tu quelque chose d'utile.

Merci Papydall. C'est pas tout à fait ce que je recherche à faire, mais ça va m'aider quand même.
Merci

Avec KGF.dll, tu peux faire ceci:

Code:: dim res%,file$,dat$
fiile$ = "C:\Documents and settings\test\mon_fichier.dat"
dat$ = string$(255," ")
res% = dll_call2("GetFileDate",adr(file$),adr(dat$))
message "creation date: "+trim$(dat$)

Si cela t'intéresse, je peux ajouter la fonction GetFimeTime...

Comment obtenir des informations sur un fichier en VBS

Les propriétés de l'objet File:

Script:

L'exécution de ce script VBS donne quelque chose

Comme ceci:

Bonjour Klaus Very Happy

Oui ça m'intéresse GetFileTime
Merci d'avance. Wink

Oui Paydall, ton dernier script vbs me parait très bien! Je vais voir ce que je peux en faire dans mon programme.
A bientôt
Wink

Ben... c'est déjà fait, en réalité. Contrairement à ce qie je pensais, la fonction retourne date ET heure. Je vais changer cela dans la doc. Voici le code pour essayer:

Code:: dim res%, v$, f$

v$ = string$(255," ")

dll_on "KGF.dll"

open_dialog 1

f$ = file_name$(1)
if f$="_" then terminate

res% = dll_call2("GetFileDate",adr(f$),adr(v$))
message trim$(v$)

end

Le résultat contient deuc chaînes de caractères séparées par un espace. La première est la date, la seconde est l'heure.

Oui merci Klaus, c'est parfait.
Mais serait il possible d'avoir 1 ou plusieurs fonctions permettant d'avoir les renseignements sur les propriétés d'un fichier comme dans le dernier script VBS de Papydall.
Ce qui m'importe d'avoir, c'est la date et l'heure de création, la date et l'heure du dernier accès au fichier, la date et l'heure des dernières modifications au fichier, le chemin complet du fichier et éventuellement ses attributs.
Merci de ta réponse Klaus.
A+ Wink

Une légère modification de mon script

Script:

Résultat:

La fonction

Code:: res% = dll_call1("GetFileAttributes",adr(fichier$))

retourne les attributs du fichier, avec res% contenant:

Code:: 32 bits d'attributs du fichier. La valeur est le OU logique des attributs suivants:
Hexa-décimal:
faReadOnly $00000001 Fichiers en lecture seule
faHidden $00000002 Fichiers cachés
faSysFile $00000004 Fichiers système
faVolumeID $00000008 Fichiers d'identification de volume
faDirectory $00000010 Fichiers répertoire
faArchive $00000020 Fichiers archive
faSymLink $00000040 Fichiers archive

Décimal:
faReadOnly : 1 : Read-only files
faHidden : 2 : Hidden files
faSysFile : 4 : System files
faVolumeID : 8 : Volume ID files
faDirectory : 16 : Directory files
faArchive : 32 : Archive files
faSymLink : 64 : Symbolic link

Ceci est extrait de la doc. Pour les autres informations (date et heure de modification), il faudra réaliser une nouvelle petite fonction. Je vais voir ça.

» le processus ne peut pas accéder au fichier car ce fichier..
» Comment lier un fichier bas à panoramic ?
» Comment reconvertir un fichier exe Panoramic en fichier BAS
» [Résolu] Comment ouvrir un fichier depuis internet
» Comment jouer un son mp3 dans un fichier .bat.