Sub deneme()
On Error Resume Next
Dim ds As Object
Dim kaynak1 As String, kaynak2 As String
Dim hedef As String, dsy As String
kaynak1 = "C:\deneme1\" & "\"
kaynak2 = "C:\deneme2\"
hedef = "C:\belgeler\"
Set ds = CreateObject("Scripting.FileSystemObject")
If Not ds.FolderExists(hedef) Then...