Board.KolibriOS.org

Code: Select all

Const
  FILE_ATTRIBUTES_FOLDER = $00000010;

Code: Select all

ReadFolder(FolderPath, FolderInformation, 1, Pos, 0, BlocksRead);
With FolderInformation Do
  With FileInformation[0] Do
    With FileAttributes Do
      If Boolean(Attributes And FILE_ATTRIBUTES_FOLDER) Then
        Printf('"%s" is folder'#10, FileName)
      Else
        Printf('"%s" is file'#10, FileName);