.NET (Core and Framework)

Imports System.IO
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Net
Imports System.Globalization
Imports System.Threading

Public Class Form1

    Private mousePath As New System.Drawing.Drawing2D.GraphicsPath()

    Dim down As Boolean = False

    Private Sub signature_MouseDown(ByVal sender As System.Object, ByVal e As MouseEventArgs) Handles signature.MouseDown
        If e.Button = MouseButtons.Left Then
            mousePath.StartFigure()
        End If

        If e.Button = MouseButtons.Right Then
            mousePath.Reset()
        End If
    End Sub
    Dim gfx As Graphics
    Private Sub signature_MouseMove(ByVal sender As System.Object, ByVal e As MouseEventArgs) Handles signature.MouseMove
        If e.Button = MouseButtons.Left Then

            Try
                mousePath.AddLine(e.X, e.Y, e.X, e.Y)
                Dim CurrentPen = New Pen(Color.Black, 2)

                gfx.DrawPath(CurrentPen, mousePath)
            Catch ex As Exception
                MsgBox("Signature Error")

            End Try

            If e.Button = MouseButtons.Right Then

                Try
                    mousePath.Reset()

                Catch ex As Exception
                    MsgBox("not deleting")
                End Try
            End If


        End If
        signature.Invalidate()

    End Sub

    Private Sub signature_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles signature.MouseUp
        down = False
    End Sub

    Private Sub signature_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles signature.Paint
        Try
            Dim CurrentPen = New Pen(Color.Black, 2)
            e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
            e.Graphics.DrawPath(CurrentPen, mousePath)

        Catch ex As Exception
            MsgBox("Error In Signature")
        End Try


    End Sub


    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Try
            signature.Image.Save("C:\test\test1111111.Png") 'saved in app folder
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        signature.Image = New Bitmap(signature.Width, signature.Height)
        gfx = Graphics.FromImage(signature.Image)

        gfx.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias




    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        signature.Image = New Bitmap(signature.Width, signature.Height)
        mousePath.Reset()



    End Sub
End Class

i want to remove folder in webserver. But Server is returning "550" error if folder is not empty.
i can delete files listing folder. But folders may includes sub folders. How can i get list of subfolders? Is there a simple way to delete non-empty folder?

<pre lang="vb">Dim clsRequest As System.Net.FtpWebRequest = _
  DirectCast(System.Net.WebRequest.Create(ftp://ftp.server.com/), System.Net.FtpWebRequest)

       clsRequest.Credentials = New System.Net.NetworkCredential(username, pass)

       clsRequest.KeepAlive = True
       clsRequest.Method = System.Net.WebRequestMethods.Ftp.RemoveDirectory
       Dim response As FtpWebResponse = CType(clsRequest.GetResponse, FtpWebResponse)
       response.Close()

Private Sub EncryptOrDecryptFile(ByVal jitfInputFile As String, _
                                     ByVal jitfOutputFile As String, _
                                     ByVal jitfKey() As Byte, _
                                     ByVal jitfIV() As Byte, _
                                     ByVal Direction As CryptoAction)

        fsInput = New FileStream(jitfInputFile, FileMode.Open, FileAccess.Read)
        fsOutPut = New FileStream(jitfOutputFile, FileMode.OpenOrCreate, FileAccess.Read)
        fsOutPut.SetLength(0)

Private Sub EncryptOrDecryptFile(ByVal jitfInputFile As String, _
                                     ByVal jitfOutputFile As String, _
                                     ByVal jitfKey() As Byte, _
                                     ByVal jitfIV() As Byte, _
                                     ByVal Direction As CryptoAction)

        fsInput = New FileStream(jitfInputFile, FileMode.Open, FileAccess.Read)
        fsOutPut = New FileStream(jitfOutputFile, FileMode.OpenOrCreate, FileAccess.Read)
        fsOutPut.SetLength(0)

EncryptOrDecryptFile("C:\ProgramData\JITFapp\" & savexml, "C:\ProgramData\JITFapp\" & savexml + ".crypted", jitfKey, jitfIV, CryptoAction.ActionDencrypt)