<% FromFolder = request("hidFolderName") ToFolder = request("hidFolderBase") & request("txtNewName") dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If NOT objFSO.FolderExists(ToFolder) Then objFSO.MoveFolder FromFolder, ToFolder End if SET objFSO = NOTHING %>