title image


Smiley ups - hier noch mein bisheriger Code:
Imports System.Net

Imports System

Imports System.runtime.InteropServices

Imports System.Web

Imports System.net.mail

Imports System.Net.Sockets





Public Class Form1





Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint





'************ CHECK EHS1 ***************************************************************************************

Dim ergebnis As Boolean

Dim options As New System.Net.NetworkInformation.PingOptions(5, True)

Dim pinger As New System.Net.NetworkInformation.Ping

Dim reply As System.Net.NetworkInformation.PingReply = pinger.Send("172.16.166.34", 500)

TextBox10.Text = ("Status= " + reply.Status.ToString() + ", response time= " & reply.RoundtripTime.ToString())



Try

ergebnis = My.Computer.Network.Ping("172.16.166.34")

Catch ex As Exception

TextBox7.Text = ("Exception")

Exit Sub

End Try



If ergebnis Then

TextBox7.Text = ("NetworkPing ist ok!")



Dim pen As New Pen(Color.Green, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 108, 55, 40, 40)

Else

TextBox7.Text = ("Timeout!")

Dim pen As New Pen(Color.Red, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 108, 55, 40, 40)

End If





'*********** EHS2 CHECK mit NetworkPing ************************************************************************



'Dim ergebnis As Boolean

'Dim options As New System.Net.NetworkInformation.PingOptions(5, True)

'Dim pinger As New System.Net.NetworkInformation.Ping

Dim reply2 As System.Net.NetworkInformation.PingReply = pinger.Send("172.16.166.34", 500)

TextBox6.Text = ("Status= " + reply2.Status.ToString() + ", response time= " & reply2.RoundtripTime.ToString())



Try

ergebnis = My.Computer.Network.Ping("172.16.166.35")

Catch ex As Exception

TextBox5.Text = ("Exception")

Exit Sub

End Try



If ergebnis Then

TextBox5.Text = ("NetworkPing ist ok!")



Dim pen As New Pen(Color.Green, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 490, 55, 40, 40)

Else

TextBox5.Text = ("Timeout!")



Dim pen As New Pen(Color.Red, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 490, 55, 40, 40)

End If





'************ CHECK EHS3 ***************************************************************************************

'Dim ergebnis As Boolean

'Dim options As New System.Net.NetworkInformation.PingOptions(5, True)

'Dim pinger As New System.Net.NetworkInformation.Ping

Dim reply3 As System.Net.NetworkInformation.PingReply = pinger.Send("172.16.166.36", 500)

TextBox14.Text = ("Status= " + reply3.Status.ToString() + ", response time= " & reply3.RoundtripTime.ToString())



Try

ergebnis = My.Computer.Network.Ping("172.16.166.36")

Catch ex As Exception

TextBox11.Text = ("Exception")

Exit Sub

End Try



If ergebnis Then

TextBox11.Text = ("NetworkPing ist ok!")



Dim pen As New Pen(Color.Green, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 901, 55, 40, 40)

Else

TextBox11.Text = ("Timeout!")



Dim pen As New Pen(Color.Red, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 901, 55, 40, 40)

End If



'*********** EHS4 CHECK mit NetworkPing ************************************************************************



'Dim ergebnis As Boolean

'Dim options As New System.Net.NetworkInformation.PingOptions(5, True)

'Dim pinger As New System.Net.NetworkInformation.Ping

Dim reply4 As System.Net.NetworkInformation.PingReply = pinger.Send("172.16.166.34", 500)

TextBox9.Text = ("Status= " + reply4.Status.ToString() + ", response time= " & reply4.RoundtripTime.ToString())



Try

ergebnis = My.Computer.Network.Ping("172.16.166.56")

Catch ex As Exception

TextBox8.Text = ("Exception")

Exit Sub

End Try



If ergebnis Then

TextBox8.Text = ("NetworkPing ist ok!")



Dim pen As New Pen(Color.Green, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 108, 285, 40, 40)

Else

TextBox8.Text = ("Timeout!")



Dim pen As New Pen(Color.Red, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 108, 285, 40, 40)

End If



'****************EHS5 PING ********************************************************************************************



Dim reply5 As System.Net.NetworkInformation.PingReply = pinger.Send("172.16.166.34", 500)

TextBox16.Text = ("Status= " + reply5.Status.ToString() + ", response time= " & reply5.RoundtripTime.ToString())



Try

ergebnis = My.Computer.Network.Ping("172.16.166.57")

Catch ex As Exception

TextBox16.Text = ("Exception")

Exit Sub

End Try



If ergebnis Then

TextBox12.Text = ("NetworkPing ist ok!")



Dim pen As New Pen(Color.Green, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 490, 285, 40, 40)

Else

TextBox12.Text = ("Timeout!")



Dim pen As New Pen(Color.Red, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 490, 285, 40, 40)

End If





'****************EHS6 PING ********************************************************************************************



Dim reply6 As System.Net.NetworkInformation.PingReply = pinger.Send("172.16.166.58", 500)

TextBox22.Text = ("Status= " + reply6.Status.ToString() + ", response time= " & reply6.RoundtripTime.ToString())



Try

ergebnis = My.Computer.Network.Ping("172.16.166.57")

Catch ex As Exception

TextBox22.Text = ("Exception")

Exit Sub

End Try



If ergebnis Then

TextBox19.Text = ("NetworkPing ist ok!")



Dim pen As New Pen(Color.Green, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 901, 285, 40, 40)

Else

TextBox19.Text = ("Timeout!")



Dim pen As New Pen(Color.Red, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 901, 285, 40, 40)

End If





'****************EHS7 PING ********************************************************************************************



Dim reply7 As System.Net.NetworkInformation.PingReply = pinger.Send("172.16.166.58", 500)

TextBox28.Text = ("Status= " + reply7.Status.ToString() + ", response time= " & reply7.RoundtripTime.ToString())



Try

ergebnis = My.Computer.Network.Ping("172.16.166.59")

Catch ex As Exception

TextBox28.Text = ("Exception")

Exit Sub

End Try



If ergebnis Then

TextBox25.Text = ("NetworkPing ist ok!")



Dim pen As New Pen(Color.Green, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 108, 520, 40, 40)

Else

TextBox25.Text = ("Timeout!")



Dim pen As New Pen(Color.Red, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 108, 520, 40, 40)

End If



'****************EHS8 PING ********************************************************************************************



Dim reply8 As System.Net.NetworkInformation.PingReply = pinger.Send("172.16.166.70", 500)

TextBox34.Text = ("Status= " + reply8.Status.ToString() + ", response time= " & reply8.RoundtripTime.ToString())



Try

ergebnis = My.Computer.Network.Ping("172.16.166.70")

Catch ex As Exception

TextBox34.Text = ("Exception")

Exit Sub

End Try



If ergebnis Then

TextBox31.Text = ("NetworkPing ist ok!")



Dim pen As New Pen(Color.Green, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 490, 520, 40, 40)

Else

TextBox31.Text = ("Timeout!")



Dim pen As New Pen(Color.Red, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 490, 520, 40, 40)

End If





'****************EHS9 PING ********************************************************************************************



Dim reply9 As System.Net.NetworkInformation.PingReply = pinger.Send("172.16.166.71", 500)

TextBox40.Text = ("Status= " + reply9.Status.ToString() + ", response time= " & reply9.RoundtripTime.ToString())



Try

ergebnis = My.Computer.Network.Ping("172.16.166.71")

Catch ex As Exception

TextBox40.Text = ("Exception")

Exit Sub

End Try



If ergebnis Then

TextBox37.Text = ("NetworkPing ist ok!")



Dim pen As New Pen(Color.Green, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 901, 520, 40, 40)

Else

TextBox37.Text = ("Timeout!")



Dim pen As New Pen(Color.Red, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 901, 520, 40, 40)

End If



'****************EHS10 PING ********************************************************************************************



Dim reply10 As System.Net.NetworkInformation.PingReply = pinger.Send("172.16.166.72", 500)

TextBox46.Text = ("Status= " + reply10.Status.ToString() + ", response time= " & reply10.RoundtripTime.ToString())



Try

ergebnis = My.Computer.Network.Ping("172.16.166.72")

Catch ex As Exception

TextBox46.Text = ("Exception")

Exit Sub

End Try



If ergebnis Then

TextBox43.Text = ("NetworkPing ist ok!")



Dim pen As New Pen(Color.Green, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 108, 755, 40, 40)

Else

TextBox43.Text = ("Timeout!")



Dim pen As New Pen(Color.Red, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 108, 755, 40, 40)

End If





'****************EHS11 PING ********************************************************************************************



Dim reply11 As System.Net.NetworkInformation.PingReply = pinger.Send("172.16.166.73", 500)

TextBox52.Text = ("Status= " + reply11.Status.ToString() + ", response time= " & reply11.RoundtripTime.ToString())



Try

ergebnis = My.Computer.Network.Ping("172.16.166.73")

Catch ex As Exception

TextBox52.Text = ("Exception")

Exit Sub

End Try



If ergebnis Then

TextBox49.Text = ("NetworkPing ist ok!")



Dim pen As New Pen(Color.Green, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 490, 755, 40, 40)

Else

TextBox49.Text = ("Timeout!")



Dim pen As New Pen(Color.Red, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 490, 755, 40, 40)

End If





'****************EHSA1 PING ********************************************************************************************



Dim replyA1 As System.Net.NetworkInformation.PingReply = pinger.Send("172.16.166.3", 500)

TextBox58.Text = ("Status= " + replyA1.Status.ToString() + ", response time= " & replyA1.RoundtripTime.ToString())



Try

ergebnis = My.Computer.Network.Ping("172.16.166.3")

Catch ex As Exception

TextBox58.Text = ("Exception")

Exit Sub

End Try



If ergebnis Then

TextBox55.Text = ("NetworkPing ist ok!")



Dim pen As New Pen(Color.Green, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 901, 755, 40, 40)

Else

TextBox55.Text = ("Timeout!")



Dim pen As New Pen(Color.Red, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 901, 755, 40, 40)

End If



'****************EHSA2 PING ********************************************************************************************



Dim replyA2 As System.Net.NetworkInformation.PingReply = pinger.Send("172.16.166.4", 500)

TextBox45.Text = ("Status= " + replyA2.Status.ToString() + ", response time= " & replyA2.RoundtripTime.ToString())



Try

ergebnis = My.Computer.Network.Ping("172.16.166.4")

Catch ex As Exception

TextBox45.Text = ("Exception")

Exit Sub

End Try



If ergebnis Then

TextBox44.Text = ("NetworkPing ist ok!")



Dim pen As New Pen(Color.Green, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 901, 855, 40, 40)

Else

TextBox44.Text = ("Timeout!")



Dim pen As New Pen(Color.Red, 40)

Dim font As New Font("arial", 10, FontStyle.Bold)



e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit

'1.te Zahl = links/rechts, 2.te = oben/unten, 3.te + 4.te = Größe des Kreises/Ellipse

e.Graphics.DrawEllipse(pen, 901, 855, 40, 40)

End If









'****** **************************************

'****** Verzeichnisse festlegen auf dem EHS2 **************************************************************

'****** **************************************





Dim checkdir1 As New System.IO.DirectoryInfo("m:\inbound")

Dim checkdir2 As New System.IO.DirectoryInfo("m:\inbound\bad")

Dim checkdir3 As New System.IO.DirectoryInfo("m:\outbound")

Dim checkdir4 As New System.IO.DirectoryInfo("m:\outbound\bad")



Dim fi1 As System.IO.FileInfo() = checkdir1.GetFiles()

Dim fi2 As System.IO.FileInfo() = checkdir2.GetFiles()

Dim fi3 As System.IO.FileInfo() = checkdir3.GetFiles()

Dim fi4 As System.IO.FileInfo() = checkdir4.GetFiles()



TextBox1.Text = ("" & checkdir1.GetFiles.Length.ToString() & "")

TextBox2.Text = ("" & checkdir2.GetFiles.Length.ToString() & "")

TextBox3.Text = ("" & checkdir3.GetFiles.Length.ToString() & "")

TextBox4.Text = ("" & checkdir4.GetFiles.Length.ToString() & "")



'******* Verzeichnisse EHS2 prüfen **************************************************************************



If checkdir1.GetFiles.Length.ToString() < 50 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 471, 128, 80, 20)

End If



If checkdir1.GetFiles.Length.ToString() >= 50 And checkdir1.GetFiles.Length.ToString() <= 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 471, 128, 80, 20)

End If



If checkdir1.GetFiles.Length.ToString() > 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 471, 128, 80, 20)

End If







'***********************************************************************************



If checkdir2.GetFiles.Length.ToString() < 10 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 471, 154, 80, 20)

End If



If checkdir2.GetFiles.Length.ToString() >= 10 And checkdir2.GetFiles.Length.ToString() <= 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 471, 154, 80, 20)

End If



If checkdir2.GetFiles.Length.ToString() > 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 471, 154, 80, 20)

End If



'***********************************************************************************



If checkdir3.GetFiles.Length.ToString() < 50 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 471, 180, 80, 20)

End If



If checkdir3.GetFiles.Length.ToString() > 50 And checkdir3.GetFiles.Length.ToString() < 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 471, 180, 80, 20)

End If



If checkdir3.GetFiles.Length.ToString() > 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 471, 180, 80, 20)

End If



'***********************************************************************************



If checkdir4.GetFiles.Length.ToString() < 10 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 471, 206, 80, 20)

End If



If checkdir4.GetFiles.Length.ToString() >= 10 And checkdir4.GetFiles.Length.ToString() <= 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 471, 206, 80, 20)

End If



If checkdir4.GetFiles.Length.ToString() > 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 471, 206, 80, 20)

End If



'****** Verzeichnisse festlegen auf dem EHS5 ****************************************************************



Dim checkdir5 As New System.IO.DirectoryInfo("p:\inbound")

Dim checkdir6 As New System.IO.DirectoryInfo("p:\inbound\bad")

Dim checkdir7 As New System.IO.DirectoryInfo("p:\outbound")

Dim checkdir8 As New System.IO.DirectoryInfo("p:\outbound\bad")



Dim fi5 As System.IO.FileInfo() = checkdir5.GetFiles()

Dim fi6 As System.IO.FileInfo() = checkdir6.GetFiles()

Dim fi7 As System.IO.FileInfo() = checkdir7.GetFiles()

Dim fi8 As System.IO.FileInfo() = checkdir8.GetFiles()



TextBox18.Text = ("" & checkdir5.GetFiles.Length.ToString() & "")

TextBox17.Text = ("" & checkdir6.GetFiles.Length.ToString() & "")

TextBox15.Text = ("" & checkdir7.GetFiles.Length.ToString() & "")

TextBox13.Text = ("" & checkdir8.GetFiles.Length.ToString() & "")





'******* Verzeichnisse EHS5 prüfen **************************************************************************



If checkdir5.GetFiles.Length.ToString() < 50 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 471, 364, 80, 20)

End If



If checkdir5.GetFiles.Length.ToString() >= 50 And checkdir5.GetFiles.Length.ToString() <= 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 471, 364, 80, 20)

End If



If checkdir5.GetFiles.Length.ToString() > 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 471, 364, 80, 20)





End If



'***********************************************************************************



If checkdir6.GetFiles.Length.ToString() < 10 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 471, 390, 80, 20)

End If



If checkdir6.GetFiles.Length.ToString() >= 10 And checkdir6.GetFiles.Length.ToString() <= 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 471, 390, 80, 20)

End If



If checkdir6.GetFiles.Length.ToString() > 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 471, 390, 80, 20)

End If



'***********************************************************************************



If checkdir7.GetFiles.Length.ToString() < 50 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 471, 416, 80, 20)

End If



If checkdir7.GetFiles.Length.ToString() >= 50 And checkdir7.GetFiles.Length.ToString() <= 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 471, 416, 80, 20)

End If



If checkdir7.GetFiles.Length.ToString() > 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 471, 416, 80, 20)

End If



'***********************************************************************************



If checkdir8.GetFiles.Length.ToString() < 10 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 471, 442, 80, 20)

End If



If checkdir8.GetFiles.Length.ToString() >= 10 And checkdir8.GetFiles.Length.ToString() <= 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 471, 442, 80, 20)

End If



If checkdir8.GetFiles.Length.ToString() > 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 471, 442, 80, 20)

End If



'****** Verzeichnisse festlegen auf dem EHS6 ***************************************************************



Dim checkdir9 As New System.IO.DirectoryInfo("u:\inbound")

Dim checkdir10 As New System.IO.DirectoryInfo("u:\inbound\bad")

Dim checkdir11 As New System.IO.DirectoryInfo("u:\outbound")

Dim checkdir12 As New System.IO.DirectoryInfo("u:\outbound\bad")



Dim fi9 As System.IO.FileInfo() = checkdir9.GetFiles()

Dim fi10 As System.IO.FileInfo() = checkdir10.GetFiles()

Dim fi11 As System.IO.FileInfo() = checkdir11.GetFiles()

Dim fi12 As System.IO.FileInfo() = checkdir12.GetFiles()



TextBox24.Text = ("" & checkdir9.GetFiles.Length.ToString() & "")

TextBox23.Text = ("" & checkdir10.GetFiles.Length.ToString() & "")

TextBox21.Text = ("" & checkdir11.GetFiles.Length.ToString() & "")

TextBox20.Text = ("" & checkdir12.GetFiles.Length.ToString() & "")



'******* Verzeichnisse EHS6 prüfen **************************************************************************



If checkdir9.GetFiles.Length.ToString() < 50 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 882, 364, 80, 20)

End If



If checkdir9.GetFiles.Length.ToString() >= 50 And checkdir9.GetFiles.Length.ToString() <= 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 882, 364, 80, 20)

End If



If checkdir9.GetFiles.Length.ToString() > 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 882, 364, 80, 20)

End If



'***********************************************************************************



If checkdir10.GetFiles.Length.ToString() < 10 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 882, 390, 80, 20)

End If



If checkdir10.GetFiles.Length.ToString() >= 10 And checkdir10.GetFiles.Length.ToString() <= 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 882, 390, 80, 20)

End If



If checkdir10.GetFiles.Length.ToString() > 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 882, 390, 80, 20)

End If





'***********************************************************************************



If checkdir11.GetFiles.Length.ToString() < 50 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 882, 417, 80, 20)

End If



If checkdir11.GetFiles.Length.ToString() >= 50 And checkdir11.GetFiles.Length.ToString() <= 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 882, 417, 80, 20)

End If



If checkdir11.GetFiles.Length.ToString() > 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 882, 417, 80, 20)

End If



'***********************************************************************************



If checkdir12.GetFiles.Length.ToString() < 10 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 882, 442, 80, 20)

End If



If checkdir12.GetFiles.Length.ToString() >= 10 And checkdir12.GetFiles.Length.ToString() <= 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 882, 442, 80, 20)

End If



If checkdir12.GetFiles.Length.ToString() > 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 882, 442, 80, 20)

End If



'****** Verzeichnisse festlegen auf dem EHS7 ****************************************************************



Dim checkdir13 As New System.IO.DirectoryInfo("v:\inbound")

Dim checkdir14 As New System.IO.DirectoryInfo("v:\inbound\bad")

Dim checkdir15 As New System.IO.DirectoryInfo("v:\outbound")

Dim checkdir16 As New System.IO.DirectoryInfo("v:\outbound\bad")



Dim fi13 As System.IO.FileInfo() = checkdir13.GetFiles()

Dim fi14 As System.IO.FileInfo() = checkdir14.GetFiles()

Dim fi15 As System.IO.FileInfo() = checkdir15.GetFiles()

Dim fi16 As System.IO.FileInfo() = checkdir16.GetFiles()



TextBox30.Text = ("" & checkdir13.GetFiles.Length.ToString() & "")

TextBox29.Text = ("" & checkdir14.GetFiles.Length.ToString() & "")

TextBox27.Text = ("" & checkdir15.GetFiles.Length.ToString() & "")

TextBox26.Text = ("" & checkdir16.GetFiles.Length.ToString() & "")



'******* Verzeichnisse EHS7 prüfen **************************************************************************



If checkdir13.GetFiles.Length.ToString() < 50 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 89, 600, 80, 20)

End If



If checkdir13.GetFiles.Length.ToString() >= 50 And checkdir13.GetFiles.Length.ToString() <= 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 89, 600, 80, 20)

End If



If checkdir13.GetFiles.Length.ToString() > 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 89, 600, 80, 20)

End If



'***********************************************************************************



If checkdir14.GetFiles.Length.ToString() < 10 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 89, 626, 80, 20)

End If



If checkdir14.GetFiles.Length.ToString() >= 10 And checkdir14.GetFiles.Length.ToString() <= 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 89, 626, 80, 20)

End If



If checkdir14.GetFiles.Length.ToString() > 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 89, 626, 80, 20)

End If





'***********************************************************************************



If checkdir15.GetFiles.Length.ToString() < 50 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 89, 652, 80, 20)

End If



If checkdir15.GetFiles.Length.ToString() >= 50 And checkdir15.GetFiles.Length.ToString() <= 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 89, 652, 80, 20)

End If



If checkdir15.GetFiles.Length.ToString() > 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 89, 652, 80, 20)

End If



'***********************************************************************************



If checkdir16.GetFiles.Length.ToString() < 10 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 89, 677, 80, 20)

End If



If checkdir16.GetFiles.Length.ToString() >= 10 And checkdir16.GetFiles.Length.ToString() <= 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 89, 677, 80, 20)

End If



If checkdir16.GetFiles.Length.ToString() > 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 89, 677, 80, 20)

End If



'****** Verzeichnisse festlegen auf dem EHS8 ***************************************************************



Dim checkdir17 As New System.IO.DirectoryInfo("w:\inbound")

Dim checkdir18 As New System.IO.DirectoryInfo("w:\inbound\bad")

Dim checkdir19 As New System.IO.DirectoryInfo("w:\outbound")

Dim checkdir20 As New System.IO.DirectoryInfo("w:\outbound\bad")



Dim fi17 As System.IO.FileInfo() = checkdir17.GetFiles()

Dim fi18 As System.IO.FileInfo() = checkdir18.GetFiles()

Dim fi19 As System.IO.FileInfo() = checkdir19.GetFiles()

Dim fi20 As System.IO.FileInfo() = checkdir20.GetFiles()



TextBox36.Text = ("" & checkdir17.GetFiles.Length.ToString() & "")

TextBox35.Text = ("" & checkdir18.GetFiles.Length.ToString() & "")

TextBox33.Text = ("" & checkdir19.GetFiles.Length.ToString() & "")

TextBox32.Text = ("" & checkdir20.GetFiles.Length.ToString() & "")



'******* Verzeichnisse EHS8 prüfen **************************************************************************



If checkdir17.GetFiles.Length.ToString() < 50 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 471, 600, 80, 20)

End If



If checkdir17.GetFiles.Length.ToString() >= 50 And checkdir17.GetFiles.Length.ToString() <= 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 471, 600, 80, 20)

End If



If checkdir17.GetFiles.Length.ToString() > 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 471, 600, 80, 20)

End If



'***********************************************************************************



If checkdir18.GetFiles.Length.ToString() < 10 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 471, 626, 80, 20)

End If



If checkdir18.GetFiles.Length.ToString() >= 10 And checkdir18.GetFiles.Length.ToString() <= 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 471, 626, 80, 20)

End If



If checkdir18.GetFiles.Length.ToString() > 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 471, 626, 80, 20)

End If





'***********************************************************************************



If checkdir19.GetFiles.Length.ToString() < 50 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 471, 652, 80, 20)

End If



If checkdir19.GetFiles.Length.ToString() >= 50 And checkdir19.GetFiles.Length.ToString() <= 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 471, 652, 80, 20)

End If



If checkdir19.GetFiles.Length.ToString() > 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 471, 652, 80, 20)

End If



'***********************************************************************************



If checkdir20.GetFiles.Length.ToString() < 10 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 471, 677, 80, 20)

End If



If checkdir20.GetFiles.Length.ToString() >= 10 And checkdir20.GetFiles.Length.ToString() <= 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 471, 677, 80, 20)

End If



If checkdir20.GetFiles.Length.ToString() > 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 471, 677, 80, 20)

End If



'****** Verzeichnisse festlegen auf dem EHS9 ****************************************************************



Dim checkdir21 As New System.IO.DirectoryInfo("x:\inbound")

Dim checkdir22 As New System.IO.DirectoryInfo("x:\inbound\bad")

Dim checkdir23 As New System.IO.DirectoryInfo("x:\outbound")

Dim checkdir24 As New System.IO.DirectoryInfo("x:\outbound\bad")



Dim fi21 As System.IO.FileInfo() = checkdir21.GetFiles()

Dim fi22 As System.IO.FileInfo() = checkdir22.GetFiles()

Dim fi23 As System.IO.FileInfo() = checkdir23.GetFiles()

Dim fi24 As System.IO.FileInfo() = checkdir24.GetFiles()



TextBox42.Text = ("" & checkdir21.GetFiles.Length.ToString() & "")

TextBox41.Text = ("" & checkdir22.GetFiles.Length.ToString() & "")

TextBox39.Text = ("" & checkdir23.GetFiles.Length.ToString() & "")

TextBox38.Text = ("" & checkdir24.GetFiles.Length.ToString() & "")



'******* Verzeichnisse EHS9 prüfen **************************************************************************



If checkdir21.GetFiles.Length.ToString() < 50 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 882, 600, 80, 20)

End If



If checkdir21.GetFiles.Length.ToString() >= 50 And checkdir21.GetFiles.Length.ToString() <= 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 882, 600, 80, 20)

End If



If checkdir21.GetFiles.Length.ToString() > 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 882, 600, 80, 20)

End If



'***********************************************************************************



If checkdir22.GetFiles.Length.ToString() < 10 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 882, 626, 80, 20)

End If



If checkdir22.GetFiles.Length.ToString() >= 10 And checkdir22.GetFiles.Length.ToString() <= 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 882, 626, 80, 20)

End If



If checkdir22.GetFiles.Length.ToString() > 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 882, 626, 80, 20)

End If



'***********************************************************************************



If checkdir23.GetFiles.Length.ToString() < 50 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 882, 652, 80, 20)

End If



If checkdir23.GetFiles.Length.ToString() >= 50 And checkdir23.GetFiles.Length.ToString() <= 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 882, 652, 80, 20)

End If



If checkdir23.GetFiles.Length.ToString() > 100 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 882, 652, 80, 20)

End If



'***********************************************************************************



If checkdir24.GetFiles.Length.ToString() < 10 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Green)

GraphicsFun.FillRectangle(brushcolor, 882, 677, 80, 20)

End If



If checkdir24.GetFiles.Length.ToString() >= 10 And checkdir24.GetFiles.Length.ToString() <= 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Orange)

GraphicsFun.FillRectangle(brushcolor, 882, 677, 80, 20)

End If



If checkdir24.GetFiles.Length.ToString() > 20 Then

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim brushcolor As New SolidBrush(Color.Red)

GraphicsFun.FillRectangle(brushcolor, 882, 677, 80, 20)

End If









End Class







Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



'*************************************************************************************************

'*************************************************************************************************

'*************************************************************************************************







' Überwachung der Verzeichnisse EHS2:



Dim checkdir1 As New System.IO.DirectoryInfo("m:\inbound")

Dim checkdir2 As New System.IO.DirectoryInfo("m:\inbound\bad")

Dim checkdir3 As New System.IO.DirectoryInfo("m:\outbound")

Dim checkdir4 As New System.IO.DirectoryInfo("m:\outbound\bad")





Dim fi1 As System.IO.FileInfo() = checkdir1.GetFiles()

If checkdir1.GetFiles.Length.ToString() > 50 Then





Try

Dim sc1 As New SmtpClient("172.16.101.40")

Dim msg1 As New MailMessage

Dim addr1 As New MailAddress("genesys.eye@domain.de")

msg1.From = addr1

msg1.To.Add("onkel.hotte@domain.de")

msg1.Subject = "Warnung - Genesys Mailsystem!"

msg1.Priority = MailPriority.High

msg1.Body = "Über 50 Dateien im Verzeichnis: EHS2\mail\inbound\!"

sc1.Send(msg1)

Catch ex As SmtpException

MessageBox.Show("SMTP Fehler : " & ex.Message)

End Try

End If



Dim fi2 As System.IO.FileInfo() = checkdir2.GetFiles()

If checkdir2.GetFiles.Length.ToString() > 50 Then





Try

Dim sc2 As New SmtpClient("172.16.101.40")

Dim msg2 As New MailMessage

Dim addr2 As New MailAddress("genesys.eye@domain.de")

msg2.From = addr2

msg2.To.Add("onkel.hotte@domain.de")

msg2.Subject = "Warnung - Genesys Mailsystem!"

msg2.Priority = MailPriority.High

msg2.Body = "Über 50 Dateien im Verzeichnis: EHS2\mail\inbound\bad!"

sc2.Send(msg2)

Catch ex As SmtpException

MessageBox.Show("SMTP Fehler : " & ex.Message)

End Try

End If





Dim fi3 As System.IO.FileInfo() = checkdir3.GetFiles()

If checkdir3.GetFiles.Length.ToString() > 50 Then





Try

Dim sc3 As New SmtpClient("172.16.101.40")

Dim msg3 As New MailMessage

Dim addr3 As New MailAddress("genesys.eye@domain.de")

msg3.From = addr3

msg3.To.Add("onkel.hotte@domain.de")

msg3.Subject = "Warnung - Genesys Mailsystem!"

msg3.Priority = MailPriority.High

msg3.Body = "Über 50 Dateien im Verzeichnis: EHS2\mail\outbound\!"

sc3.Send(msg3)

Catch ex As SmtpException

MessageBox.Show("SMTP Fehler : " & ex.Message)

End Try

End If







Dim fi4 As System.IO.FileInfo() = checkdir4.GetFiles()

If checkdir4.GetFiles.Length.ToString() > 50 Then





Try

Dim sc4 As New SmtpClient("172.16.101.40")

Dim msg4 As New MailMessage

Dim addr4 As New MailAddress("genesys.eye@domain.de")

msg4.From = addr4

msg4.To.Add("onkel.hotte@domain.de")

msg4.Subject = "Warnung - Genesys Mailsystem!"

msg4.Priority = MailPriority.High

msg4.Body = "Über 50 Dateien im Verzeichnis: EHS2\mail\outbound\bad!"

sc4.Send(msg4)

Catch ex As SmtpException

MessageBox.Show("SMTP Fehler : " & ex.Message)

End Try

End If







'*************************************************************************************************

'*************************************************************************************************

'*************************************************************************************************



' Überwachung der Verzeichnisse EHS5:



Dim checkdir5 As New System.IO.DirectoryInfo("p:\inbound")

Dim checkdir6 As New System.IO.DirectoryInfo("p:\inbound\bad")

Dim checkdir7 As New System.IO.DirectoryInfo("p:\outbound")

Dim checkdir8 As New System.IO.DirectoryInfo("p:\outbound\bad")





Dim fi5 As System.IO.FileInfo() = checkdir5.GetFiles()

If checkdir5.GetFiles.Length.ToString() > 50 Then





Try

Dim sc5 As New SmtpClient("172.16.101.40")

Dim msg5 As New MailMessage

Dim addr5 As New MailAddress("genesys.eye@domain.de")

msg5.From = addr5

msg5.To.Add("onkel.hotte@domain.de")

msg5.Subject = "Warnung - Genesys Mailsystem!"

msg5.Priority = MailPriority.High

msg5.Body = "Über 50 Dateien im Verzeichnis: EHS5\mail\inbound\!"

sc5.Send(msg5)

Catch ex As SmtpException

MessageBox.Show("SMTP Fehler : " & ex.Message)

End Try

End If



Dim fi6 As System.IO.FileInfo() = checkdir6.GetFiles()

If checkdir6.GetFiles.Length.ToString() > 50 Then





Try

Dim sc6 As New SmtpClient("172.16.101.40")

Dim msg6 As New MailMessage

Dim addr6 As New MailAddress("genesys.eye@domain.de")

msg6.From = addr6

msg6.To.Add("onkel.hotte@domain.de")

msg6.Subject = "Warnung - Genesys Mailsystem!"

msg6.Priority = MailPriority.High

msg6.Body = "Über 50 Dateien im Verzeichnis: EHS5\mail\inbound\bad!"

sc6.Send(msg6)

Catch ex As SmtpException

MessageBox.Show("SMTP Fehler : " & ex.Message)

End Try

End If





Dim fi7 As System.IO.FileInfo() = checkdir7.GetFiles()

If checkdir7.GetFiles.Length.ToString() > 50 Then





Try

Dim sc7 As New SmtpClient("172.16.101.40")

Dim msg7 As New MailMessage

Dim addr7 As New MailAddress("genesys.eye@domain.de")

msg7.From = addr7

msg7.To.Add("onkel.hotte@domain.de")

msg7.Subject = "Warnung - Genesys Mailsystem!"

msg7.Priority = MailPriority.High

msg7.Body = "Über 50 Dateien im Verzeichnis: EHS5\mail\outbound\!"

sc7.Send(msg7)

Catch ex As SmtpException

MessageBox.Show("SMTP Fehler : " & ex.Message)

End Try

End If







Dim fi8 As System.IO.FileInfo() = checkdir8.GetFiles()

If checkdir8.GetFiles.Length.ToString() > 50 Then





Try

Dim sc8 As New SmtpClient("172.16.101.40")

Dim msg8 As New MailMessage

Dim addr8 As New MailAddress("genesys.eye@domain.de")

msg8.From = addr8

msg8.To.Add("onkel.hotte@domain.de")

msg8.Subject = "Warnung - Genesys Mailsystem!"

msg8.Priority = MailPriority.High

msg8.Body = "Über 50 Dateien im Verzeichnis: EHS5\mail\outbound\bad!"

sc8.Send(msg8)

Catch ex As SmtpException

MessageBox.Show("SMTP Fehler : " & ex.Message)

End Try

End If





'*************************************************************************************************

'*************************************************************************************************

'*************************************************************************************************



' Überwachung der Verzeichnisse EHS6:



Dim checkdir9 As New System.IO.DirectoryInfo("u:\inbound")

Dim checkdir10 As New System.IO.DirectoryInfo("u:\inbound\bad")

Dim checkdir11 As New System.IO.DirectoryInfo("u:\outbound")

Dim checkdir12 As New System.IO.DirectoryInfo("u:\outbound\bad")





Dim fi9 As System.IO.FileInfo() = checkdir9.GetFiles()

If checkdir9.GetFiles.Length.ToString() > 50 Then





Try

Dim sc6 As New SmtpClient("172.16.101.40")

Dim msg6 As New MailMessage

Dim addr6 As New MailAddress("genesys.eye@domain.de")

msg6.From = addr6

msg6.To.Add("onkel.hotte@domain.de")

msg6.Subject = "Warnung - Genesys Mailsystem!"

msg6.Priority = MailPriority.High

msg6.Body = "Über 50 Dateien im Verzeichnis: EHS6\mail\inbound\!"

sc6.Send(msg6)

Catch ex As SmtpException

MessageBox.Show("SMTP Fehler : " & ex.Message)

End Try

End If



Dim fi10 As System.IO.FileInfo() = checkdir10.GetFiles()

If checkdir10.GetFiles.Length.ToString() > 50 Then





Try

Dim sc10 As New SmtpClient("172.16.101.40")

Dim msg10 As New MailMessage

Dim addr10 As New MailAddress("genesys.eye@domain.de")

msg10.From = addr10

msg10.To.Add("onkel.hotte@domain.de")

msg10.Subject = "Warnung - Genesys Mailsystem!"

msg10.Priority = MailPriority.High

msg10.Body = "Über 50 Dateien im Verzeichnis: EHS6\mail\inbound\bad!"

sc10.Send(msg10)

Catch ex As SmtpException

MessageBox.Show("SMTP Fehler : " & ex.Message)

End Try

End If





Dim fi11 As System.IO.FileInfo() = checkdir11.GetFiles()

If checkdir11.GetFiles.Length.ToString() > 50 Then





Try

Dim sc11 As New SmtpClient("172.16.101.40")

Dim msg11 As New MailMessage

Dim addr11 As New MailAddress("genesys.eye@domain.de")

msg11.From = addr11

msg11.To.Add("onkel.hotte@domain.de")

msg11.Subject = "Warnung - Genesys Mailsystem!"

msg11.Priority = MailPriority.High

msg11.Body = "Über 50 Dateien im Verzeichnis: EHS6\mail\outbound\!"

sc11.Send(msg11)

Catch ex As SmtpException

MessageBox.Show("SMTP Fehler : " & ex.Message)

End Try

End If







Dim fi12 As System.IO.FileInfo() = checkdir12.GetFiles()

If checkdir12.GetFiles.Length.ToString() > 50 Then





Try

Dim sc12 As New SmtpClient("172.16.101.40")

Dim msg12 As New MailMessage

Dim addr12 As New MailAddress("genesys.eye@domain.de")

msg12.From = addr12

msg12.To.Add("onkel.hotte@domain.de")

msg12.Subject = "Warnung - Genesys Mailsystem!"

msg12.Priority = MailPriority.High

msg12.Body = "Über 50 Dateien im Verzeichnis: EHS2\mail\outbound\bad!"

sc12.Send(msg12)

Catch ex As SmtpException

MessageBox.Show("SMTP Fehler : " & ex.Message)

End Try

End If





'*************************************************************************************************

'****************

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: