CorelScriptTools.FindFirstFolder method - Developer Area

API Documentation > CorelDRAW > 2019.2 > CorelScriptTools > ICorelScriptTools

CorelScriptTools.FindFirstFolder method

Find First Folder

Syntax:

Function FindFirstFolder(ByVal SearchCriteria As String, ByVal Attributes As Long) As String

Parameters:

Name	Type	Description
SearchCriteria	String	Specifies the files or folders for which to search. You can include wild-card characters (* or ?).
Attributes	Long	Specifies the type of files or folders you want to use. Use the OR operator to specify multiple file and folder types: 1 = read-only 2 = hidde 4 = system 16 = folders (if not specified, files are used) 32 = archive 128 = normal (not read-only, hidden, system or archive file or folder) 256 = temporary 2048 = compressed

Remarks:

You can use the FindFirstFolder and FindNextFolder functions to assemble or perform an operation on a list of files, folders, or both. The FindFirstFolder function is used to locate the first file or first folder in a folder that meets a specified search criteria. The FindNextFolder function is used to locate the next file or next folder that meets the specified search criteria set by the FindFirstFolder. The FindNextFolder function must be used in conjunction with the FindFirstFolder function.

Specifying folder in the attributes parameter (16) by itself does not specify a type of folder. You must use another parameter along with 16 to specify a folder type.

Examples:

In the following code example, the first loop fills an array (DirArr) with the names of the normal folders in the D:\Corel\Ventura\Samples folder. The second loop searches the folders in the Samples folder for any file with the extension .vp. Any found VP file has its name added to the FilesArr array and has its name displayed in a message box.

dim Dcount%, Fcount% 'creates 2 integer variables
dim FilesArr$(100), DirArr$(100) 'creates 2 string arrays
rem LOOP #1
REM Find all directories in the Samples folder
Dcount = 1
DirArr(Dcount) = FINDFIRSTFOLDER("D:\Corel\Ventura\Samples\*", 16 or 128)
WHILE (DirArr(Dcount) <> "")
MESSAGE DirArr(Dcount)
IF DirArr(Dcount) <> "." AND DirArr(Dcount) <> ".." THEN Dcount = Dcount + 1
DirArr(Dcount) = FINDNEXTFOLDER()
WEND
rem LOOP #2
REM Find all *.vp files in each Directory found in earlier loop
DIM i%
Fcount = 1
FOR i% = 1 TO Dcount-1
FilesArr(Fcount) = FINDFIRSTFOLDER("D:\Corel\Ventura\Samples\" + DirArr(i%) + "\*.vp", 1 or 2 or 4 or 32 or 128)
WHILE (FilesArr(Fcount) <> "" )
MESSAGE DirArr(i%) & CHR(13) & FilesArr(Fcount)
Fcount = Fcount + 1
FilesArr(Fcount) = FINDNEXTFOLDER()
WEND
NEXT i%

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25