Dim dir As New IO.DirectoryInfo("c:\64")
        Dim fil As IO.FileInfo
        Dim roms As New ArrayList(dir.GetFiles("*.*64*"))
 
        For Each fil In roms
            TextBox1.Text += fil.Name + vbCrLf
        Next