Sub Button1_Click
Dim oFileDialog As FileDialog
Dim sFileName As String=""
' Set the Downloadpath as starting folder to be used in select...
oFileDialog.FilePath = File.Combine(File.DirRootExternal, "Download")
If oFileDialog.Show("Select an xxx CSV","Select","","Close",Null) =-1 Then
sFileName=oFileDialog.ChosenName
If sFileName<>"" Then
LoadData(File.Combine(File.DirRootExternal, "Download"),sFileName)
Else
Msgbox("Error loading data", "No File was selected")
End If
End If
End Sub
Sub LoadData(sPath As String, sFilename As String)
'Dim myFile As publicfile
oReader.Initialize(File.OpenInput(sPath,sFilename))
End Sub