Beetje reorganiseren

[Schipperjte]

Hoi,

Heb hier en daar wat gevonden en aan elkaar geplakt, maar heb het gevoel dat er hier en
daar wat onnodige dingen staan of in de verkeerde volgorde.

Even uitleggen.
Een form gemaakt met textboxen naar excel.
Heb wat moeten toevoegen zodat de mensen altijd het juiste document hebben wat regelmatig veranderd.
Hij zoekt eerst een bestand (My.Application.Info.DirectoryPath & "\twain.DLL") anders start het niet
Met een verloop datum in Settings , en een waarschuwing nog bv 8 dagen
Als de datum verlopen is zou hij een waarschuwing moeten geven , en een bestandje weg
schrijven op de harde schijf.("C:\windows\textdata.txt")
Als het opstart kijkt hij of dit er staat anders start hij niet op .
Tevens zou hij het excel bestand moeten verwijderen na verlopen van de datum.(My.Application.Info.DirectoryPath & "\Bunkerpapieren 2.7.xls")
Op 2 plaatsen kan ik verloop datum zien dvm een label

Het werkt maar volgens mij spreekt het toch elkaar een beetje tegen? of in de verkeerde volgorde.

Wie zou er even kunnen opschonen ?
Ik ben eigenlijk nog maar een maand of 3 bezig met VB dus is nog een beetje rommelig

Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\twain.DLL") Then

             

            Dim EndTrialDate As Date = CDate("25/11/2010") ' Eventueel instaldatum + zoveel dagen/maanden
            Dim Today As Date = Date.Now

            If Date.Now > EndTrialDate Then
                MessageBox.Show("Trial is verlopen.", "Info", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                End
            Else
                Dim DaysToEnd As TimeSpan = EndTrialDate.Subtract(Today)
                If DaysToEnd.Days <= 7 Then
                    MessageBox.Show("Dit programma verloopt over " & DaysToEnd.Days & " dagen.")
                End If
            End If



        Else
            MsgBox("Er is een fout opgetreden ,neem contact op met ....... .", _
                      vbCritical, _
                                "VBB")

            Me.Close()
        End If


        If My.Computer.FileSystem.FileExists("C:\windows\textdata.txt") Then
            MsgBox("Dit programma is verlopen , neem contact op met .......")


            Me.Close()
        End If

        


        Label3.Text = DateTime.Now()
        If My.Settings.Exdate = Nothing Then
            My.Settings.Exdate = DateTime.Now.AddDays(1)
        End If
        Label4.Text = My.Settings.Exdate


    End Sub

    Public Sub RefreshTime()
        Label1.Text = DateTime.Now()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        RefreshTime()

        If DateTime.Now > My.Settings.Exdate Then
            Timer1.Stop()
            Dim file_write As New System.IO.StreamWriter("C:\windows\textdata.txt")

            

            file_write.Close()
            MsgBox("Dit programma is verlopen , neem contact op met ...")
            My.Computer.FileSystem.DeleteFile(My.Application.Info.DirectoryPath & "\Bunkerpapieren 2.7.xls")

        End If
    End Sub