Dosya Kontrol
Dim DeaLyDeviL As Boolean= My.Computer.FileSystem.FileExists("C:\MaxiGame.txt")
Boolean değişkeni True, False mantığı ile çalışır. Değer True ise, istenilen olay vardır demektir.
If DeaLyDeviL = True Then 'Eğer dosya varsa. Çünkü değişken olarak tanımladık.
MsgBox ("Dosya C:\ dizisinde bulunuyor.") 'Olacak olayları yazıyoruz.
End if 'If yapısını bitiriyoruz.
Klasör Kontrol
Dim DeaLyDeviL As Boolean = My.Computer.FileSystem.DirectoryExists("C:\MaxiGame")
Buda aynı mantık, dikkatinizi çekerim ki burda Directory, yukarıda File kullandık.
Biri klasör tanımları için, diğeri dosya tanımları içindir.
If DeaLyDeviL = True Then 'Eğer klasör varsa. Çünkü değişken olarak tanımladık.
MsgBox ("Klasör C:\ dizisinde bulunuyor.") 'Olacak olayları yazıyoruz.
End if 'If yapısını bitiriyoruz.
Son düzenleme: