Private Shared Sub WebBackup(url As String, folder As String) Dim tbl As DataTable NonUrlCheck.UrlCheckClass.WebSaveFolder = folder NonUrlCheck.UrlCheckClass.SaveRelPath = True NonUrlCheck.UrlCheckClass.Initialize() tbl = NonUrlCheck.UrlCheckClass.InitDtUrl(url, Nothing) For i As Integer = 0 To tbl.Rows.Count - 1 NonUrlCheck.UrlCheckClass.GetAllUrl(tbl, i) Next NonUrlCheck.UrlCheckClass.Terminate() End Sub