También puedes usar el Server.Mappath para no poner la ruta física
Código PHP:
<%
Dim filesys, demofile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofile = filesys.GetFile(Server.Mappath ("./prueba/prueba.txt"))
demofile.Name = "funciona.adp"
%>