How to show progress bar during the files or folders deletion

[Riky]

hi
i have a windows application. I am select the folder or file name
from the folderbrowserdi alog box and to delete the folder or file i am
calling the following code.

Public Function DeleteFile(ByVa l path As String) As Boolean
'Delete a specified file
Try
If File.Exists(pat h) = True Then
File.Delete(pat h)
Return True
End If
Catch ex As Exception
Throw ex
End Try
End Function

Public Function DeleteFolder(By Val path As String) As Boolean
'Delete a specified folder
Dim objFileInfo As FileInfo
Dim objFolder As DirectoryInfo
Dim objSubFolder As DirectoryInfo
Dim dirInfo As DirectoryInfo = New DirectoryInfo(p ath)
Try
If Directory.Exist s(path) = True Then
objFolder = New DirectoryInfo(p ath)
For Each objFileInfo In objFolder.GetFi les()
objFileInfo.Del ete()
Next
If dirInfo.GetDire ctories.Length = 0 Then
Directory.Delet e(dirInfo.FullN ame)
Return True
Else
For Each objSubFolder In
objFolder.GetDi rectories()
DeleteFolder(ob jSubFolder.Full Name)
Next
End If
DeleteFolder(ob jFolder.FullNam e)
Return True
End If
Catch ex As Exception
Throw ex
End Try
End Function

but i have to show the progress bar during the files or folder
deletion.
so plz tell me what should i do.

[Martin H.]

Hello Riky,

I see 2 options:

1. Show the Windows dialog for deleting the files or to put them into
the recycle bin:

Delete:
My.Computer.Fil eSystem.DeleteD irectory("C:\Th isPath",
FileIO.UIOption .AllDialogs, FileIO.RecycleO ption.DeletePer manently,
FileIO.UICancel Option.DoNothin g)

Recycle bin:
My.Computer.Fil eSystem.DeleteD irectory("C:\Th isPath",
FileIO.UIOption .AllDialogs, FileIO.RecycleO ption.SendToRec ycleBin,
FileIO.UICancel Option.DoNothin g)
2. Count files, delete them separately and increase the value for your
status dialog.

Best regards,

Martin

Riky wrote:

hi
i have a windows application. I am select the folder or file name
from the folderbrowserdi alog box and to delete the folder or file i am
calling the following code.

Public Function DeleteFile(ByVa l path As String) As Boolean
'Delete a specified file
Try
If File.Exists(pat h) = True Then
File.Delete(pat h)
Return True
End If
Catch ex As Exception
Throw ex
End Try
End Function

Public Function DeleteFolder(By Val path As String) As Boolean
'Delete a specified folder
Dim objFileInfo As FileInfo
Dim objFolder As DirectoryInfo
Dim objSubFolder As DirectoryInfo
Dim dirInfo As DirectoryInfo = New DirectoryInfo(p ath)
Try
If Directory.Exist s(path) = True Then
objFolder = New DirectoryInfo(p ath)
For Each objFileInfo In objFolder.GetFi les()
objFileInfo.Del ete()
Next
If dirInfo.GetDire ctories.Length = 0 Then
Directory.Delet e(dirInfo.FullN ame)
Return True
Else
For Each objSubFolder In
objFolder.GetDi rectories()
DeleteFolder(ob jSubFolder.Full Name)
Next
End If
DeleteFolder(ob jFolder.FullNam e)
Return True
End If
Catch ex As Exception
Throw ex
End Try
End Function

but i have to show the progress bar during the files or folder
deletion.
so plz tell me what should i do.