Visual Basic

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

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

Dim txtOrigAddress As String = _attendanceLetterOrig.Substring(CInt(_attendanceLetterOrig.IndexOf("ADDR_BEG")), _attendanceLetterOrig.IndexOf("ADDR_END") - _attendanceLetterOrig.IndexOf("ADDR_BEG"))
 Dim txtOrigAddress As String = _attendanceLetterOrig.Substring(CInt(_attendanceLetterOrig.IndexOf("ADDR_NEXT")),4)

The problem is the folllowing values do not exist:
  _attendanceLetterOrig.IndexOf("ADDR_BEG")
 _attendanceLetterOrig.IndexOf("ADDR_END")
 _attendanceLetterOrig.Substring(CInt"ADDR_NEXT")

Public Class grid
    Inherits DataGridView
    Private _dgv As New DataGridView
   
    Public Property Dgv
        Set(value)
            _dgv = value

        End Set
        Get
            Return _dgv
        End Get
    End Property

    Public Sub New()

    End Sub
    Public Sub New(panel As Panel)
        _dgv.Name = "dgv"
        _dgv.Parent = panel
        _dgv.AllowUserToAddRows = False
        _dgv.AllowUserToDeleteRows = False
        _dgv.ReadOnly = True
        _dgv.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        _dgv.Dock = DockStyle.Fill
        _dgv.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        _dgv.DefaultCellStyle.SelectionBackColor = Color.LightGray
        _dgv.DefaultCellStyle.SelectionForeColor = Color.Black
        _dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        _dgv.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

       End Sub

End Class

I have a scenario like the folder contains some 7000 file. I have to take 1st 2000 file and 7-zip it then another 2000 files and so on...How can achieve this using vb script. Can any one assist me/