Fil dialog boks
HejJeg 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