<%@ Language=VBScript %>
<html>
<head>
<title>File and Folder Operation</title>
<%
dim fromdir
dim todir
dim fromfile
dim tofile
dim fromfolder
dim tofolder
dim command1
dim tempvar
dim fs
set fs =server.CreateObject("Scripting.FileSystemObject")
tempvar = cstr(fs.GetFile(server.mappath("default.html")).parentfolder
)
if instr("/",tempvar)<>0 then
fromdir =tempvar +"/"
else
fromdir =tempvar +"\"
end if
todir = fromdir
fromfile =fromdir &"test.txt"
tofile = fromfile
fromfolder = fromdir
tofolder = fromdir
if request.form("copyfolder") ="ok" then
fromdir=request.form("fromdir")
todir =request.form("todir")
if todir =fromdir then
Response.Write "Can't copy folder to the
same folder!"
else
fs.copyfolder fromdir,todir,true
end if
end if
if request.form("movefolder") ="ok" then
fromdir=request.form("fromdir")
todir =request.form("todir")
if todir =fromdir then
Response.Write "Can't move folder to the same
folder !"
else
fs.movefolder fromdir,todir
end if
end if
if request.form("copyfile") ="ok" then
fromfile=request.form("fromfile")
tofile =request.form("tofile")
if tofile =fromfile then
Response.Write "Can't copy file to the same file !"
else
fs.copyfile fromfile,tofile,true
end if
end if
if request.form("movefile") ="ok" then
fromfile=request.form("fromfile")
tofile =request.form("tofile")
if tofile =fromfile then
Response.Write "Can't move file to the same file !"
else
fs.movefile fromfile,tofile
end if
end if
if request.form("createfolder") ="ok" then
tofolder =request.form("dir")
fs.createfolder tofolder
end if
if request.form("deletefolder") ="ok" then
tofolder=request.form("dir")
tt= fs.GetFile(server.mappath("default.html")).parentfolder
if tofolder =tt or tofolder = tt +"\" or tofolder
=tt +"/" then
Response.Write ("Best not delete itself")
else
fs.deletefolder tofolder
end if
end if
%>
</head>
<body>
<form name="Form1" Method="Post" Action="operate.asp">
<p>From Directory : <input type="text" name="fromdir"
value= <%=chr(34) & fromdir &
chr(34) %> size="30">
To Directory : <input type="text" name="todir" value=<%=
chr(34)& todir &chr(34) %> size="30">
</p>
<p><input type="button" name="ok"value="Copy
Folder" onClick="Ok_OnClick(this.form)">
<input type="button" name="ok1" value="Move Folder"
onClick="Ok1_OnClick(this.form)">
</p>
<hr>
<p>From FileName : <input type="text" name="fromfile"
size="30" value=<% =chr(34) &fromfile
&chr(34) %> >
To FileName : <input type="text" name="tofile" size="30"
value=<%=chr(34)& tofile & chr(34) %>
>
</p>
<p><input type="button" name="ok2"value="Copy File"
onClick="Ok2_OnClick(this.form)">
<input type="button" name="ok3" value="Move File"
onClick="Ok3_OnClick(this.form)">
</p>
<hr>
<p>Directory : <input type="text" name="dir" size="30"
value=<% =chr(34)& tofolder&
chr(34) %> >
</p>
<input type="button" name="ok4" value="Create Folder"
onClick="Ok4_OnClick(this.form)">
<input type="button" name="ok5" value="Delete Folder"
onClick="Ok5_OnClick(this.form)">
</p>
<input type=hidden name=copyfolder size=4 >
<input type=hidden name=movefolder size=4>
<input type=hidden name=copyfile size=4>
<input type=hidden name=movefile size=4 >
<input type=hidden name=createfolder size=4 >
<input type=hidden name=deletefolder size=4 >
</form>
<hr>
<a href="default.html">
<p>Go Back </a>
</p>
</body>
</html>
|