在楼上朋友的代码中加一句就可以了:
Private Sub Command1_Click()
Me.ListView1.View = lvwReport
Me.ListView1.ColumnHeaders.Add , , "FILENAME", ListView1.Width / 2
Me.ListView1.ColumnHeaders.Add , , "DateLastModified", ListView1.Width / 2
Dim FSO As New FileSystemObject
Dim mfolder As Folder
Dim mfile As File
Set mfolder = FSO.GetFolder("c:\")
For Each mfile In mfolder.Files
Me.ListView1.ListItems.Add , , mfile.Name
Me.ListView1.ListItems.Item(Me.ListView1.ListItems.Count).SubItems(1) = mfile.DateLastModified
Next
Set mfile = Nothing
Set mfolder = Nothing
Set FSO = Nothing
End Sub
Private Sub Command1_Click()
Me.ListView1.View = lvwReport
Me.ListView1.ColumnHeaders.Add , , "hide"
Me.ListView1.HideColumnHeaders = True
Dim FSO As New FileSystemObject
Dim mfolder As Folder
Dim mfile As File
Set mfolder = FSO.GetFolder("c:\")
For Each mfile In mfolder.Files
Me.ListView1.ListItems.Add , , mfile.Name
Next
Set mfile = Nothing
Set mfolder = Nothing
Set FSO = Nothing
End Sub