(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
| Bu Konudaki Yorumlar |
|
Dinamik Değişen Linki Mkdır Fonksiyonu İçerisinde Nasıl Kullanabilirim? - Yazar: schecter - 17/06/2021, 07:16
RE: Dinamik Değişen Linki Mkdır Fonksiyonu İçerisinde Nasıl Kullanabilirim? - Yazar: berduş - 17/06/2021, 09:50
RE: Dinamik Değişen Linki Mkdır Fonksiyonu İçerisinde Nasıl Kullanabilirim? - Yazar: schecter - 18/06/2021, 00:09
RE: Dinamik Değişen Linki Mkdır Fonksiyonu İçerisinde Nasıl Kullanabilirim? - Yazar: berduş - 18/06/2021, 00:12
|
