With the help of others here I was able to get some code working to create a dummy file to fill the remaining space of a flash drive. However, I have added a progress bar and can't figure out why it's not working. I declare a variable for the current value, min, & max properities of the progressbar and then increment it by 1 during each step of my FOR loop. However, I never see anything on the progress bar. Thanks for any help.
-JeremyCode:Dim CurVal As Integer Dim RandomNumber As Byte 'Create the dummyfile to take up the remaining space on the drive Dim myStreamWriter As New IO.StreamWriter("C:\dummyfile.txt") dumProgBar.Minimum = 1 dumProgBar.Maximum = RemSpace CurVal = 0 For i As Integer = 1 To RemSpace RandomNumber = CByte(RandomClass.Next(0, 256)) myStreamWriter.BaseStream.WriteByte(RandomNumber) dumProgBar.Value = CurVal + 1 Next myStreamWriter.Close() myStreamWriter.Dispose() myStreamWriter = Nothing




Reply With Quote