IFileSystem.DeleteFolder Method

[José Roca]

The following example illustrates the use of the DeleteFolder method.

JScript

Code Select Expand


function DeleteAFolder(folderspec)
{
   var fso;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   fso.DeleteFolder(folderspec);
}


VBScript

Code Select Expand


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



PowerBASIC

Code Select Expand


SUB DeleteAFolder (BYVAL strFolderSpec AS STRING)

   LOCAL fso AS IFileSystem

   fso = NEWCOM ("Scripting.FileSystemObject")
   fso.DeleteFolder(UCODE$(strFolderSpec))

END SUB