Ekte eklediğim Access dosyasında Form1 üzerinde sağa sola gezinirken create folder butonuna tıklanıldığında her bir kişi için bulunduğu şehir içerisinde kendi isim ve soyisminde bir klasör yaratılmasını istiyorum. Bunun için Link adında her bir kayıt/kişi için dinamik değişen linki elde edebileceğimiz bir sorgu oluşturdum. MKdir fonksiyonuda bu alanda yazılan linki ele alıp gereken klasörleri oluşturmalı. Ancak bu dinamik yapıyı MKdir içerisine yazamadım. Bunu nasıl yapacağım konusunda yardımınızı bekliyorum.

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

(17/06/2021, 09:50)berduş yazdı: 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

Sayın Berdus,
Kodu kendi isteğime göre biraz değiştirdim ve çalıştı. Teşekkürler.

rica ederim ama dikkatimden kaçan bir husus olmuş; diyelim ki yanlışlıkla olmayan bir sürücü adı yazılmış mesela D:\ yada h:\ bu durumda kod hata verebilir