Copia de ficheros.

[naniva]

Saludos.

Necesitaría código para copiar ficheros .txt de un directorio determinado a otro, seleccionándolos por fecha (los de un día, o por intervalo de tiempo).

Mil gracias.

[A.H.H]

hay un cmando para copiar de un directorio a otro es:

FileCopy (origen.destino)

ejemplo:

Private Sub Form_Load()
FileCopy "C:\pruebas\mitexto.txt","C:\pruebas2\mitexto2.txt "
end sub

[naniva]

Saludos.

Gracias AHH, pero necesito introducir parámetros para que se copien sólo los que se hayan modificado o creado en un intervalo de tiempo ddeterminado.

[A.H.H]

Hola de nuevo, te mando un ejemplo que solo lo que hace es comparar la fecha que introduce el usuario con la de un archivo elegido, por si te sirve de algo!!.
alguna parte del codigo no es exactamente lo que estas buscando pero si te puede servir de algo alguna funcion.

Con filedatetime obtenemos la fecha y la hora del archivo, pero a la hora de hacer comparaciones solo usaremos la fecha por lo que la cogeremos con el comando left y los 10caracteres siguientes pues el formato es ejemplo;21/10/2007

*inserta un boton command1 y un cuadro de dialogo en componentes ole(Microsoft Common Dialog control 6.0)

el codigo en el form:

Private Sub Command1_Click()
Dim fec As Date 'aqui mete la fecha el usuario con un inputbox.
Dim archiv As String 'aqui el archivo elegido con su fecha y hora.
Dim resultado As Date 'aqui desglosamos la fecha y hora pues solo trabajaremos con la fecha.

fec = InputBox("INTRO FECHA ejemplo 21/10/2007: ") 'el usuario introduce fecha

'preparamos el commondialog

CommonDialog1.DialogTitle = "SELECCIONAR ARCHIVO"
CommonDialog1.InitDir = "C:\"
CommonDialog1.Filter = "TEXTO (*.TXT)|*.txt|TODOS (*.*)|*.*"
CommonDialog1.ShowOpen 'abrir el cuadro de dialogo para elegir archivos
archiv = FileDateTime(CommonDialog1.FileName) 'contenido de archiv=fecha y hora archivo elegido
resultado = Left(archiv, 10) 'separar los 10 caracteres desde la izq.en archiv solo queremos la fecha no la hora

If fec = resultado Then 'si la fecha introducida es igual a la del archivo elegido..

MsgBox ("son de la misma fecha! ") & archiv

Else 'en caso contrario

MsgBox ("no son de la misma fecha!") & Chr$(13) & "este es del: " & archiv

End If


End Sub

Private Sub Form_Load()
'propiedades para el boton

Command1.Caption = "IntroFecha"
Command1.Width = 1095
Command1.Height = 375
End Sub

salu2
estudia el codigo igual te sirve

[naniva]

Gracias AHH.

Es posible que con algún cambio pueda servirme.