Dim trim(1) As Char
                    trim(0) = "/"c

                    Dim tempfolder As String = "Guest"
                    Dim Templatefolder As String = ""

                    If role = "Admin" Then
                        tempfolder = ""
                    ElseIf role = "Registered" Then
                        tempfolder = "Member"
                    ElseIf role <> String.Empty Then
                        tempfolder = role
                    End If

                    tempfolder = RootImageDirectory.TrimEnd(trim) & "/" & tempfolder
                    Templatefolder = RootImageDirectory.TrimEnd(trim) & "/templates"

                    Dim phyfolder As String

                    phyfolder = HttpContext.Current.Server.MapPath(tempfolder)

                    If role = "Administrators" Then
                        phyfolder = HttpContext.Current.Server.MapPath(RootImageDirectory.TrimEnd(trim) & "/Admin")
                    End If

                    If Not Directory.Exists(phyfolder) Then
                        Directory.CreateDirectory(phyfolder)
                    End If

                    If Not Directory.Exists(HttpContext.Current.Server.MapPath(Templatefolder)) Then
                        Directory.CreateDirectory(HttpContext.Current.Server.MapPath(Templatefolder))
                    End If

                    cntlCE.SetSecurityImageGalleryPath(tempfolder)
                    cntlCE.SetSecurityFilesGalleryPath(tempfolder)
                    cntlCE.SetSecurityMediaGalleryPath(tempfolder)
                    cntlCE.SetSecurityFlashGalleryPath(tempfolder)
                    cntlCE.SetSecurityTemplateGalleryPath(Templatefolder)