Freien Laufwerk-Speicherplatz überschreiben

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

Imports System.IO

Private Sub ClearUnusedVolumeSpace(ByVal driveletter As String)
   ' Standard-Clustergrösse 4 KB 
   Dim Data(4095) As Byte
   Dim Stream As FileStream
   Dim TempFile As String = driveletter.Substring(0, 1) & ":\" & "FreeSpace.tmp"

   Try
      ' Temp. Datei erstellen
      Stream = New FileStream(TempFile, FileMode.Create, FileAccess.Write, FileShare.None)
      ' Enllosschleife, wird nur verlassen wenn kein Speicherplatz
      ' mehr zur Verfügung steht.
      Do
         Stream.Write(Data, 0, 4096)
      Loop
   Catch
      '
   Finally
      If Not Stream Is Nothing Then
         Stream.Close()
         ' Temp. Datei löschen - Fertig
         File.Delete(TempFile)
      End If
   End Try

End Sub