小编elm*_*nko的帖子

我正在努力研究如何从今天开始的5天内删除...

我有以下简单的代码,搜索比较文本文件数组搜索的结果,然后将它们与今天的日期进行比较.如果文本文件中的日期早于今天,则删除,如果不是,则删除.

我想要的是说文本文件中的日期是5天或更早,然后删除.

这是以英文日期格式使用的.

    Sub KillSuccess()
    Dim enUK As New CultureInfo("en-GB")

    Dim killdate As String = DateTime.Now.ToString("d", enUK)

    For Me.lo = 0 To UBound(textcis)
        If textcis(lo).oDte < killdate Then
            File.Delete(textcis(lo).oPath & ".txt")
        End If
    Next

End Sub 

谢谢

我正在尝试运行一些vb.net代码,表明我是否已连接到互联网

If My.Computer.Network.IsAvailable Then
    MsgBox("Computer is connected.")
Else
    MsgBox("Computer is not connected.")
End If

如果我连接到不需要登录的WiFi信号,这可以正常工作.如果我连接到公共WiFi信号,我需要登录/支付并在完成此步骤之前执行代码,它仍然告诉我我已连接(理论上是,但没有支付/登录我不是)

如何设置这个想法？

谢谢