Yo he encontrado este otro código por si a alguien le sirve:
Código PHP:
<%
Dim filesys, demofile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofile = filesys.GetFile(Server.Mappath ("prueba.txt"))
demofile.Name = "funciona.txt"
%>
Muchas gracias
