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