I want to select a folder and check for files and delete them if found. I don't want to just kill everything, only files in the FileListBox mask. (ie *.tmp)
I just can't get it.
Here's what I have so far. (VB6)
Dim strDir As String
Dim cnt As Integer
cnt = Dir1.ListCount
For i = -1 To cnt
strDir = Dir1.List(i)
Dir1 = strDir ' resynch the dirlistbox and filelistbox
For j = 0 To (File1.ListCount - 1)
xDumb = Strip(strDir, File1.List(j))
It seems that I can get into the first subfolder then I crash and burn.