Dim fn, fnu , ur As String
Dim su As StringUtils
ur = su.EncodeUrl(acet1.Text.Replace(" ","_") , "UTF8")
fn = dirname & "w_" & ur & DateTime.Date(DateTime.Now) & "/" & "report_for_browser.html"
fnu = File.GetUri(File.DirApp, fn)
fx.ShowExternalDocument(fnu)