Private Sub Form_Load()
Dosya = Dir(' C:\AUTOEXEC.BAT' )
If Dosya = ' ' Then
MsgBox ' Dosya Bulunmuyor!'
Else
MsgBox ' Dosya Bulundu!'
End If
End Sub
Dir fonksiyonunu merak edenler için biraz daha açalım:
Genel kullanımı degisken=Dir[(YolAdı[, ekler])] olan bu fonksiyon sabit
diskinizin istediğiniz bölümündeki herhangi bir bir dosya hakkında bilgiler
almanıza yardımcı olur. ' Ekler' parametresi sayesinde gösterdiğiniz dosyanın
dizin olup olmadığını ve hangi takılara sahip oldugunu (gizli, sistem gibi...)
öğrenebilirsiniz. Eğer gösterdiğiniz dosya bulunamazsa fonksiyon hiç bir
hata vermeyip sadece boş bir alfanumerik değişken döndürecektir.