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

PPZMR -  
 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

3 réponses

  1. beldyn Messages postés 189 Statut Membre 19
     
    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
    0
    1. PPZMR
       
      Merci pour les liens. Il y a tellement de chose que je n'ai pas encore trouvé ce qu'il me fallait....
      Je précise les moyens :
      Faut-il utiliser un composant ou une référence, ou faut il faire un bout de code pour récupérer la date du fichier ?
      0
  2. beldyn Messages postés 189 Statut Membre 19
     
    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
    0
    1. Ppzmr
       
      Merci Beldyn pour ton aide.
      Ce lien a répondu à mon attente...
      @ +
      0
  3. imanuelga
     
    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
    0