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
Virtual Agent Helper - frmTodayImp.vb

frmTodayImp.vb

Caricato da: Totem
Scarica il programma completo

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