aşağıdaki kodu dener misiniz?

Dim Hyperlink As String

Dim KlasorDz As Variant



Hyperlink = Me.txtlink

KlasorDz = Split(Hyperlink, "\")



yol = ""

For Each Item In KlasorDz

yol = yol & "\" & Item

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

Next Item