(Varsa Dur) nasıl denir?

[Tevfik_Kursun]

Muhterem Arkadaşlarım,
Bir konuyu daha pekiştirmeme sebep olduğunuz için hepinize çok teşekkür ediyorum. Kavrayamadığım bir konuyu daha sayenizde öğreneceğime inanıyorum.

Sub Klasor_Olustur()
Dim ds
kls = Range("B12").Value
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CreateFolder "D:\" & kls
End Sub

Yukarıdaki kod B12 hücresinde yazılı olan isimli kodu köke açıyor.
Sorunum şu, kökte aynı isimli klasör varsa hata vermesin kendinden sonraki makroya yol versin. Bunun için gerektiğini düşündüğüm şu kodu (ya da başkasını)

If exists Then End

nereye eklemeliyim?
Saygılarımla

 

[Necdet]

Merhaba,

deneyiniz.

Sub Klasor_Olustur()

    Dim ds, _
        kls As String
        
    kls = Range("B1").Value
    
    Set ds = CreateObject("Scripting.FileSystemObject")
    
    If ds.FolderExists("D:\" & kls) = False Then ds.CreateFolder "D:\" & kls
    
End Sub

 

[Tevfik_Kursun]

Merhaba Necdet Hocam,
İlginize çok teşekkür ederim.
Saygılarımla

 

[Tevfik_Kursun]

Tekrar tekrar teşekkür ederim. Hepiniz iyi ki varsınız.
Saygılarımla