Dim QuellPfad As String = "h:\!test"
        Dim Zielpfad As String = "d:\!test"
        Dim Datei As String = "d:\!test\report.txt"
 
        If Not Directory.Exists(Zielpfad) Then
            Directory.CreateDirectory(Zielpfad)
        End If
        If Not File.Exists(Datei) Then
            File.Create(Datei)
        End If

   Dim QuellPfad As String = "h:\!test"
   Dim Zielpfad As String = "d:\!test"
   Dim Datei As String = "report.txt"
 
   If Not IO.Directory.Exists(Zielpfad) Then
      IO.Directory.CreateDirectory(Zielpfad)
   End If
 
   If Not IO.File.Exists(IO.Path.Combine(Zielpfad, Datei)) Then
      IO.File.Create(IO.Path.Combine(Zielpfad, Datei))
   End If

Try
            If Not Directory.Exists(Zielpfad) Then
                Directory.CreateDirectory(Zielpfad)
            End If
            If Not File.Exists("d:\!test\report.txt") Then
                File.Create("d:\!test\report.txt")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Dim sSrcPath As String = "h:\!test"

Dim LaufwerkInformationen As New DriveInfo("d:\")
        Dim Laufwerkname As Double
        Dim ReadByte As Int32
 
        'ggf. Backslashes anfügen
        If Not sSrcPath.EndsWith("\") Then sSrcPath &= "\"
        If Not sDestPath.EndsWith("\") Then sDestPath &= "\"
 
        'Durchführung der Syncronisation: 
        Datenbestand_synchronisieren(sSrcPath, sDestPath)
        DeleteFolder_Sync(sSrcPath, sDestPath)
 
        'Speichert Inhalte aus der Listbox
        lstBox_speichern(lstBoxAusgabe, SpeicherortDatei = DateiExists)
 
        Laufwerkname = LaufwerkInformationen.TotalSize / (1024 ^ 3) '& " GB"
 
        If LaufwerkInformationen.IsReady Then
            Dim d As New DriveInfo("d:\")
            ProgressBar1.Maximum = 100
            Dim Prozent As Integer = d.TotalFreeSpace / d.TotalSize * 100
            ProgressBar1.Value = ProgressBar1.Maximum - Prozent
 
            If Prozent > 0 And Prozent < 10 Then
                SetPBarColor(ProgressBar1, PBarColor.Rot)
            ElseIf Prozent > 10 And Prozent < 15 Then
                SetPBarColor(ProgressBar1, PBarColor.Gelb)
            Else
                SetPBarColor(ProgressBar1, PBarColor.Gruen)
            End If
        End If
 
        lblAuslastung.Text = "0%"
 
        With ProgressBar1
            .Value += ReadByte
            lblAuslastung.Text = CStr(CInt(100 * .Value / .Maximum)) & "%"
        End With
 
        btnReportLöschen.Enabled = True
        btnBeenden.Enabled = False
    End Sub

Me.FileSystemWatcher1.Path = "D:\!test"

filesystemwatcher.path = "d:\!test"