(23/05/2024, 12:49)onur_can yazdı: Tamam ben de diyorum ki yetkin ve iznin olmadığı sürücü veya bu sürücülerde bulunan klasörleri kodun içerisinde kullanmayacaksın. Yetkin ve iznin olan sürücü ve klasörleri kullanacaksın. Örneğin D sürücüsünde Test-1 ve Test-2 klasörün olsun ve seninde sadece bu 2 klasöre erişim iznin var diyelim kodu nasıl değiştirmelisin. Şu Şekilde;

Kod:

Private Sub Komut0_Click()
Dim Yer As String
Yer = "D:\Test-1\Sakarya\ÇALIŞMA"
If Len(Dir(Yer, vbDirectory)) = 0 Then
MkDir (Yer)
End If
FileCopy "D:\Test-2\Deneme.accdb", Yer & "\Deneme .accdb "
End Sub

Birde burada bir kod hatası var D sürücüsünde Test-1 klasörünü test etmelisin, sen yol olarak tanımlamışsın, doğrusu şu şekilde olacak,

Kod:

Private Sub Komut0_Click()
Dim Yer As String
Dim KlasorVarmi as String
KlasorVarmi  ="D:\Test-1"
If Len(Dir(KlasorVarmi , vbDirectory)) = 0 Then
MkDir (KlasorVarmi)
End If
Yer = "D:\Test-1\Sakarya\ÇALIŞMA"
FileCopy "D:\Test-2\Deneme.accdb", Yer & "\Deneme .accdb "
End Sub

gerçi ikiside aynı, dosya yoksa klasörde yok veya klasör yoksa dosyada yok,
fkat kodun anlaşılabilirliğini artırmak adına sadece klasör ismi kullanılabilir.

Hocam çok teşekkür ederim. Allah razı olsun. Verdiğin fikirler ışığında problem çözülmüştür. Gerçi WınRar yapamıyorum ama önemli değil. Hayırlı işlerin bol kazançın olsun hocam.