Private Sub Emma52() 'lister les fichier *.txt dans le répertoire C:\temp, extension et répertoire à modifier au besoin, Dim fichiers() As String = Directory.GetFiles("C:\temp", "*.txt") 'obtention des métadonnées des fichiers Dim infos As List(Of FileInfo) = fichiers.Select(Function(f) New FileInfo(f)).ToList() 'sélection du plus récent (pour le cas ou le fichier du jour ne soit pas encore crée, ou inversement qu'il y ait plusieur fichiers ce jours Dim leFichier As FileInfo = infos.OrderBy(Function(f) f.CreationTime).Last() If (leFichier.CreationTime.Date = DateTime.Now.Date) Then Dim leTexte As String = File.ReadAllText(leFichier.FullName) End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionexcusez moi de vous avoir dérangé.peut-être interprétée des 2 manières totalement opposées:
ils te maudissent tous…n’était pas approprié
18 juil. 2019 à 09:09
18 juil. 2019 à 11:16
https://docs.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.fileio.filesystem.renamefile?view=netframework-4.8
@+ Le Pivert