date creation d'un fichier

Private Sub AnalizeDateFile()
        
        Dim pathdirectory As String
        'pathdirectory : le path du répertoir à analyser
        pathdirectory = "E:\ReadFile\"

        Dim di As New IO.DirectoryInfo(pathdirectory)

        Dim datecreate As Date
        Dim aryFi As IO.FileInfo()
        aryFi = di.GetFiles()
        Dim fi As IO.FileInfo
       
        For Each fi In aryFi

            datecreate = fi.CreationTime
           
        Next
    End Sub

Private Sub AnalizeDateFile()
        
        Dim pathdirectory As String
        'pathdirectory : le path du répertoir de tes videos
        pathdirectory = "E:\ReadFile\"

        Dim di As New IO.DirectoryInfo(pathdirectory)
        Dim list() As String
        Dim countvideo As Integer

        Dim aryFi As IO.FileInfo()
        aryFi = di.GetFiles()
        Dim fi As IO.FileInfo
        countvideo = 0
        list = Nothing
        For Each fi In aryFi
            ReDim Preserve list(countvideo)
            list(countvideo) = fi.Name & "... date et heure de création :" & fi.CreationTime & Environment.NewLine
            countvideo += 1
        Next
        'copie la list dans un fichier text
        pathdirectory = "E:\resultvideo.txt" ' à modifier selon tes besoins

        Try
            System.IO.File.WriteAllLines(pathdirectory, list)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub