scanning for each file in folder (to see if it is listed in listview)

[mecracked]

I have got a listview where users can make a list of files. Now when they press OK I want to scan the folder to see if a file in the folder is also in the listview. If not, that file is to be deleted - so that the folder contains only those files that are in the list. The following is the code I am using and I think there is much better and neater way of doing it. Also sometimes the code to delete file gets executed even if there is no such file.

Any advice to do this better way ?



'first read all existing files into a temp listbox
Dim strFolder As String
strFolder = App.path & "\publisher\collectedassets\"
GetAllFiles strFolder, List1

'we want to erase any file that exists in strFolder
'but is not listed in the playlist (listview) - because it has become redundant

asset_in_folder_is_also_in_playlist = False 'begin with supposition that file in folder is not listed in listview

For i = 0 To List1.ListCount - 1
List1.ListIndex = i 'the file in folder that physically exists
For j = 1 To lvw.ListItems.Count 'for each file in playlist, check whether the file in listbox (ie physically exists) is listed in playlist
Set li = lvw.ListItems(j)
If li.text = List1.text Then 'list1.text has only filename not path (the file is contained in strfolder i.e. App.Path & "\publisher\collectedassets\")
asset_in_folder_is_also_in_playlist = True
End If
Next j

'if after having scanned the whole listview, the file does not exist there (but exists in strFolder)
If asset_in_folder_is_also_in_playlist = False Then
Kill strFolder & List1.text 'this code SOMETIMES gets executed even when there is no such file in the folder
End If

Next i

TIA