IFolder.Delete Method

[José Roca]

The following example illustrates the use of the Delete method with an IFolder object:

Code Select Expand


#INCLUDE "windows.inc"
#INCLUDE "scrrun.inc"

DIM fso AS IFileSystem
DIM pFolder AS IFolder

' Create an instance of the FileSystemObject
fso = NEWCOM "Scripting.FileSystemObject"
' Get a reference to the IFolder interface
pFolder = fso.GetFolder(UCODE$("C:\MyFolder"))
' Delete the folder
pFolder.Delete %VARIANT_TRUE
IF OBJRESULT = %S_OK THEN
   MSGBOX "Folder deleted"
ELSE
   MSGBOX "Error &H" & HEX$(OBJRESULT) & " deleting the folder"
END IF