DateLastAccessed pour fichier en VB6 [Résolu]

DD05 53 Messages postés mercredi 11 août 2004Date d'inscription 11 juin 2010 Dernière intervention - 4 déc. 2008 à 13:22 - Dernière réponse : DD05 53 Messages postés mercredi 11 août 2004Date d'inscription 11 juin 2010 Dernière intervention
- 4 déc. 2008 à 19:52
Bonjour,

Je suis en VB6.
Ci-dessous mon code qui me permet de trouver la date et l'heure du dernier accés à un fichier.
Le problème c'est qu'il ne me donne que la date, pas l'heure.
J'obtiens : 03/12/2008 00:00:00 et j'ai vérifié, mon dernier accés n'était pas à minuit pile !

J'ai l'impression, que la commande DateLastAccessed renvoit la date mais pas l'heure. Est-ce vrai ?
Sinon, pourquoi je n'ai pas l'heure ?

Salut

DD05

Private Sub Form_Load()
 Dim f As File
 Set fso = CreateObject("Scripting.FileSystemObject")
 Nom_fichier = "C:\TOTO.TXT"
 If (FichierExiste(Nom_fichier) = True) Then
  Set f = fso.GetFile(Nom_fichier)
  s = Format(f.DateLastAccessed, "dd/mm/yyyy hh:mm:ss")
  Form1.Text1 = s
 End If
End Sub
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
pile_poil 682 Messages postés vendredi 6 avril 2007Date d'inscription 4 août 2012 Dernière intervention - 4 déc. 2008 à 14:46
3
Merci
bonjour
dans le meme contexte j'ai bien la date et l'heure
seule différence c'est que je ne reformate pas la date
j'ai:
s = f.DateLastAccessed
au lieu de
s = Format(f.DateLastAccessed, "dd/mm/yyyy hh:mm:ss")

de plus le résultat est directement au format dd/mm/yyyy hh:mm:ss

de plus ta variable "s" n'est pas déclarée et qui plus est inutile
Text1.text = Format(f.DateLastAccessed, "dd/mm/yyyy hh:mm:ss")
revient exactement au meme 
[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

Merci pile_poil 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 75 internautes ce mois-ci

Commenter la réponse de pile_poil
DD05 53 Messages postés mercredi 11 août 2004Date d'inscription 11 juin 2010 Dernière intervention - 4 déc. 2008 à 19:52
0
Merci
Salut,

Merci pour ta réponse.

Mais rien à faire, en mettant la ligne de code suivante dans le même contexte, je n'ai que la date qui s'affiche.
Je ne sais plus quoi faire. D'où cela peut venir ?

DD05

Form1.Text1.Text = f.DateLastAccessed
Commenter la réponse de DD05

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.