C Diski İçinde Klasör Sorgulama

[BedriA]

Arkadaşlar,

Şöyle bir sorgulama koduna ihtiyacım var:
C diski içinde "X" isimli klasör varsa, Sayfa1'in A hücresine klasör adını yazdır.

Ya da hiç yazdırmasın; X isimli klasör varsa, form1'i açsın, değilse form2'yi açsın.

Yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Deneyiniz.

Sub TEST()
    If Dir("C:\X", vbDirectory) <> "" Then
        UserForm1.Show
    Else
        UserForm2.Show
    End If
End Sub

 

[BedriA]

Deneyiniz.

Sub TEST()
    If Dir("C:\X", vbDirectory) <> "" Then
        UserForm1.Show
    Else
        UserForm2.Show
    End If
End Sub

Teşekkür ederim Korhan Hocam.