Hola como puedo renombrar un fichero.txt para que el resultado sea tres caracteres mas la fecha del sistema?? ejem:GGG151103.txt, os agradeceria un codigo de ejemplo ya que soy novato y no tengo mucha idea.
Saludos.
15/11/2003, 11:05
| |||
| |||
| como lo puedo hacer?? Hola como puedo renombrar un fichero.txt para que el resultado sea tres caracteres mas la fecha del sistema?? ejem:GGG151103.txt, os agradeceria un codigo de ejemplo ya que soy novato y no tengo mucha idea. Saludos. |
|
15/11/2003, 14:13
| ||||
| ||||
| 'Esto copia Private Sub btnGuardar_Click() Dim fs 'Hace una copia Set fs = CreateObject("Scripting.FileSystemObject") fs.copyfile App.Path & "\archivo.txt", App.Path & "\GGG" & Format(Date, "ddmmyy") & ".txt" End Sub 'Esto renombra Name App.Path & "\archivo.txt" As App.Path & "\GGG" & Format(Date, "ddmmyy") & ".txt" APP.PATH devuelve el directorio del ejecutable, esté donde esté. Puedes meter una ruta fija si quieres. Saludos |
