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
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
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
Son düzenleme: