klasör bulunuyormu

[ali çetin]

benim belirttiğim bir yolda ve benim belirttiğim bir isim de klasörün lup olmadığını nasıl bulabilirim örneğin comand1 tıklanınca C:\Documents and Settings\ali\Desktop yolunda aliçetin adlı klasör bulunuyorsa msgbox ("var") bulunmuyorsa msgbox("yok") yazmasını nasıl sağlaya bilirim

[ali çetin]

vb 6.0 kullanıyorum

[Cekici]

Private Sub Command1_Click()
    
    Dim Klasor As String ' Değisken tanımlandı
    Klasor = "C:\Deneme" ' Klasörün olduğu yol verildi
    
    Me.CommonDialog1.InitDir = Klasor ' değişkenimizi command dialog a atıyoruz ki klasöre ulaşacak eleman bu.

        If CommonDialog1.InitDir = Klasor Then ' eğer klasör varsa klasörümzü açılmış durumda ve verdiğimiz yol ile aynı
             MsgBox ("var")
        Else
             MsgBox ("yok") ' eğer verdiğimiz yol ile aynı değilse demek ki klasör yok.
        End If
        
End Sub

[ali çetin]

işime yaradı gerçekten teşekkür ederim

[Revlis]

Dir komutu tek başına işe yarayacaktır.

[ali çetin]

evet kerdeş a= dir("c:\\deneme")
if a = 1 then msgbox ("var")
else
msgbox ("yok")
end if
yazdım oldu

[Revlis]

if dir("c:\dizin") then msgbox "var" else msgbox "yok" yeterli olacaktır ayrıca bir a gibi değişken kullanmanıza gerek yok.