Многократная перезапись файла случайным мусором

        Dim R As New Random
        Dim fName As String = "C:\2.mdb"
        Dim BufSize As Long = New IO.FileInfo(fName).Length
        FileOpen(1, fName, OpenMode.Binary)
        ProgressBar1.Maximum = 100
        ProgressBar1.Value = 0
        Dim TmpBuf(BufSize / 100) As Byte
        For BC As Integer = 0 To TmpBuf.Length - 1
            TmpBuf(BC) = R.Next(0, 256)
        Next
        For I As Long = 0 To BufSize - 1 Step BufSize / 100
            ProgressBar1.Value += 1
            Application.DoEvents()
            FilePut(1, TmpBuf)
        Next
        FileClose()

Dim R As New Random
        Dim fName As String = "C:\SkyDrive\1.avi"
        Dim BufSize As Long = New IO.FileInfo(fName).Length
        Dim Musor_no_police(CInt(BufSize - 1)) As Byte
        For I As Integer = 0 To CInt(BufSize - 1)
            Musor_no_police(I) = CByte(R.Next(0, 256))
        Next
        IO.File.WriteAllBytes(fName, Musor_no_police)

        Dim R As New Random
        Dim fName As String = "C:\1.avi"
        Dim BufSize As Long = New IO.FileInfo(fName).Length
        ProgressBar1.Maximum = 101
        ProgressBar1.Value = 0
        Dim TmpBuf(BufSize / 100) As Byte
        For BC As Integer = 0 To TmpBuf.Length - 1
            TmpBuf(BC) = R.Next(0, 256)
        Next
        Dim FS As New IO.FileStream(fName, IO.FileMode.Create)
        For I As Long = 0 To BufSize - 1 Step BufSize / 100
            ProgressBar1.Value += 1
            Application.DoEvents()
            FS.Write(TmpBuf, 0, TmpBuf.Length)
        Next
        FS.SetLength(BufSize)
        FS.Close()

        Dim fName As String = "C:\31.txt"
        Dim BufSize As Long = New IO.FileInfo(fName).Length
        Dim FS As New IO.FileStream(fName, IO.FileMode.Create)
        FS.SetLength(BufSize)
        FS.Close()