Add Method

 

Description

 

Adds a folder to the Folders collection.

 

PowerBASIC Syntax

 

METHOD Add () AS IFolder

 

Arguments

 

bstrFolderName

BSTR. Folder name.

 
Return Value

 

Reference to a IFolder interface.

 

Example [PowerBASIC]

 

#INCLUDE "windows.inc"

#INCLUDE "scrrun.inc"

 

DIM fso AS IFileSystem

DIM pFolder AS IFolder

DIM pSubFolders AS IFolderCollection

DIM pSubFolder AS IFolder

 

' Create an instance of the FileSystemObject

fso = NEWCOM "Scripting.FileSystemObject"

' Get a reference to a folder

pFolder = fso.GetFolder(UCODE$("C:\"))

' Get a reference to the subfolders collection

pSubFolders = pFolder.SubFolders

pSubFolder = pSubFolders.Add(UCODE$("NewFolder"))

IF OBJRESULT = %S_OK THEN

  MSGBOX "Folder added"

ELSE

  MSGBOX "Error &H" & HEX$(OBJRESULT) & " adding the folder"

END IF

 

Valid XHTML 1.0 Transitional