ファイルへのアクセスに問題があります。
1 秒ごと (多かれ少なかれ)、私のアプリケーションはこの手順を呼び出してソースコードページをダウンロードし、テキストファイルに保存しています。
"Can't access file, file it is being used by another process"
私はそれを閉じて処分しようとしましたが、何もしません。
編集: エラーの原因となっているファイルは、%TEMP% dir 内のファイルである「OutPutFile」変数です。
' Get URL SourceCode
Function Get_URL_SourceCode(ByVal url As String, Optional ByVal OutputFile As String = Nothing, Optional ByVal delimit As Boolean = False) As String
Dim SourceCode As String = String.Empty
If Want_to_cancel_thread Then Return Nothing
Try
Dim request As HttpWebRequest = HttpWebRequest.Create(url)
Dim response As HttpWebResponse = request.GetResponse()
Dim sr As StreamReader = New StreamReader(response.GetResponseStream())
SourceCode = sr.ReadToEnd()
sr.Close() : sr.Dispose()
If delimit Then SourceCode = Delimit_String(SourceCode, "<div id=""centercol"">", "<!--/centercol -->")
If OutputFile IsNot Nothing Then
'File.Open(OutputFile, FileMode.CreateNew, FileAccess.Write, FileShare.Write)
'Using TextFile As New StreamWriter(OutputFile, False, Encoding.Default)
' TextFile.WriteLine(SourceCode)
'End Using
File.WriteAllText(OutputFile, SourceCode, Encoding.Default)
End If
Catch ex As Exception
MsgBox("Error: " & ex.Message)
End Try
Return SourceCode
End Function