este ejemplo funciona muy bien, trata de acomodarlo a lo que necesitas,
aki vienen casi todas las funciones
Código PHP:
Sub ManipFiles
Dim fso, f1, f2, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\archprue.txt", True)
Response.Write "Escribir archivo <br>"
' Escribir una línea.
f1.Write ("Esto es una prueba.")
' Cerrar el archivo para la escritura.
f1.Close
Response.Write "Mover archivo a c:\tmp <br>"
' Obtener un identificador para el archivo en la raíz de C:\.
Set f2 = fso.GetFile("c:\archprue.txt")
' Mover el archivo al directorio tmp.
f2.Move ("c:\tmp\archprue.txt")
Response.Write "Copiar archivo a c:\temp <br>"
' Copiar el archivo a \temp.
f2.Copy ("c:\temp\archprue.txt")
Response.Write "Eliminar archivos <br>"
' Obtener identificadores para la ubicación actual de los archivos.
Set f2 = fso.GetFile("c:\tmp\archprue.txt")
Set f3 = fso.GetFile("c:\temp\archprue.txt")
Eliminar los archivos.
f2.Delete
f3.Delete
Response.Write "Terminado"
End Sub
suerte
