<%
If Not request("inpNewFolderName")="" Then
sFolder = request("inpCurrFolder") & "\" & request("inpNewFolderName")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(sFolder) Then
sMsq = "Folder already exists."
Else
fso.CreateFolder(sFolder)
sMsq = "Folder created."
End If
Set fso = Nothing
End If
%>
Create Folder