1.
Dim
FileToDelete
As
String
2.
For
irun = 0
To
LstSource.Items.Count - 1
3.
FileToDelete = LbSource.Text & LstSource.Items(Irun)
4.
If
System.IO.File.Exists(FileToDelete) =
True
Then
5.
File.SetAttributes(LbSource.Text, FileAttributes.Normal)
6.
System.IO.File.Delete(FileToDelete)
7.
End
If
8.
Next
irun