Hallo zusammen
Kann mir jemand sagen, wie ich in einer ListView zB das erstellungsdatum der Dateien anzeigen kann?
Ich bekomm das irgendwie nicht hin.
Ich habe volgenden code Struktur:
Private Sub ListView1_DblClick()
Private Sub Dir1_Change()
Private Sub Form_Load()
Private Sub Form_Unload(Cancel As Integer)
Private Sub mnuList_Click()
Private Sub Drive1_Change()
Public Sub FillListView1WithFiles(ByVal path As String)
Private Function CheckPath(ByVal path As String) As String
Und in der rivate Sub FillListView1WithFiles(ByVal path As String) hab ich:
Private Sub FillListView1WithFiles(ByVal path As String)
Dim Item As ListItem
Dim s As String
path = CheckPath(path)
s = Dir(path, vbNormal)
Do While s „“
Set Item = ListView1.ListItems.Add()
Item.Key = path & s
Item.Text = s
Item.SubItems(1) = path
s = Dir
Loop
End Sub