API Documentation > CorelDRAW > 2025-v26 > 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
Attributes
Long
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%