Visual Basic .NET 2010 Dosya Kopyalama, Silme ve Internet Kontrol

​

1-Dosya kopyalamak, olup olmadığına bakmak.

Dim dealydevil1 = My.Computer.FileSystem.FileExists("C:\maxigame.txt") 'dealydevil1 - C:\maxigame.txt
If dealydevil1 = True Then 'eğer dealydevil1'deki dizinde dosya varsa
MsgBox("Dosya Bulundu.") 'dosya bulu
If MessageBox.Show("Kopyalansınmı?", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then 'cevap evet ise
My.Computer.FileSystem.CopyFile("C:\maxigame.txt", "C:\a\maxigame.txt", True) 'şu dizine kopyala
MsgBox("Taşındı") 'taşındı
End If
Else 'değilse
MsgBox("Dosya Bulunamadı.") 'bulunamadı
End If

Genişletmek için tıkla ...

​

2-Dosya Silmek

Try
My.Computer.FileSystem.DeleteFile("C:\a\maxigame.txt", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently, FileIO.UICancelOption.ThrowException)
MsgBox("Silindi")
Catch ex As Exception
MsgBox("dosya bulunmadı")
End Try

Genişletmek için tıkla ...

​

3-Internet Varmı?

Try
Dim net = My.Computer.Network.Ping("8.8.8.8") 'DNS (ping yolu ile)
If net = True Then 'Internet değeri doğru ise
MsgBox("internet var") 'olacak olaylar
Else 'değilse
MsgBox("internet yok") 'olmayacak olaylar
End If
Catch ex As Exception
MsgBox("internet yok ...")
End Try

Genişletmek için tıkla ...

​