Bu satır nereye yazılmalı?

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Sub Klasor_Olustur()
Dim ds
    kls = [W8]
    Set ds = CreateObject("Scripting.FileSystemObject")
    ds.CreateFolder kls
End Sub

Bu makro klasör oluşturmaya yarar, güzel yanı W8 hücresinde adı yazılı klasörü oluşturur.
Bu klasör varsa işine devam etmesini sağlamak üzere

[COLOR="Red"]If exist Then End[/COLOR]

kırmızı yazılı ifadeyi nereye yerleştirmeliyim?
Saygılarımla

 

[askm]

Tevfik Bey aşağıdaki gibi deneyin.

Sub Klasor_Olustur()
Dim ds
    kls = [A1]
    Set ds = CreateObject("Scripting.FileSystemObject")
    If ds.FolderExists(kls) Then
        MsgBox "Klasör mevcut"
    Else
        ds.CreateFolder kls
        MsgBox "Klasör oluşturuldu."
    End If
End Sub

 

[Tevfik_Kursun]

Sayın Askm,
Çok teşekkür ederim.
Saygılarımla

 

[askm]

Rica ederim