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