تکه کد های جالب

[mehran_337]

این کد لیست تمام شاخه ها و زیر شاخه ها را در یک جدول ذخیره می کند.

**************************************************  *******

** Author   : Ramani (Subramanian.G)

**            FoxAcc Software / Winners Software

**            ramani_vfp@yahoo.com

** Type     : Freeware with reservation to Copyrights

** Warranty : Nothing implied or explicit

** Last modified : 31 January, 2003

**************************************************  *******

** The following uses Filer.DLL and

**      extracts all files in a directory as a cursor.

** How to run :  Save this as dir2Cursor.prg

**               =dir2Cursor(cDir)

**************************************************  *******

** FUNCTION dir2cursor

PARAMETERS pDir

IF PARAMETERS() < 1 OR EMPTY(pDir)

   RETURN

ENDIF

pDir = ADDBS(ALLTR(pDir))

CREATE CURSOR filename (cfilename c(128))

omyfiler = CREATEOBJECT('Filer.FileUtil')

omyfiler.searchpath = pDir    && Search Directory

omyfiler.subfolder = 1 && 1=add all subdirectories else 0

oMyFiler.SortBy = 0

omyfiler.FIND(0)

LOCAL ncount

ncount = 1

FOR nfilecount = 1 TO omyfiler.FILES.COUNT

    IF omyfiler.FILES.ITEM(nfilecount).NAME = "." OR ;

       omyfiler.FILES.ITEM(nfilecount).NAME = ".."

       LOOP

    ENDIF

    APPEND BLANK

    REPLACE cfilename ;

       WITH UPPER(omyfiler.FILES.ITEM(nfilecount).PATH)+ ;

            UPPER(omyfiler.FILES.ITEM(nfilecount).NAME)

ENDFOR

BROW

**************************************************  *******

* EOF