Récup date de créat/modif d'un file qlcq VB6
PPZMR
-
imanuelga -
imanuelga -
LO,
existe t il 1 moyen ou une commande pour récupérer la date de création/modification d'un fichier sur le DD en VB ? Je dois faire différents tests sur cette date.
Si réponse = oui alors
merci
sinon
tantpis
autre_methode?
fsi
existe t il 1 moyen ou une commande pour récupérer la date de création/modification d'un fichier sur le DD en VB ? Je dois faire différents tests sur cette date.
Si réponse = oui alors
merci
sinon
tantpis
autre_methode?
fsi
3 réponses
-
Salut,
Oui c'est possible, reste à savoir ce que tu entends par moyens..
Comme ça je ne peux pas te dire, mais va sur ces sites, tu y trouvera ton bonheur
A++
http://www.mvps.org/vbnet/index.html?code/subclass/shellnotifybasic.htm
http://www.vbfrance.com/
Beldyn -
Re,
Pour moi, il faut que tu passes par les API Windows, donc ni composant ni référence, mais du code.
Voici le lien direct vers un exemple de cette fonctionnalité.
Bon développement, A+
http://www.mvps.org/vbnet/index.html?code/fileapi/filedatetime.htm
Beldyn -
Salut,
Voici un bout de code qui marche en utilisant la référence microsoft scripting Runtime (donne le dernier sous-répertoire mais fonctionne aussi pour un fichier):
Sub der_rep_dans_rep(ByVal chemin As String, ByRef der_chemin As String)
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Dim date_creation As Variant
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(chemin)
'chemin par défaut si pas de sous-répertoire en dessous
der_chemin = chemin
For Each SubFolder In SourceFolder.SubFolders
If SubFolder.DateCreated > date_creation Then
der_chemin = SubFolder.Path
date_creation = SubFolder.DateCreated
End If
Next SubFolder
End Sub