'sayın dsezgin83260 den alıntıdır
Private Sub Komut96_Click()
Dim Kyt As Recordset, Yer As String, Cvp as Variant
Yer = "C:\Users\" & Environ("UserName") & "\Documents\" & Me.FirmaAdi
If Len(Dir(Yer, vbDirectory)) = 0 Then MkDir Yer
Set Kyt = Me.RecordsetClone
Set Dosya = Kyt.Fields("MusteriBelgesi").Value
While Not Dosya.EOF
If Len(Dir(Yer & "/" & Dosya.FileName)) = 0 Then Dosya.Fields("FileData").SaveToFile Yer: MsgBox Dosya.FileName & vbNewLine & " Kopyalanmistir...." Else Cvp = MsgBox("Klasorunde " & Dosya.FileName & vbNewLine & " dosyasi Mevcuttur...", vbCritical, Yer)
Dosya.MoveNext
Wend
Kyt.Close: Set Kyt = Nothing
End Sub