<% FromFile = request("hidPathAndFile") ToFolder = replace(request("moveto"),"%20"," ") If right(ToFolder,1)<>"\" then ToFolder = ToFolder & "\" end if ToFile = ToFolder & request("hidFileName") If ucase(FromFile) <> ucase(tofile) then ' just to be sure dim fs set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists(ToFile)=true then FileExists="Y" else FileExists="N" end if if fs.FileExists(ToFile & ".desc")=true then DescExists="Y" else DescExists="N" end if If FileExists="N" and DescExists="N" then ' Move the file fs.MoveFile FromFile,ToFolder if fs.FileExists(FromFile & ".desc")=true then ' And move the description fs.MoveFile FromFile & ".desc" ,ToFolder end if end if set fs=nothing end if %>