Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1825 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA choix du repertoire le plus recent

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBA choix du repertoire le plus recent

n°2304095
daniel-12
Posté le 02-08-2017 à 13:20:11  profilanswer
 


 
Bonjour
j'ai un répertoire comme ceci
 
C:\ProgramData\ECH\  , dans lequel se trouve plusieurs version d'un même logiciel
 
C:\ProgramData\ECH\novo v5-3-1\novo.exe
C:\ProgramData\ECH\novo v5-3-2\novo.exe
C:\ProgramData\ECH\novo v5-3-11\novo.exe
 
je voudrais choisir le fichier novo.exe le plus récent   (pour l'utiliser via un shell)
ou le fichier novo.exe du répertoire le plus récent
 
comment feriez vous ?
 
 
j'ai un code pour trouver le fichier plus récent d'un répertoire
mais ce n'est pas exactement cela que je cherche
 

Code :
  1. Sub testfichierplusrecent()
  2. Dim MyPath As String
  3. Dim MyFile As String
  4. Dim LatestFile As String
  5. Dim LatestDate As Date
  6. Dim LMD As Date
  7. MyPath = "C:\temp\"
  8. 'Make sure that the path ends in a backslash
  9. 'If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
  10. 'Get the first Excel file from the folder
  11. MyFile = Dir(MyPath & "*.*", vbNormal)
  12. If Len(MyFile) = 0 Then
  13. msgbox "No files were found...", vbExclamation
  14. Exit Sub
  15. End If
  16. 'Loop through each Excel file in the folder
  17. Do While Len(MyFile) > 0
  18. 'Assign the date/time of the current file to a variable
  19. LMD = FileDateTime(MyPath & MyFile)
  20. 'If the date/time of the current file is greater than the latest
  21. 'recorded date, assign its filename and date/time to variables
  22. If LMD > LatestDate Then
  23. LatestFile = MyFile
  24. LatestDate = LMD
  25. End If
  26. 'Get the next Excel file from the folder
  27. MyFile = Dir
  28. Loop
  29. msgbox LatestFile
  30. End Sub


mood
Publicité
Posté le 02-08-2017 à 13:20:11  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA choix du repertoire le plus recent

 

Sujets relatifs
(Résolu) comment faire un Form cacher/visible selon liste de choixExecuter du code VBA sur un outil web
[RESOLU] VBA - Tag d'1 var bidimensionnelle sur 1 librairie SharePoint[Ada][A.I.] le choix systémic des relations logique.
VBA Excel Requète WEBProblème MFC en VBA (erreur -2147417848 (80010108) )
[VBA/HTML] insérer une image dans un mailcode VBA autoriser collage en valeur
Problème syntaxe VBAVBS Lister les fichiers d'un répertoire et sous repertoire
Plus de sujets relatifs à : VBA choix du repertoire le plus recent



Copyright © 1997-2016 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR