Aşağıdaki kodu
If DCount("Dosya_yolu", "tbldosyalar", "Dosya_yolu='" & sCurDir & sCurFile & "'") > 0 Then
MsgBox ("Bu dosya daha önce Tabloya alınmış")
Else
End If
Bu kodun altına If GetAttr(sCurDir & sCurFile) = vbDirectory Then 'add the sub directory
colDir.Add sCurDir & sCurFile & "\"
Else 'work on the file
ekleyiniz. Ve lütfen geri bildirimde bulununuz.Kolay gelsin.