Метод создает на диске каталог, имя которого указано в качестве параметра. Если указанный каталог уже существует, 
то метод генерирует ошибку. Для того, чтобы избежать этого, 
перед использованием этого метода, для проверки можно использовать метод FolderExists объекта 

lcFolder2Create = "C:\FSO_testing"
loFSO = CREATEOBJECT('Scripting.FileSystemObject')
If !(loFSO.FolderExists(lcFolder2Create))
   loNewFolder = loFSO.CreateFolder(lcFolder2Create)
Endif
? "Path:             " + loNewFolder.Path
? "DateCreated:      " + DTOC(loNewFolder.DateCreated)
? "DateLastAccessed: " + DTOC(loNewFolder.DateLastAccessed)
? "DateLastModified: " + DTOC(loNewFolder.DateLastModified)
? "Drive:            " + ;
   IIF(VARTYPE(loNewFolder.Drive)="O","Object","Variable")) + ;
   " " + loNewFolder.Drive.DriveLetter
? "Files:            " + ;
   IIF(VARTYPE(loNewFolder.Files)="O","Object","Variable") + ;
   " " + ALLTRIM(STR(loNewFolder.Files.Count))
? "IsRootFolder:     " + IIF((loNewFolder.IsRootFolder),"True","False")
? "Name:             " + loNewFolder.Name
? "ParentFolder:     " + ;
   IIF(VARTYPE(loNewFolder.ParentFolder)="O","Object","Variable") + ;
   " " + loNewFolder.ParentFolder.Name
? "ShortName:        " + loNewFolder.ShortName
? "ShortPath:        " + loNewFolder.ShortPath
? "Size:             " + ALLTRIM(STR(loNewFolder.Size))
? "Subfolders:       " + ;
   IIF(VARTYPE(loNewFolder.SubFolders)="O","Object","Variable") + ;
   " "+ALLTRIM(STR(loNewFolder.SubFolders.Count))
RELEASE loFSO