FS_CreateUserFolder

Creates a folder for a user, usually after sign up or login for first time

CodeFunctionName

What is this?

Public

Tested

Original Work

Sub FS_CreateUserFolder(FolderName)
' Creates a folder for a user, usually after sign up or login for first time
' Needs UserFolder as variable = "wwwroot/Users/"
' Needs DefaultUserFolder having "Default.asp" as a template file to be copied into newly created user folder
' Needs IsThere_Folder, IsThere, FS_CopyFile
dim Fso
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
UFol1 = UserFolder & FolderName
UFolM = Server.MapPath(UFol1)
If Not IsThere_Folder(UFol1) Then set f = Fso.CreateFolder(UFolM)
If Not IsThere(UFol1 & "/Default.asp") Then
Response.Write DefaultUserFolder & "/Default.asp <br/ >" & UFol1 & "/Default.asp"
FS_CopyFile DefaultUserFolder & "/Default.asp", UFol1 & "/Default.asp"
' fs.CopyFile DefaultUserFolder_Mapped & "\Default.asp", UFolM & "\"
End If
set Fso = Nothing
End Sub

FolderName