删除文件
/*
''' <summary>
''' 删除文件
''' </summary>
''' <param name="sFilePath"></param>
''' <returns></returns>
*/
Private Function DelFile(ByVal sFilePath As String) As Boolean
If System.IO.File.Exists(sFilePath) Then
/*把文件的属性该成普通,让其能正常删除*/
Try
System.IO.File.SetAttributes(sFilePath, System.IO.FileAttributes.Archive)
System.IO.File.Delete(sFilePath)
Catch
End Try
/*删除文件*/
Return True
Else
Return False
End If
End Function
网友评论