Crestron SIMPL+ - Page 160

Software Crestron SIMPL+
®
150 z SIMPL+
®
Language Reference Guide - DOC. 5797G
Example:
(Refer to "File Functions Overview"on page 116)
FILE_INFO FileInfo;
SIGNED_INTEGER Found;
StartFileOperations();
Found = FindFirst(“*.dat”, FileInfo );
WHILE (Found = 0)
{
if ((FileInfo.File Attributes&ADIRENT) <>0)
PRINT (“%s is a directory\n”, FileInfo.Name
Else
PRINT (“%s is a file\n”,FileInfo.Name
Found = FindNext(FileInfo);
}
IF ( FindClose() < 0 )
PRINT ( “Error in closing find operation\n” );
EndFileOperations();
Version:
SIMPL+ Version 3.00.02 or higher (Pro 2 only)
Control System:
2-Series Only
NOTE: FindFirst must be followed by a FindClose.