Populate Listindex with 3 columns: Fles name, Path and Date (last time the file changed)

[haseft]

Hi,

I had this thread yesterday.
the code works fine för column 1 and 2 in listbox.
I also want to get the date last time the file changed in 3:d column in listbox.

Private Sub CommandButton10_Click()
'
Dim MyFolder As String
Dim MyFile As String
Dim j As Integer
With Page6ListBox2
 .ColumnCount = 3
 .ColumnWidths = "50;100;50"

  MyFolder = "R:\Education\School\Region"
  MyFile = Dir(MyFolder & "\*.*")
  Do While MyFile <> ""
    With Page6ListBox2
      .AddItem MyFile
      .List(.ListCount - 1, 1) = MyFolder & "\" & MyFile
      .List(.ListCount - 1, 2) = '????
    End With
    MyFile = Dir
  Loop
End With

 

[RoryA]

You can use FileDateTime(MyFolder & "\" & MyFile) to get the last modified date and time.

 

[haseft]

You can use FileDateTime(MyFolder & "\" & MyFile) to get the last modified date and time.

get error nr "53", can not fine the file

.List(.ListCount - 1, 2) = FileDateTime(MyFolder & "\" & MyFile)

 

[RoryA]

What is the value of MyFile when the error happens?

 

[haseft]

What is the value of MyFile when the error happens?

Myfile shows trhe file name for.ex. School1.pdf

MsgBox MyFile
      .List(.ListCount - 1, 2) = FileDateTime(MyFolder & "\" & MyFile)

 

[RoryA]

I can't reproduce your error. The code works fine here.

 

[haseft]

I can't reproduce your error. The code works fine here.

It workning fine
but 7 files has no date, why?
its aroud 230 files in listbox

 

[haseft]

It workning fine
but 7 files has no date, why?
its aroud 230 files in listbox

the isssue was character å, ä ö
I fixed It

Tanks Rory A