VBScript Sample: vbscript/general/fileio/operate.asp
   ASP Script
   Comments or Client-side Script
   HTML and Text

<%@ 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>
<SCRIPT  Language="JavaScript">
function Ok_OnClick(form){
      form.copyfolder.value="ok";
      form.submit();
}
function Ok1_OnClick(form){
      form.movefolder.value="ok";
      form.submit();
}
function Ok2_OnClick(form){
     form.copyfile.value="ok";
      form.submit();
}
function Ok3_OnClick(form){
     form.movefile.value="ok";
      form.submit();
}
function Ok4_OnClick(form){
     form.createfolder.value="ok";
      form.submit();
}
function Ok5_OnClick(form){
      form.deletefolder.value="ok";
      form.submit();
}
 
</SCRIPT> 
</p>
</body>
</html>


Copyright © 1998-2002, Halcyon Software Inc. All rights reserved.