(22/05/2024, 21:24)onur_can yazdı: Arkadaşlar gayet güzel açıklamış, bende yazsam aynısını yazacağım, farklı bir şey yok.
Hocam aşağıdaki kod ile dosya kopyalıyorum
İş bolgisayarinda "Permission denied" hatası veriyor.
wınrardan vazgeçtim. Dosyayı kopyalarken formdaki Metinkutusu1 de yazan yazı ve dosya adını nasıl yan yana yazdırabilirim. Bu konuda yardımcı olurmusun sana zahmet.
Kod:
Private Sub Komut0_Click()
Dim Yer As String
Yer = "C:\Users\Sakarya\Desktop\ÇALIŞMA"
If Len(Dir(Yer, vbDirectory)) = 0 Then
MkDir (Yer)
End If
FileCopy "D:\YEDEK\" & "\Deneme.accdb", Yer & "\ Deneme .accdb "
End Sub