Private Function URL2FName(ByVal Url As String) As String Dim s As String If Url.EndsWith("/") Then Url &= DefFName URL2FName = Url.Replace("?", "^/").Replace("%3f", "^/").Replace("<", "#(").Replace(">", "#)").Replace("""", "#'").Replace("*", "#x").Replace("!", "#I").Replace(":", "!").Replace("|", "#i") If (MenuRepSl.Checked) Then Dim iq As Integer = URL2FName.IndexOf("^/") + 2 If (iq >= 2 And URL2FName.Length > iq) Then URL2FName = URL2FName.Substring(0, iq) & URL2FName.Substring(iq).Replace("^/", "#^").Replace("//", "#%~").Replace("/", "#%").Replace("\", "#~") End If End If End Function