Populate Listindex (with 2 columns) with files and its Path/location in directory

[haseft]

Hi,
i want to Populate Listindex (with 2 columns) with files and its Path/location in directory
I can mange to get all files name i Listbox' but not the second column, I don,t know how to get it.
for example:
(column 1) School in London (column 2) R:\Education\School\Region\School in north.pdf
a.s.o

Private Sub CommandButton10_Click()
'
Dim MyFolder As String
Dim MyFile As String
Dim j As Integer
MyFolder = "R:\Education\School\Region"
MyFile = Dir(MyFolder & "\*.*")
Do While MyFile <> ""
    Page6ListBox2.AddItem MyFile
    MyFile = Dir
Loop

End Sub

 

[Fluff]

How about

Private Sub CommandButton1_Click()
'
Dim MyFolder As String
Dim MyFile As String
Dim j As Integer
MyFolder = "R:\Education\School\Region"
MyFile = Dir(MyFolder & "\*.*")
Do While MyFile <> ""
    With Page6ListBox2
      .AddItem MyFile
      .List(.ListCount - 1, 2) = MyFolder & "\" & MyFile
    End With
    MyFile = Dir
Loop

End Sub

 

[haseft]

How about

Private Sub CommandButton1_Click()
'
Dim MyFolder As String
Dim MyFile As String
Dim j As Integer
MyFolder = "R:\Education\School\Region"
MyFile = Dir(MyFolder & "\*.*")
Do While MyFile <> ""
    With Page6ListBox2
      .AddItem MyFile
      .List(.ListCount - 1, 2) = MyFolder & "\" & MyFile
    End With
    MyFile = Dir
Loop

End Sub

hi Fluff
I get only one column with files name, the second column is empty,
the second column shuold be ex. R:\Education\School\Region\School in north.pdf

 

[Fluff]

Oops, it should be

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

 

[haseft]

Oops, it should be

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

still I get only one column i listbox,

 

[Fluff]

Have you change the listbox to have two columns?

 

[haseft]

still I get only one column i listbox,

 With Page6ListBox2
     .ColumnCount = 2
     .ColumnWidths = "100;150"
'
'
'
End with

It work,

 

[haseft]

Tanks Fluff, it works very fine ?

 

[JEC]

Or at once

Sub jec()
 Dim it As Variant, x As Long
 ReDim ar(1, 0) As Variant
 
 For Each it In CreateObject("Scripting.filesystemobject").getfolder("C:\Users\xxx\xx\xx\xxx\").Files
   ReDim Preserve ar(1, x)
   ar(0, x) = it.Name
   ar(1, x) = it.Path
   x = x + 1
 Next
 Page6ListBox2.List = Application.Transpose(ar)
End Sub

 

[Fluff]

You're welcome & thanks for the feedback.