'configure image paths
Dim strImagePath As String = Path.Combine("/ClientImages", oUser.UserName)
Dim strFullPath As String = Server.MapPath(strImagePath)
If Not Directory.Exists(strFullPath) Then
Directory.CreateDirectory(strFullPath)
End If
strImagePath = "~" & strImagePath
strImagePath = strImagePath.Replace("\", "/")
Dim viewImages As String() = New String() {strImagePath}
'configure file paths
Dim strDocumentPath As String = Path.Combine("/ClientDocuments", oUser.UserName)
Dim strDocumentFullPath As String = Server.MapPath(strDocumentPath)
If Not Directory.Exists(strDocumentFullPath) Then
Directory.CreateDirectory(strDocumentFullPath)
End If
strDocumentFullPath = "~" & strDocumentFullPath
strDocumentFullPath = strDocumentFullPath.Replace("\", "/")
Dim ViewPaths As String() = New String() {strDocumentPath}
If Not IsPostBack Then
RadEditor1.Modules.Clear()
RadEditor1.SpellCheckSettings.AllowAddCustom = True
RadEditor1.SpellCheckSettings.SpellCheckProvider = SpellCheckProvider.PhoneticProvider
RadEditor1.Languages.Clear()
RadEditor1.SpellCheckSettings.DictionaryLanguage = "en-US"
RadEditor1.ImageManager.ViewPaths = viewImages
RadEditor1.ImageManager.UploadPaths = viewImages
RadEditor1.ImageManager.DeletePaths = viewImages
RadEditor1.DocumentManager.ViewPaths = ViewPaths
RadEditor1.DocumentManager.UploadPaths = ViewPaths
RadEditor1.DocumentManager.DeletePaths = ViewPaths
RadEditor1.DocumentManager.SearchPatterns = New String() {"*.doc", "*.txt", "*.docx", "*.xls", "*.xlsx", "*.pdf", "*.zip"}
End If