Visual Basic

" SELECT" & _
"   h.FSALESPN " & _
" , h.FPERIOD " & _
" , h.FCSAMT " & _
" FROM ARINV01H.dbf h " & _
" WHERE h.FSHIPDATE >= @FSTART " & _
" AND h.FSHIPDATE <= @FSTOP "

Dim gSalesReps As List(Of model_salesChampions) = invoices.GroupBy(Function(sR) sR.FSALESREP).Select(Function(cl) New model_salesChampions() With {
    .salesrep_ID = cl.First().FSALESREP,
    .salesrep_Name = String.Empty,
    .P1 = cl.Where(Function(p1) p1.FPERIOD = rT & "01").Sum(Function(p1) p1.FCSAMT),
    .P2 = cl.Where(Function(p2) p2.FPERIOD = rT & "02").Sum(Function(p2) p2.FCSAMT),
    .P3 = cl.Where(Function(p3) p3.FPERIOD = rT & "03").Sum(Function(p3) p3.FCSAMT),
    .P4 = cl.Where(Function(p4) p4.FPERIOD = rT & "04").Sum(Function(p4) p4.FCSAMT),
    .P5 = cl.Where(Function(p5) p5.FPERIOD = rT & "05").Sum(Function(p5) p5.FCSAMT),
    .P6 = cl.Where(Function(p6) p6.FPERIOD = rT & "06").Sum(Function(p6) p6.FCSAMT),
    .P7 = cl.Where(Function(p7) p7.FPERIOD = rT & "07").Sum(Function(p7) p7.FCSAMT),
    .P8 = cl.Where(Function(p8) p8.FPERIOD = rT & "08").Sum(Function(p8) p8.FCSAMT),
    .P9 = cl.Where(Function(p9) p9.FPERIOD = rT & "09").Sum(Function(p9) p9.FCSAMT),
    .P10 = cl.Where(Function(p10) p10.FPERIOD = rT & "10").Sum(Function(p10) p10.FCSAMT),
    .P11 = cl.Where(Function(p11) p11.FPERIOD = rT & "11").Sum(Function(p11) p11.FCSAMT),
    .P12 = cl.Where(Function(p12) p12.FPERIOD = rT & "12").Sum(Function(p12) p12.FCSAMT)
}).ToList()

me.TblPCRBindingSource.Filter = "ModelYear = " & (myear) And "Line = " & CInt(txtLine.Text)

Sub Main()
        '--------------------------------------------------------------------------------------------------------
        'Declare Variables
        Dim strSiteCode
        Dim strVistaFQDN
        Dim strPort
        Dim arrStr

        '--------------------------------------------------------------------------------------------------------
        'Start processing

        Using sr As New StreamReader("c:\dell\R03Sites2.csv")
            Dim line As String
            ' Read and display lines from the file until the end of
            ' the file is reached.
            Do
                line = sr.ReadLine()
                Dim Sites As String = My.Computer.FileSystem.ReadAllText("c:\dell\Sites2.txt")
                If Not (line Is Nothing) Then
                    Console.WriteLine("Start processing loop")
                    arrStr = Split(sr.ReadLine, ",")
                    strSiteCode = arrStr(0)
                    strVistaFQDN = arrStr(1)
                    strPort = arrStr(2)
                    Console.WriteLine("Array populated...  Enter if then statement")
                    If Trim(Sites) = Trim(strSiteCode) Then
                        Console.WriteLine(Trim(Sites) & " , " & Trim(strSiteCode))
                        Console.WriteLine("s=" & strVistaFQDN & " p=" & strPort)

                        'build shorcuts here.  Code to build shortcuts is working correctly when ran
                        'statically but it never finds a match so it always moves to the else and writes
                        'Console.WriteLine("Error:  No Matching Information in the Sites and R03sites files!")
                        'There is only 1 line is Sites and an array is created for the data in R03sites.
                        'My intention is to match the line in Sites to the portion of the array that correspondes
                        'to the site which is strSiteCode.  When it finds the match it is suppose to create the
                        'shortcut with the correct server name and port.


                        Console.WriteLine("Successfully processed!")
                        Exit Do
                    Else
                        Console.WriteLine("Error:  No Matching Information in the Sitecode and R03sites files!")
                    End If
                End If
            Loop Until line Is Nothing
        End Using
    End Sub

Hi folks,

I am new to vb. I need help to create a vb.net windows service to download latest new uploaded files from server after every 1 minute to local computer . This code download same only single file once the service started. BUT I want to windows service detect each latest new file uploaded on server and download it automatically.  Below is my code. Kindly help me.


Imports System
Imports System.IO
Imports System.Net
Imports System.Timers
Imports System.Threading

Public Class Service1


    Dim timerSchedule As System.Timers.Timer

    Protected Overrides Sub OnStart(ByVal args() As String)
        '  MyThread = New Threading.Thread(AddressOf Execute)

        timerSchedule = New System.Timers.Timer(1000)
        AddHandler timerSchedule.Elapsed, AddressOf timerSchedule_Elapsed
        timerSchedule.Start()

    End Sub


    Protected Overrides Sub OnStop()

    End Sub

    Private Sub timerSchedule_Elapsed(ByVal pSender As Object, ByVal pArgs As System.Timers.ElapsedEventArgs)
        Try
            timerSchedule.Stop()
            'call my a function to do the scheduled task

            FTPDownloadFile()
        Catch ex As Exception
        Finally
            timerSchedule.Start()
        End Try
    End Sub





    Private Sub FTPDownloadFile()

        Dim ftpuri As String = ""
        Dim downloadpath As String = ""
        Dim ftpusername As String = ""
        Dim ftppassword As String = ""

        'Create a WebClient.
        Dim request As New WebClient()

        ' Confirm the Network credentials based on the user name and password passed in.
        request.Credentials = New NetworkCredential("root", "")

        'Read the file data into a Byte array
        Dim bytes() As Byte = request.DownloadData("http://localhost/salary_system/")



        Try
            '  Create a FileStream to read the file into
            For Each i As String In downloadpath

                Dim DownloadStream As FileStream = IO.File.Create("C:\download\*.php")
                '  Stream this data into the file
                DownloadStream.Write(bytes, 0, bytes.Length)
                '  Close the FileStream
                DownloadStream.Close()
            Next

        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        End Try

        MsgBox("Process Complete")

    End Sub



End Class