Imports System.IO
Imports System.IO.Path

Public Class Form1
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

  Const sPath As String = "C:\Vb_fun\Test\"

  Private Sub Form1_Load(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles MyBase.Load
    Label1.Text = sPath & "Testfile.txt"
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles Button1.Click

    MsgBox("Erstelle die Verzeichnisse Vb_fun\Test " & _
        "mit der Datei Testfile.txt", , "Erstellen")

    Try
      Directory.CreateDirectory(sPath)

      Dim StrWriter As StreamWriter = _
            File.CreateText(Path.Combine(sPath, "Testfile.txt"))
      StrWriter.Close()

      StatusBar1.Text = "Verzeichnisse " & _
            Path.GetDirectoryName(sPath) & _
            " und Testfile.txt wurden ERSTELLT."
      Button2.Enabled = True
      Button1.Enabled = False

    Catch except As Exception
      StatusBar1.Text = except.Message
    End Try
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles Button2.Click

    Dim sDelPath As String = _
          Path.GetDirectoryName(Path.GetDirectoryName(sPath))
    Dim Ret As Long
    Ret = MessageBox.Show( _
        "Sind Sie sicher, dass Sie den Ordner " & sDelPath & _
        vbNewLine & _
        "mit allen Unterordnern vollständig löschen wollen?", _
        sDelPath & " wirklich löschen?", _
        MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation)
    If Ret <> vbYes Then Exit Sub

    Try
      Directory.Delete(sDelPath, True)
      StatusBar1.Text = _
            "Verzeichnis " & sDelPath & " wurde GELÖSCHT."
      Button2.Enabled = False
      Button1.Enabled = True

    Catch except As Exception
      StatusBar1.Text = except.Message
    End Try
  End Sub

  Private Sub Button3_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles Button3.Click
    If Directory.Exists(Path.GetDirectoryName( _
          Path.GetDirectoryName(sPath))) Then
      StatusBar1.Text = "Das Verzeichnis Vb_fun EXISTIERT."
    Else
      StatusBar1.Text = "Das Verzeichnis Vb_fun existiert NICHT."
    End If
  End Sub

  Private Sub Button4_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles Button4.Click
    Me.Close()
  End Sub
End Class