Fil dialog boks

Hej

Jeg har lavet en db i ms access 2003 og nu skal den laves om til ms access 2000

Jeg har lavet en listboks hvor filer fra et bibliotek ville blive lagt ned it meeen det virker ikke mere.

List9 er min listboks

Hvis dette ikke er muligt saa hvis der er en som kan hjaelpe med en dialog boks hvor jeg kan vaelge en fil.. saa er det ogsaa velkommen.

Takker

Kode:

Dim dir, folder, files
dir = CurrentProject.Path & "\Import"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(dir)
Set files = folder.files

MyListBox.RowSourceType = "Value List"
List9.RowSourceType = "Value List"

For Each file In files
If Right(file, 3) = "xls" Or Right(file, 4) = "xlsx" Then
    List9.AddItem (file.Name) & Me.List9.ListCount
End If
Next