Ca sa fac un folder am facut urmatoarea functie:

FUNCTION CreateAFolder(tcFolderName)
     LOCAL loFso, loFolder
     *-- 
     loFso     = CreateObject("Scripting.FileSystemObject")
     loFolder  = .NULL.
     WITH loFso
         IF NOT .FolderExists(tcFolderName)
             loFolder = .CreateFolder(tcFolderName)
         ENDIF
     ENDWITH
     *--
     RETURN loFolder
ENDFUNC

Daca aveti timp si chef va rog sa comentati ce-i lipseste ca sa fie cat mai completa. Multumesc!