Ο ευκολότερος τρόπος να δουλέψεις με αρχεία στην VB6 είναι μέσω του FileSystemObject. Για να το χρησιμοποιήσεις προσθέτεις στο project σου ένα Reference στο Microsoft Scripting Runtime. Το FileSystemObject σου δίνει πρόσβαση στα αντικείμενα File, Folder, TextStream κλπ τα οποία σου επιστρέφουν αρκετές πληροφορίες για τα αρχεία και τα folders.
Για να προσθέσεις αντικείμενα σε στήλες στο ListView καλείς την ListItems.Add για να προσθέσεις ένα αντικείμενο. Μετά καλείς την ListSubItems.Add για να προσθέσεις τα επιπλέον στοιχεία στο αντικείμενο. Ρίξε μια ματιά στο παρακάτω sample, αν και είναι λίγο περίεργο γιατί .... μόνο σε Excel VBA έχω πλέον στο μηχάνημα μου!
Private Sub CommandButton1_Click()
Me.ListView1.ColumnHeaders.Add , , "Name"
Me.ListView1.ColumnHeaders.Add , , "Date"
Me.ListView1.ColumnHeaders.Add , , "Size"
Me.ListView1.View = lvwReport
Dim fso As FileSystemObject, aFolder As Folder, aFile As File, anItem As ListItem
Set fso = New FileSystemObject
Set aFolder = fso.GetFolder("c:\")
For Each aFile In aFolder.Files
Set anItem = Me.ListView1.ListItems.Add(, aFile.Name, aFile.Name)
anItem.ListSubItems.Add , , aFile.Type
anItem.ListSubItems.Add , , aFile.DateCreated
anItem.ListSubItems.Add , , aFile.Size
Next
End Sub
Παναγιώτης Καναβός, Freelancer
Twitter: http://www.twitter.com/pkanavos