''' <summary>(gesperrtes) File HART löschen</summary>
''' <param name="file">zu löschendes File</param>
Private Sub UnlockAndKill(ByVal file As String)
 
    Dim psi As New System.Diagnostics.ProcessStartInfo
    psi.Arguments = file & " /S /D"
 
    Dim fn As String = _
       IO.Path.Combine _
              (My.Computer.FileSystem.SpecialDirectories.ProgramFiles, _
               "Unlocker\unlocker.exe")
 
    psi.FileName = fn
 
    System.Diagnostics.Process.Start(psi)
End Sub