Private Sub Application_OpenUrl (Url As String, Data As Object) As Boolean
If Url.StartsWith("file://") Then
Dim f As String = Url.SubString(7) 'remove the file:// scheme.
Try
Dim i As Int = f.LastIndexOf("/")
Dim su As StringUtils
f = f.SubString2(0, i + 1) & su.DecodeUrl(f.SubString(i + 1), "utf8")
lpsList = File.ReadList("", f)
Msgbox(File.ReadString("", f), "")
File.WriteString(File.DirDocuments, "!Custom", lpsList)
Catch
Log(f)
Msgbox("Error loading file", "")
End Try
End If
Return True
End Sub