Foros del web, para los que viven de bits

naniva · 18-oct-2007, 10:33

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 · 18-oct-2007, 12:36

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

FileCopy (origen.destino)

ejemplo:

Cita:

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

naniva · 19-oct-2007, 02:56

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 · 21-oct-2007, 04:30

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:

Cita:

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 · 22-oct-2007, 13:10

Gracias AHH.

Es posible que con algún cambio pueda servirme.

18-oct-2007, 10:33	#1 (permalink)
naniva Fecha de Ingreso: mayo-2005 Mensajes: 7	Copia de ficheros. 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.

18-oct-2007, 12:36	#2 (permalink)
A.H.H Fecha de Ingreso: mayo-2007 Ubicación: IRUN,(GUIPUZCOA) España Mensajes: 47	Re: Copia de ficheros. hay un cmando para copiar de un directorio a otro es: FileCopy (origen.destino) ejemplo: Cita: Private Sub Form_Load() FileCopy "C:\pruebas\mitexto.txt","C:\pruebas2\mitexto2.txt " end sub

19-oct-2007, 02:56	#3 (permalink)
naniva Fecha de Ingreso: mayo-2005 Mensajes: 7	Re: Copia de ficheros. 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.

21-oct-2007, 04:30	#4 (permalink)
A.H.H Fecha de Ingreso: mayo-2007 Ubicación: IRUN,(GUIPUZCOA) España Mensajes: 47	Re: Copia de ficheros. 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: Cita: 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

22-oct-2007, 13:10	#5 (permalink)
naniva Fecha de Ingreso: mayo-2005 Mensajes: 7	Re: Copia de ficheros. Gracias AHH. Es posible que con algún cambio pueda servirme.

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado