Récup date de créat/modif d'un file qlcq VB6 Fermé

Question

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

beldyn · Answer

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

beldyn · Answer

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

imanuelga · Answer

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

Récup date de créat/modif d'un file qlcq VB6

3 réponses

Discussions similaires