0

ファイルへのアクセスに問題があります。

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
4

1 に答える 1