日期:2013-01-23  浏览次数:20857 次

DeleteFolder Method<br>
Deletes a specified folder and its contents.<br>
<br>
object.DeleteFolder folderspec[, force] <br>
<br>
Arguments <br>
object<br>
<br>
Required. Always the name of a FileSystemObject.<br>
<br>
folderspec<br>
<br>
Required. The name of the folder to delete. The folderspec can contain wildcard characters in the last path component.<br>
<br>
force<br>
<br>
Optional. Boolean value that is True if folders with the read-only attribute set are to be deleted; False (default) if they are not.<br>
<br>
Remarks<br>
The DeleteFolder method does not distinguish between folders that have contents and those that do not. The specified folder is deleted regardless of whether or not it has contents. <br>
<br>
An error occurs if no matching folders are found. The DeleteFolder method stops on the first error it encounters. No attempt is made to roll back or undo any changes that were made before an error occurred.<br>
<br>
The following example illustrates use of the DeleteFolder method: <br>
<br>
Sub DeleteAFolder(filespec)<br>
   Dim fso<br>
   Set fso = CreateObject("Scripting.FileSystemObject")<br>
   fso.DeleteFolder(filespec)<br>
End Sub<br>
DeleteFile Method<br>
Deletes a specified file.<br>
<br>
object.DeleteFile filespec[, force] <br>
<br>
Arguments <br>
object<br>
<br>
Required. Always the name of a FileSystemObject.<br>
<br>
filespec<br>
<br>
Required. The name of the file to delete. The filespec can contain wildcard characters in the last path component.<br>
<br>
force<br>
<br>
Optional. Boolean value that is True if files with the read-only attribute set are to be deleted; False (default) if they are not.<br>
<br>
Remarks<br>
An error occurs if no matching files are found. The DeleteFile method stops on the first error it encounters. No attempt is made to roll back or undo any changes that were made before an error occurred.<br>
<br>
The following example illustrates use of the DeleteFile method: <br>
<br>
Sub DeleteAFile(filespec)<br>
   Dim fso<br>
   Set fso = CreateObject("Scripting.FileSystemObject")<br>
   fso.DeleteFile(filespec)<br>
End Sub<br>