Submappen in directory

[johant1957]

Hoi,

Ik gebruik onderstaande code om een verkenner te openen in mijn access omgeving. De gebruiker wil een .xls bestand kunnen selecteren dat geimporteerd moet worden. De import werkt prima, alleen het importbestand moet variabel worden. Kan iemand mij hier mee helpen?

Code:
Sub Show_BrowseDirectory_dialog()

Dim dirInfo As BROWSEINFO
Dim path As String
Dim r As Long, X As Long, pos As Integer



dirInfo.pidlRoot = 0&
dirInfo.lpszTitle = "Selecteer een map"
dirInfo.ulFlags = &H1
X = SHBrowseForFolder(dirInfo)
path = Space$(512)
r = SHGetPathFromIDList(ByVal X, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
MsgBox ("U heeft geselecteerd := " & Left(path, pos - 1))
Else
MsgBox ("Selecteer een folder")
End If

End Sub


Alvast hartelijk bedankt

Johan