Private Sub Kopyala_Click()
Dim Kaynak, Hedef As String
Kaynak = CurrentProject.Path & "\" & Me.Tc & ".jpg"
Hedef = CurrentProject.Path & "\Kopya" & Me.Tc & ".jpg"
FileCopy Kaynak, Hedef
End Sub
Bu kod işinizi görür sanırım Kopyalamak istenilen dosyaya Kopya adını ekleyerek kopyalar..
Kolay gelsim