Dosya Yerindemi Olayı Yardım

[ Tüm kodu seç ] [ Yeni Pencerede Göster ]

Private Sub Form_Load()  Dosya = Dir(' C:\AUTOEXEC.BAT' )  If Dosya = ' ' Then  MsgBox ' Dosya Bulunmuyor!'  Else  MsgBox ' Dosya Bulundu!'  End If  End Sub

bu kodla oluyor diyorlar ben yapamadım
Dosya ne oluyor? yani onu ne yerine kulandı?
Ben onu nasıl değiştircem

Kodu Yeniden Düzenledim Şimdi Deneyin.

Private Sub Form_Load()
Dim Dosya
Dosya = Dir("C:\AUTOEXEC.BAT")
If Dosya = "" Then
    MsgBox "Dosya Bulunmuyor!"
Else
    MsgBox "Dosya Bulundu!"
End If
End Sub