Dim TasinacakYer As String

Dim KlasorDz As Variant



TasinacakYer = "c:\xK\DOSYALAR"

KlasorDz = Split(TasinacakYer, "\")



Yol = ""

For Each Item In KlasorDz

Yol = Yol & "\" & Item

If Dir(Mid(Yol, 2), vbDirectory) = "" Then MkDir Mid(Yol, 2)

Next Item

'Klasör oluşturma____________________________Bitti

Taşınacak yer eğer yoksa oluşturur
Dilerim işinize yarar