Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Repertoire As New IO.DirectoryInfo("d:\temp")
Dim RepInfo As IO.FileSystemInfo() = Repertoire.GetFileSystemInfos()
For Each Element As IO.FileSystemInfo In RepInfo
If TypeOf Element Is IO.FileInfo Then
Me.ListBox1.Items.Add(CType(Element, IO.FileInfo).Name + vbTab + CType(Element, IO.FileInfo).CreationTime.ToLongDateString)
End If
Next Element
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Repertoire As New IO.DirectoryInfo("d:\temp")
Dim RepInfo As IO.FileSystemInfo() = Repertoire.GetFileSystemInfos()
For Each Element As IO.FileSystemInfo In RepInfo
If TypeOf Element Is IO.FileInfo Then
Me.ListBox1.Items.Add(CType(Element, IO.FileInfo).Name + vbTab + CType(Element, IO.FileInfo).CreationTime.ToLongDateString)
End If
Next Element
End Sub