Developer Forum

Hi

How can I do this programmatically;

1. Read the first file in a folder.

2. Search for its path+name in a field in a table.

3. If not found, delete the file in the folder.

4. Repeat from step1 until all files in the folder checked.

Thanks

Regards

Something like the following untested air-code:

Dim strFolder As String
Dim strFile As String

strFolder = "C:\Some Folder\Some Subfolder\"
strFile = Dir$(strFolder & "*.*")
Do While Len(strFile) > 0
If IsNull(DLookup("[SomeField]", "[SomeTable]", _
"[PathAndFile] = '" & strFolder & strFile & "'") Then
Kill strFolder & strFile
End If
strFile = Dir()
Loop

--
Doug Steele, Microsoft Access MVP
http://www.yqcomputer.com/
(no e-mails, please!)