Comment récupèrer la date de création d'un répertoire
3 réponses
TEV
Bonjour,
Je cherche à récupérer la date de création d'un répertoire sous XP. J'ai
essayé avec les api's Filetime et la fonction DateFileTime. Rien ne se passe
hormis des erreurs.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Salut,
Ceci fonctionne très bien chez moi :
'//Déclaration :
Public Function GetFolderCreationDate(strFolder As String) As Date If (GetAttr(strFolder) And vbDirectory) = vbDirectory Then GetFolderCreationDate = FileDateTime(strFolder) End If End Function
'//Utilisation (attention pas de de fin !!!!) :
Debug.Print GetFolderCreationDate("c:windows")
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
TEV a écrit :
Bonjour,
Je cherche à récupérer la date de création d'un répertoire sous XP. J'ai essayé avec les api's Filetime et la fonction DateFileTime. Rien ne se passe hormis des erreurs.
Christian.
Salut,
Ceci fonctionne très bien chez moi :
'//Déclaration :
Public Function GetFolderCreationDate(strFolder As String) As Date
If (GetAttr(strFolder) And vbDirectory) = vbDirectory Then
GetFolderCreationDate = FileDateTime(strFolder)
End If
End Function
'//Utilisation (attention pas de de fin !!!!) :
Debug.Print GetFolderCreationDate("c:windows")
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
TEV <toto@caramail.com> a écrit :
Bonjour,
Je cherche à récupérer la date de création d'un répertoire sous XP.
J'ai essayé avec les api's Filetime et la fonction DateFileTime. Rien
ne se passe hormis des erreurs.
Public Function GetFolderCreationDate(strFolder As String) As Date If (GetAttr(strFolder) And vbDirectory) = vbDirectory Then GetFolderCreationDate = FileDateTime(strFolder) End If End Function
'//Utilisation (attention pas de de fin !!!!) :
Debug.Print GetFolderCreationDate("c:windows")
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
TEV a écrit :
Bonjour,
Je cherche à récupérer la date de création d'un répertoire sous XP. J'ai essayé avec les api's Filetime et la fonction DateFileTime. Rien ne se passe hormis des erreurs.
Christian.
ng
ReSalut,
On pourrait donc faire ceci :
Public Function GetFolderCreationDate(ByVal strFolder As String) As Date If Right$(strFolder, 1) = "" Then strFolder = Left$(strFolder, Len(strFolder) - 1) If (GetAttr(strFolder) And vbDirectory) = vbDirectory Then GetFolderCreationDate = FileDateTime(strFolder) End If End Function
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
ng a écrit :
Salut,
Ceci fonctionne très bien chez moi :
'//Déclaration :
Public Function GetFolderCreationDate(strFolder As String) As Date If (GetAttr(strFolder) And vbDirectory) = vbDirectory Then GetFolderCreationDate = FileDateTime(strFolder) End If End Function
'//Utilisation (attention pas de de fin !!!!) :
Debug.Print GetFolderCreationDate("c:windows")
Bonjour,
Je cherche à récupérer la date de création d'un répertoire sous XP. J'ai essayé avec les api's Filetime et la fonction DateFileTime. Rien ne se passe hormis des erreurs.
Christian.
ReSalut,
On pourrait donc faire ceci :
Public Function GetFolderCreationDate(ByVal strFolder As String) As Date
If Right$(strFolder, 1) = "" Then strFolder = Left$(strFolder,
Len(strFolder) - 1)
If (GetAttr(strFolder) And vbDirectory) = vbDirectory Then
GetFolderCreationDate = FileDateTime(strFolder)
End If
End Function
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
ng <ng@babeuk.net> a écrit :
Salut,
Ceci fonctionne très bien chez moi :
'//Déclaration :
Public Function GetFolderCreationDate(strFolder As String) As Date
If (GetAttr(strFolder) And vbDirectory) = vbDirectory Then
GetFolderCreationDate = FileDateTime(strFolder)
End If
End Function
'//Utilisation (attention pas de de fin !!!!) :
Debug.Print GetFolderCreationDate("c:windows")
Bonjour,
Je cherche à récupérer la date de création d'un répertoire sous XP.
J'ai essayé avec les api's Filetime et la fonction DateFileTime. Rien
ne se passe hormis des erreurs.
Public Function GetFolderCreationDate(ByVal strFolder As String) As Date If Right$(strFolder, 1) = "" Then strFolder = Left$(strFolder, Len(strFolder) - 1) If (GetAttr(strFolder) And vbDirectory) = vbDirectory Then GetFolderCreationDate = FileDateTime(strFolder) End If End Function
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
ng a écrit :
Salut,
Ceci fonctionne très bien chez moi :
'//Déclaration :
Public Function GetFolderCreationDate(strFolder As String) As Date If (GetAttr(strFolder) And vbDirectory) = vbDirectory Then GetFolderCreationDate = FileDateTime(strFolder) End If End Function
'//Utilisation (attention pas de de fin !!!!) :
Debug.Print GetFolderCreationDate("c:windows")
Bonjour,
Je cherche à récupérer la date de création d'un répertoire sous XP. J'ai essayé avec les api's Filetime et la fonction DateFileTime. Rien ne se passe hormis des erreurs.
Christian.
TEV
Merci beaucoup pour la réponse, grâce à vous j'ai vu où se situais mon erreur.
Christian. "ng" a écrit dans le message de news:
Salut,
Ceci fonctionne très bien chez moi :
'//Déclaration :
Public Function GetFolderCreationDate(strFolder As String) As Date If (GetAttr(strFolder) And vbDirectory) = vbDirectory Then GetFolderCreationDate = FileDateTime(strFolder) End If End Function
'//Utilisation (attention pas de de fin !!!!) :
Debug.Print GetFolderCreationDate("c:windows")
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
TEV a écrit :
> Bonjour, > > Je cherche à récupérer la date de création d'un répertoire sous XP. > J'ai essayé avec les api's Filetime et la fonction DateFileTime. Rien > ne se passe hormis des erreurs. > > Christian.
Merci beaucoup pour la réponse, grâce à vous j'ai vu où se situais mon
erreur.
Christian.
"ng" <ng@babeuk.net> a écrit dans le message de news:
OvAh6DLIEHA.964@TK2MSFTNGP10.phx.gbl...
Salut,
Ceci fonctionne très bien chez moi :
'//Déclaration :
Public Function GetFolderCreationDate(strFolder As String) As Date
If (GetAttr(strFolder) And vbDirectory) = vbDirectory Then
GetFolderCreationDate = FileDateTime(strFolder)
End If
End Function
'//Utilisation (attention pas de de fin !!!!) :
Debug.Print GetFolderCreationDate("c:windows")
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
TEV <toto@caramail.com> a écrit :
> Bonjour,
>
> Je cherche à récupérer la date de création d'un répertoire sous XP.
> J'ai essayé avec les api's Filetime et la fonction DateFileTime. Rien
> ne se passe hormis des erreurs.
>
> Christian.
Merci beaucoup pour la réponse, grâce à vous j'ai vu où se situais mon erreur.
Christian. "ng" a écrit dans le message de news:
Salut,
Ceci fonctionne très bien chez moi :
'//Déclaration :
Public Function GetFolderCreationDate(strFolder As String) As Date If (GetAttr(strFolder) And vbDirectory) = vbDirectory Then GetFolderCreationDate = FileDateTime(strFolder) End If End Function
'//Utilisation (attention pas de de fin !!!!) :
Debug.Print GetFolderCreationDate("c:windows")
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
TEV a écrit :
> Bonjour, > > Je cherche à récupérer la date de création d'un répertoire sous XP. > J'ai essayé avec les api's Filetime et la fonction DateFileTime. Rien > ne se passe hormis des erreurs. > > Christian.