wang19850219的专栏

Dim isa As Boolean = My.Computer.Network.IsAvailable If isa = True Then LabelX2.Text = "目前网路连线正常!!" Else LabelX2.Text = "目前网路无法连线！！" End If

'这个应该是你要的。删除文件夹下面的所有内容：包括文件，文件夹。 Public Sub DeleteFoldeSubFF(ByVal fpath As String) Try For Each fd As DirectoryInfo In GetFolderS(fpath) DeleteFolder(fd.FullNa