Directory Viewer with downloading

Directory Viewer with downloading
--------------------------------------------------------------------------------

Description : This will rename a specific file and or move the file to a different directory

<% Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

objFSO.MoveFile Server.MapPath("/someDir/Foo.asp"), _
Server.MapPath("/someDir/Bar.asp")

Set objFSO = Nothing %>

--------------------------------------------------------------------------------