Como hago para verificar un archivo

[gasafonso]

Yo tengo un archivo de texto que tiene en la primer linea una fecha

quiero que cada vez que entras al progframa , verifique la fecha si conincide que se habra sino no


PD: Como hago para guardar una imagen en una base de datos


gracias

[Avellaneda]

Iniciado por gasafonso

Yo tengo un archivo de texto que tiene en la primer linea una fecha

quiero que cada vez que entras al progframa , verifique la fecha si conincide que se habra sino no


PD: Como hago para guardar una imagen en una base de datos


gracias

Bueno, son dos preguntas distintas que deberian estar en diferentes posts.

A la primera:
Que verifique conqué?. Supongamos que con la fecha actual:

Código:

Dim a() As String, s As String

Open "c:\Archivo.txt" For Input As #1
Line Input #1, s
Close #1
a = Split(s, vbNewLine)
If a(0) = Date Then
    MsgBox "Si"
Else
    MsgBox "No"
End If

En rojo: Ruta y nombre del archivo.
La primera línea del archivo contiene únicamente una fecha.

A la segunda:

Código:

Dim b() As Byte
Open sRuta For Binary As #1
ReDim b(FileLen(sRuta))
Get #1, , b
Close #1
rs.Fields("Foto").AppendChunk b
rs.Update

Donde:
'sRuta' es un string que contiene la ruta y el nombre del archivo imagen (incluida la extensión)
'rs' es un recordset que previamente has abierto a la tabla que contiene el campo imagen.
'"Foto"' es el nombre del campo imagen de la tabla.