<%
Response.Buffer = true
if session("company_id") <> "" then
dim objUpload
dim sFolder
dim sNewFolder
dim sSourceFolderPath
dim sDestinationFolderPath
dim return_page
dim FileControler
dim myfile
dim fsize
dim item
dim value
dim file
%>
<%
set FileControler = server.CreateObject("Scripting.FileSystemObject")
sFolder = trim(Request.Form("source_folder"))
sNewFolder = trim(Request.Form("rename_folder"))
sSourceFolderPath = server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/files/" & sFolder)
sDestinationFolderPath = server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/files/" & sNewFolder)
if FileControler.FolderExists(sSourceFolderPath) = true then
if FileControler.FolderExists(sDestinationFolderPath) = false then
FileControler.MoveFolder sSourceFolderPath,sDestinationFolderPath
else
Response.Write ""
Response.Write "Sorry, the folder name : " & ucase(sNewFolder) & " is exist."
Response.Write "
click here to modify..."
end if
else
Response.Write ""
Response.Write "Sorry, the folder name : " & ucase(sFolder) & " is not exist."
Response.Write "
click here to modify..."
end if
return_page = ""
Response.Write return_page
set FileControler = nothing
else
Response.Redirect "../../index.asp"
end if
%>