Alguien me puede decir por favor como puedo mover Todos los archivos con extension XXX (cualquiera) desde la carpeta con nombre (FOLDER1) a la carpeta con nombre (FOLDER2) que estan en el servidor por favor???
ES Urgenteee.... GRACIASSSSSSSSS
| |||
Mover Archivos txt en el server.... Alguien me puede decir por favor como puedo mover Todos los archivos con extension XXX (cualquiera) desde la carpeta con nombre (FOLDER1) a la carpeta con nombre (FOLDER2) que estan en el servidor por favor??? ES Urgenteee.... GRACIASSSSSSSSS
__________________ Saludos Alejandro Antonio :-D from ChiLE :pensando: [email protected] icq:14648436 [email protected] |
| |||
ya encontre la solucion!.. no existe una instruccion como copy *.txt to c: pero hay algo que lo suple... me genera una funcion que le mando por paramtro el archivo que deseo copiar y manejo en mi funcion desde donde saco el archivo y donde lo copio :) aqui se las dejo.. suerte function copiar_archivos_informe(nombre_archivo) Dim FSObject, Fichero , NombreAnterior, NombreNuevo 'Inicialización NombreAnterior =nombre_archivo NombreNuevo =nombre_archivo ' Instanciamos el objeto Set Fichero = Server.CreateObject("Scripting.FileSystemObject") ' Asignamos el fichero a renombrar a la variable fich Set Fichero = Fichero.GetFile(Server.MapPath("..\..\ctl\" & NombreAnterior)) ' llamamos a la funcion copiar, 'y duplicamos el archivo pero con otro nombre Call Fichero.Copy(Server.MapPath("..\" & NombreNuevo)) ' finalmente borramos el fichero original Set Fichero = Nothing Set FSObject = Nothing end function %> archivo = "blabla.txt" copiar_archivos_informe(archivo)
__________________ Saludos Alejandro Antonio :-D from ChiLE :pensando: [email protected] icq:14648436 [email protected] |