Windows Forms

Private Sub OnTimedEvent(source As Object, e As ElapsedEventArgs)
       Try

           RetryOnTimeout(source, e)

       Catch ex As Exception
            While _currentRetry < 3
               RetryOnTimeout(source, e)
               _currentRetry = _currentRetry + 1


           End While
           modCommon.SendEmailExceptionToDev("OnTimedEvent Exception", ex)
           Err.Clear()
End Try

   End Sub
   Private Sub RetryOnTimeout(source As Object, e As ElapsedEventArgs)
       Try

           aTimer.Stop()
           Dim fileName As String = String.Empty

           While queueList.Count > 0
               If _SFTP.Connected = False OrElse _SFTP.SFTPState = Dart.Ssh.ConnectionState.Closed Then
                   _SFTP.Connect()
               End If

               fileName = queueList.Dequeue.ToString
               If Not fileName Is Nothing AndAlso fileName <> String.Empty Then
                   ProcessFile(fileName)
               End If
           End While

           If _SFTP.Connected = True Then
               _SFTP.Disconnect()
           End If

           aTimer.Start()
       Catch ex As Exception
           modCommon.SendEmailExceptionToDev("OnTimedEvent Exception", ex)
           Err.Clear()
       End Try
   End Sub

Private Sub OnTimedEvent(source As Object, e As ElapsedEventArgs)
     Try

         RetryOnTimeout(source, e)

     Catch ex As Exception
         While _currentRetry < 3
             RetryOnTimeout(source, e)
             _currentRetry = _currentRetry + 1
         End While

         modCommon.SendEmailExceptionToDev("ASH File System Watcher Outgoing: OnTimedEvent Exception", ex)
         Err.Clear()
     End Try

 End Sub
 Private Sub RetryOnTimeout(source As Object, e As ElapsedEventArgs)
     Try

         aTimer.Stop()
         Dim fileName As String = String.Empty

         While queueList.Count > 0
             If _SFTP.Connected = False OrElse _SFTP.SFTPState = Dart.Ssh.ConnectionState.Closed Then
                 _SFTP.Connect()
             End If

             fileName = queueList.Dequeue.ToString
             If Not fileName Is Nothing AndAlso fileName <> String.Empty Then
                 ProcessFile(fileName)
             End If
         End While

         If _SFTP.Connected = True Then
             _SFTP.Disconnect()
         End If

         aTimer.Start()
     Catch ex As Exception
         Throw ex
     End Try
 End Sub

byka wrote:

I am not sure I am clear on what you have in mind

Module Module1
    Public Function MyEmailMethod() As Int32        
        ' we throw an exception, to test the handling and the retrying thereof.
        ' in the actual application an email would be sent from here.
        Throw New NotImplementedException("test")
    End Function

    Public Function TryMyEmailMethod(maxTries As Integer, Optional currentTry As Integer = 1) As Int32
        If currentTry <= maxTries Then
            Try
                Console.WriteLine(String.Format("Attempt {0}", currentTry))
                MyEmailMethod()
            Catch ex As Exception
                Console.WriteLine("Caught: " + ex.GetType().Name)
                TryMyEmailMethod(maxTries, currentTry + 1)
            End Try
        Else
            Console.WriteLine("I've tried enough, that damn server is ignoring me!")
        End If
    End Function

    Sub Main()
        TryMyEmailMethod(3)

        'halt execution to show result
        Console.ReadKey()
    End Sub
End Module

Attempt 1
Caught: NotImplementedException
Attempt 2
Caught: NotImplementedException
Attempt 3
Caught: NotImplementedException
I've tried enough, that damn server is ignoring me!

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

salar1369 wrote:

1)how could i prevent users from seeing these source files?

salar1369 wrote:

2)is this way of publishing (put every thing in release folder for installation of end user) correct?

salar1369 wrote:

3)should i directly put MDF and LDF files or have to do a some work of securing them like compiling into irreversible format that only application can use it not anyone else?

salar1369 wrote:

5)am i missing a concept in the way of publishing an application with local database?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]