Kodu aşağıdaki gibi düzenledim ama çalışmıyor nedense nerede yanlışlık yapıyorum acaba? Ayrıca dosyanın ismini de SiparisID & FirmaAdi ile isimlendirmek istiyorum. Yardımcı olabilirseniz çok sevinirim.
Private Sub Komut96_Click()
Dim Yer As String
Yer = "C:\Users\sony\Documents\deneme\" & [FirmaAdi] & ""
If Len(Dir(Yer, vbDirectory)) = 0 Then
MkDir Yer
FileCopy Yer, Yer & Me.MusteriBelgesi.CurrentAttachment
MsgBox "Kopyalanmıştır"
Else
MsgBox "Firmaya ait klasör zaten önceden beri var."
End If
End Sub
Saygılarımla