Rieccomi ho lavorato un pò e alla fine sono arrivato ad un conclusione simile a quella di GrG (attienitti cmq al form di ieri sera e poi aggiungi il codice) eccola:
Private Sub Command1_Click()
Open "C:\Users\Federico\Desktop\Ciao.txt" For Output As #1
Print #1, Date
Close #1
End Sub
Private Sub Form_Load()
Dim data As String
Open "C:\Users\Federico\Desktop\Ciao.txt" For Input As #1
Line Input #1, data
Close #1
If Date = data Then
MsgBox "raggiunta scadenza"
End If
End Sub
Private Sub Timer1_Timer()
Text3.Text = Date
End Sub
Avvisami se riscontri Problemi
Ultima modifica effettuata da TheEngi il 04/09/2009 alle 12:34 |