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 SubKod:
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 Subfkat kodun anlaşılabilirliğini artırmak adına sadece klasör ismi kullanılabilir.
