<% dim sMsg If Not request("inpNewFolderName")="" Then sFolder = request("inpCurrFolder") & "\" & request("inpNewFolderName") Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FolderExists(sFolder) Then sMsg = "" Else on error resume next fso.CreateFolder(sFolder) if err then sMsg = "" else sMsg = "" end if End If Set fso = Nothing End If %>

New Folder Name: <%response.Write sMsg%>