Progressebar delete file

[estica]

Uso o seguinte código para fazer o progressbar funcionar ao copiar um ficheiro ou uma pasta...

Agora queria saber como faço o mesmo procedimento mas para apagar pasta ou file

Dim CF As New IO.FileStream("PASTA", IO.FileMode.Open)
Dim CT As New IO.FileStream("PATAS", IO.FileMode.Create)
Dim len As Long = CF.Length - 1
Dim buffer(1024) As Byte
Dim byteCFead As Integer
While CF.Position < len
byteCFead = (CF.Read(buffer, 0, 1024))
CT.Write(buffer, 0, byteCFead)
ProgressBar2.Value =
CInt(CF.Position / len * 100)
Application.DoEvents()
End While
CT.Flush()
CT.Close()
CF.Close()

[He B TeMy]

http://stackoverflow.com/a/6055385/2990244

Tenta modificar o teu código de modo a que não uses application.doevents...

[estica]

Já foi uma boa ajuda amigo. Vou ver então como fazer

EDIT:

Como adaptar este código no Vb.net

If Directory.Exists(source) Then

Dim fileEntries As String() = Directory.GetFiles(source)

' Initializing progress bar properties

progressBarControl1.Properties.Step = 1

progressBarControl1.Properties.PercentView = True

progressBarControl1.Properties.Maximum = fileEntries.Length

progressBarControl1.Properties.Minimum = 0

' Removing the list of files found in the specified directory

For Each fileName As String In fileEntries

File.Delete(fileName)

progressBarControl1.PerformStep()

progressBarControl1.Update()

Next fileName

End If

End Sub

Edited November 19, 2015 by estica