请问为什么我删除文件总是提示说“该文件正由另一进程使用”,大家来看下,老问题!
显示所有文件的代码
For Each filename In IO.Directory.GetFiles(Server.MapPath("MyUser/" & userId & "/images/"))
Dim fl As New FileInfo(filename)
fnsize = fnsize + fl.Length
url = Replace(filename, Server.MapPath("") & "\MyUser\" & userId & "\", "")
'url = filename
myimage = System.Drawing.Image.FromFile(filename)
mywidth = myimage.Width
myheight = myimage.Height
i = i + 1
Next
If Not (myimage Is Nothing) Then
myimage.Dispose()
End If
titlesize = titlesize & "图片文件占:" & Math.Round(fnsize / 1024, 2) & "KB; "
tsize = 0
For Each filename In IO.Directory.GetFiles(Server.MapPath("MyUser/" & userId & "/sounds/"))
Dim fl As New FileInfo(filename)
fnsize = fnsize + fl.Length
tsize = tsize + fl.Length
Next
titlesize = titlesize & "声音文件占:" & Math.Round(tsize / 1024, 2) & "KB; "
tsize = 0
For Each filename In IO.Directory.GetFiles(Server.MapPath("MyUser/" & userId & "/swf/"))
Dim fl As New FileInfo(filename)
fnsize = fnsize + fl.Length
tsize = tsize + fl.Length
Next
titlesize = titlesize & "SWF文件占:" & Math.Round(tsize / 1024, 2) & "KB; "
Me.Label1.Text = "<a title='" & titlesize & "'style='Cursor:hand;'><font size=2>你的剩余空间大小:" & Math.Round((usersize - fnsize) / 1024, 2) & "KB" & " <font size=3><sup>move here!</sup></font></font></a>"
Me.trcontent.Text = str
myimage = Nothing
删除的代码
Try
If File.Exists(Server.MapPath("") & "\MyUser\" & Request.QueryString("id") & "\" & Request.QueryString("del")) Then
File.Delete(Server.MapPath("") & "\MyUser\" & Request.QueryString("id") & "\" & Server.HtmlDecode(Request.QueryString("del")))
End If
Catch err As Exception
Response.Write(err.ToString & "<br /><br /><br />")
Response.Write("或者稍候再试!")
di = 1
End Try