Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
The Agent - frmTodayImp.vb

frmTodayImp.vb

 Caricato da: Totem
Scarica il programma completo

  1. Public Class frmTodayImp
  2.     'Carica gli impegni per oggi (sola lettura)
  3.     Private Sub frmTodayImp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4.         Dim D As Date = Date.Now
  5.         Try
  6.             Dim R As New IO.StreamReader(Application.StartupPath + "\Imp\" + D.ToLongDateString + ".txt")
  7.             txtImp.Text = R.ReadToEnd
  8.             R.Close()
  9.         Catch FNFE As IO.FileNotFoundException
  10.             txtImp.Text = "Nessun impegno per oggi!"
  11.         End Try
  12.     End Sub
  13. End Class