forum.clarionlife.net

Код: Выделить всё

FIQ         QUEUE,PRE(F_IQ)
Name          STRING(FILE:MAXFILENAME)
ShortName     STRING(13)
Date          LONG
Time          LONG
Size          LONG
Attrib        BYTE
            END

Loc:Count Long

     Code

     Free(FIQ)
     Directory(FIQ,LongPath(Clip(System{Prop:DataPath})) & 'Image\*.*', FF_:NORMAL)
     If Records(FIQ)
        Loop Loc:Count = 1 to Records(FIQ) by 1
          Get(FIQ,Loc:Count)

          If Clip(Left(FIQ.Name)) <> ''
             If Exists(LongPath(Clip(System{Prop:DataPath})) & 'Image\' & Clip(Left(FIQ.Name)))
                Remove(LongPath(Clip(System{Prop:DataPath})) & 'Image\' & Clip(Left(FIQ.Name)))
             end
          end
        end
     end