CLEAR ALL
SET SAFETY OFF

CREATE CURSOR csrFiles (fname C(128))
GetFilesInFolder("d:\myprojects\images")

IF RECCOUNT("csrFiles") > 0
  SELECT csrFiles
  LOCATE
  BROWSE NOWAIT
  m.lcDir = GETDIR("","Folders:", "Select destination folder", 64)
  IF !EMPTY(m.lcDir)
    m.lcDir = ADDBS(LOWER(m.lcDir))
    SCAN
      IF JUSTEXT(fname) == "png"
        COPY FILE (fname) TO (m.lcDir + CHRTRAN(SUBSTR(fname, 4), "\", "_"))
      ENDIF
    ENDSCAN
  ENDIF
ENDIF

USE IN csrFiles

RETURN

PROCEDURE GetFilesInFolder(tcFolder)
  LOCAL ARRAY laFiles[1]
  LOCAL lnFileCount, lnIndex, lcFile
  m.tcFolder = ADDBS(m.tcFolder)
  m.lnFileCount = ADIR(laFiles, m.tcFolder+"*.*", "D", 1)
  FOR m.lnIndex = 1 TO m.lnFileCount
    m.lcFile = TRIM(m.laFiles[lnIndex, 1])
    IF (AT("D", m.laFiles[lnIndex, 5]) > 0)
      IF !INLIST(m.lcFile, ".", "..")
        GetFilesInFolder(m.tcFolder + m.lcFile)
      ENDIF
    ELSE
      INSERT INTO csrFiles VALUES (m.tcFolder + m.lcFile)
    ENDIF
  ENDFOR
ENDPROC