(27/12/2010, 18:49)Hayri16 yazdı: Sayın erdem55;
Aşağıdaki kodu
Bu kodun altınaIf DCount("Dosya_yolu", "tbldosyalar", "Dosya_yolu='" & sCurDir & sCurFile & "'") > 0 Then
MsgBox ("Bu dosya daha önce Tabloya alınmış")
Else
End If
ekleyiniz. Ve lütfen geri bildirimde bulununuz.If GetAttr(sCurDir & sCurFile) = vbDirectory Then 'add the sub directory
colDir.Add sCurDir & sCurFile & "\"
Else 'work on the file
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.