FileSystemObject删除动作能否得到返回值？

使用FileSystemObject删除（File.Delete或者Folder.Delete）文件或文件夹时，如何判断成功删除，若没有成功删除，比如文件被打开时则无权删除，这样则记录下无法删除的文件。也就是删除动作能否得到返回值？

DeleteFile 方法 语言参考
起始页 | 版本 3
 

请参阅 应用于 


--------------------------------------------------------------------------------

描述
删除指定的文件。
语法
object.DeleteFile filespec[, force] 
DeleteFile 方法的语法有以下部分： 

部分 描述 
object 必选。应为 FileSystemObject 的名称。 
filespec 必选。要删除的文件名。filespec 在路径的最后一个组成部分中可包含通配符。 
force 可选。Boolean 值。如果要删除只读文件，则该值为 True；否则为 False（默认）。 


说明
如果没有找到匹配文件，则会出现错误。DeleteFile 方法在遇到出现的第一个错误时停止。该方法不会撤消错误发生前所作的任何更改。
下面例子举例说明如何使用 DeleteFile 方法: 

Sub DeleteAFile(filespec)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.DeleteFile(filespec)
End Sub

Microsoft(R) Visual Basic(R) Scripting Edition
DeleteFolder 方法 语言参考
起始页 | 版本 3
 

请参阅 应用于 


--------------------------------------------------------------------------------

描述
删除指定的文件夹和其中的内容。
语法
object.DeleteFolder folderspec[, force] 
DeleteFolder 方法的语法有以下部分： 

部分 描述 
object 必选。应为 FileSystemObject 的名称。 
folderspec 必选。要删除的文件夹名称。folderspec 在路径的最后一个组成部分中可包含通配符。 
force 可选。Boolean 值。如果要删除只读文件夹，则该值为 True； 否则为 False（默认）。 


说明
DeleteFolder 方法不能区分文件夹中是否包含内容。无论文件夹是否包含内容，都将删除该文件夹。 
如果未找到匹配文件夹，则会出现错误。DeleteFolder 方法在遇到出现的第一个错误时停止。该方法不会撤消错误发生前所作的任何更改。

下面例子举例说明如何使用DeleteFolder 方法: 

Sub DeleteAFolder(filespec)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.DeleteFolder(filespec)
End Sub


--------------------------------------------------------------------------------
(C) 1998 Microsoft Corporation. All rights reserved. Terms of Use.