kvs.Initialize(File.DirData(appname), "kvs")
SourceFileFolder = kvs.Get("SourceFileFolder")
If SourceFileFolder = "null" Then
SourceFileFolder = File.DirApp
End If
Dim a As FileChooser
a.Initialize
a.InitialDirectory = SourceFileFolder
a.Title = "Choose .XLS:"
a.setExtensionFilter("Excel file", Array As String("*.xls", "*.xlsx", "*.xlsm"))
Dim fn As String = a.ShowOpen(MainForm)
If fn = "" Then Return
SourceFileFolder = File.GetFileParent(fn)
fn = File.GetName(fn)