File "list_frames.bas"

Path: /Folder Icon Autoset/res/list_frames.bas
File size: 451 bytes
MIME-type:
Charset: utf-8

Download  
Open Back 
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN () AS LONG

    LOCAL n, ff AS LONG
    LOCAL e, r AS STRING

    ff = FREEFILE
    OPEN "list_frames.txt" FOR OUTPUT AS #ff
    e = DIR$("frame??.ico")
    WHILE LEN(e)
        PRINT #ff, "F" + LEFT$(RIGHT$(e,6),2) + " ICON MOVEABLE PURE LOADONCALL DISCARDABLE " + $DQ + e + $DQ
        e = DIR$(NEXT)
    WEND
    DIR$ CLOSE
    ?"list_frames.txt correctly generated",,"Done."

END FUNCTION