The process cannot access the file XXX because it is being used by another process_the process cannot access the file 'e:\陈吉的框架学习\整洁架

如下代码

每次新建文件的时候总是报错

The process cannot access the file 'D:\errorlog\2011年7月23日.txt' because it is being used by another process. 

Public Sub writelog(ByVal message As String, ByVal path As String)
        Dim writer As StreamWriter
        If File.Exists(path) Then

        Else
            File.Create(path)

        End If
        Dim logfile As FileInfo = New FileInfo(path)

        writer = File.AppendText(path)

        writer.WriteLine(message)
        writer.Flush()

        writer.Close()

    End Sub

经过尝试，原因是黄色代码的位置出现了问题。

file.creat()命令执行后，并不会释放资源，造成后边streamwriter访问被独占。

解决办法也简单改成

File.Create(path).close() 即可。