У меня просто есть простой веб-сайт vb.net, который должен вызывать Sub, который выполняет очень длинную задачу, которая работает с синхронизацией некоторых каталогов в файловой системе (детали не важны).

Когда я вызываю метод, он в конечном итоге останавливается на веб-сайте, ожидая завершения подпрограммы. Однако, даже если время ожидания веб-сайта истекло, подпрограмма в конечном итоге завершает свою задачу, и все каталоги заканчиваются так, как должны.

Я хочу просто предотвратить тайм-аут, поэтому я хотел бы просто вызвать Sub асинхронно. Мне не нужны (или даже не хотят) и обратные вызовы / подтверждения того, что он успешно прошел.

Итак, как я могу вызвать свой метод асинхронно внутри сайта, используя VB.net?

Если вам нужен код:

<code>Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Call DoAsyncWork()
End Sub

Protected Sub DoAsyncWork()
        Dim ID As String = ParentAccountID
        Dim ParentDirectory As String = ConfigurationManager.AppSettings("AcctDataDirectory")
        Dim account As New Account()
        Dim accts As IEnumerable(Of Account) = account.GetAccounts(ID)

        For Each f As String In My.Computer.FileSystem.GetFiles(ParentDirectory)
            If f.EndsWith(".txt") Then
                Dim LastSlashIndex As Integer = f.LastIndexOf("\")
                Dim newFilePath As String = f.Insert(LastSlashIndex, "\Templates")
                My.Computer.FileSystem.CopyFile(f, newFilePath)
            End If
        Next

        For Each acct As Account In accts
            If acct.ID <> ID Then
                Dim ChildDirectory As String = ConfigurationManager.AppSettings("AcctDataDirectory") & acct.ID
                If My.Computer.FileSystem.DirectoryExists(ChildDirectory) = False Then
                    IO.Directory.CreateDirectory(ChildDirectory)
                End If
                My.Computer.FileSystem.DeleteDirectory(ChildDirectory, FileIO.DeleteDirectoryOption.DeleteAllContents)
                My.Computer.FileSystem.CopyDirectory(ParentDirectory, ChildDirectory, True)
            Else
            End If
        Next
End Sub
</code>