
10/01/2002, 08:25
|
 | | | Fecha de Ingreso: mayo-2001 Ubicación: Madrid
Mensajes: 933
Antigüedad: 23 años, 11 meses Puntos: 0 | |
Re: Modificar el nombre de un archivo Hola amigo, aquí te paso un ejemplo completo de manejo de archivos con FileSystemObject extraído del MSDN:
Este ejemplo crea un archivo de texto en el directorio raíz de la unidad C, escribe alguna información en él, se mueve a un directorio llamada \tmp, hace una copia de un directorio llamado \temp y elimina las copias de ambos directorios.
Para ejecutar este ejemplo, compruebe que tiene dos directorios llamadas \tmp y \temp en el directorio raíz de la unidad C.
<pre>Sub Manip_Files()
Dim fso as New FileSystemObject, txtfile, fil1, fil2
Set txtfile = fso.CreateTextFile("c:\prueba.txt", True)
MsgBox "Escribiendo archivo"
' Escribe una línea.
txtfile.Write ("Esto es una prueba.")
' Cierra el archivo para escribir.
txtfile.Close
MsgBox "Moviendo el archivo a c:\tmp"
' Obtiene un controlador al archivo en la raíz de C:\.
Set fil1 = fso.GetFile("c:\Prueba.txt")
' Mueve el archivo al directorio \tmp.
fil1.Move ("c:\tmp\prueba.txt")
MsgBox "Copiando el archivo a c:\temp"
' Copia el archivo a \temp.
fil1.Copy ("c:\temp\prueba.txt")
MsgBox "Eliminando archivos"
' Obtiene controladores a la ubicación actual.
Set fil1 = fso.GetFile("c:\tmp\prueba.txt")
Set fil2 = fso.GetFile("c:\temp\prueba.txt")
' Elimina los archivos.
fil1.Delete
fil2.Delete
MsgBox "¡Completado!"
End Sub
</pre>
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a> |