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