(27/12/2010, 18:49)Hayri16 yazdı: Sayın erdem55;
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.

Sayın Hayri16
Çok tşk ederim. Gayet güzel çalışıyor. Fakat rica etsem

If DCount("Dosya_yolu", "tbldosyalar", "Dosya_yolu='" & sCurDir & sCurFile & "'") > 0 Then

bu kodu açıklayabilirmisiniz acaba? Kodu tam çözemedimde çözmek için. Tekrar tşk ederim.

Syn mzebek
sizede çok tşk ederim doğru bir yönlendirme yaptığınız halde görememişim. Ben rs.eof a takılıp gitmişim. Sizede tekrardan tşk ederim.