Show progress bar during the file or folder delete

[pankajprakash]

hi,
i have a windows form and there is a text box to select the file of folder to delete. i need a progress bar during the file of folder deletion.

[joerozario]

in .net 2003 u can see Progressbar control

in .net 205 u can see Progressbar control and StatusStrip

both controls same way of implementing

1. set the maximun value (count the number of files and assigne it as maximun)

progressbar.Max imun =countfiles

2. to increse the progress bar

progressbar.val ue =increment

[vanc]

you also have to calculate the whole value of the progress bar to assign the increment variable, get it divided for the number of files and after one file copied you increase this increment.

[pankajprakash]

you also have to calculate the whole value of the progress bar to assign the increment variable, get it divided for the number of files and after one file copied you increase this increment.

Actually i want to show the progress bar as windows show during the file or folder copying. For that i designed a from with progress bar same as windows show, but i don't know how to implement this.

[vijaydiwakar]

Actually i want to show the progress bar as windows show during the file or folder copying. For that i designed a from with progress bar same as windows show, but i don't know how to implement this.

See this can be done with the help of dll and exe communication
make one dll project add one form to it
which contains progress bar
whenevr any file is deleted pass increment value to that progress bar from ur exe
Try it
Good Luck

[pankajprakash]

i have done the following code for delete files or folders but don't know how to implement the progress bar.


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

so plz tell me what should i do.

[pankajprakash]

Now my problem have been solved.
the code is to delete the folder or file.

Public Function Delete(ByVal path As String) As Boolean
Try
If My.Computer.Fil eSystem.FileExi sts(path) = True Then
My.Computer.Fil eSystem.DeleteF ile(path, FileIO.UIOption .AllDialogs, FileIO.RecycleO ption.DeletePer manently, FileIO.UICancel Option.DoNothin g)
ElseIf My.Computer.Fil eSystem.Directo ryExists(path) = True Then
My.Computer.Fil eSystem.DeleteD irectory(path, FileIO.UIOption .AllDialogs, FileIO.RecycleO ption.DeletePer manently, FileIO.UICancel Option.DoNothin g)
Else
Return False
End If
Return True
Catch ex As Exception
Throw ex
End Try
End Function