VB6のフォーム上にフォルダを表示させる事は可能でしょうか？ (ID:124872)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お返事が遅くなりました。 ListViewを使用する事になりまして、 色々なHPやヘルプを見ましてここまでできました。 それで、ご質問をさせて頂きます。 フォームを開いた時に、C:\新しいフォルダ\にあるTxt(テキストファイル)をListViewに表示をさせています。 作成日の降順はできるのですが、更新日時の降順はできますでしょうか？ 宜しく御願い致します。 ----------------------------------------------------------- Option Explicit Private Sub Form_Load() Dim FileSys As Object Dim Folder As Object Dim File As Object Dim itmX As ListItem ListView1.ListItems.Clear ListView1.ColumnHeaders.Clear Set FileSys = CreateObject("Scripting.FileSystemObject") ListView1.ColumnHeaders.Add text:="ファイル名", width:=ListView1.width / 2 ListView1.ColumnHeaders.Add text:="作成日", width:=ListView1.width / 3 ListView1.BorderStyle = ccFixedSingle ListView1.View = lvwReport ListView1.SortKey = 1 ListView1.SortOrder = lvwDescending Set Folder = FileSys.GetFolder("C:\新しいフォルダ\") For Each File In Folder.Files If Right$(File.Name, 4) = ".txt" Then Set itmX = ListView1.ListItems.Add(, , CStr(File.Name)) itmX.SubItems(1) = File.DateCreated End If Next ListView1.Refresh ListView1.Sorted = True End Sub