============================
   
============================

         -  , , ( ).
     VFP 8.X  FP 2.X.

 .zip  :
1)  ReadMe.txt ( )
2)  z_DirTest.prg
2)  z_DirTest3.prg

 z_DirTest.prg  VFP 8.X:
1)   
2)  fDirScan(), fDirSub() - 
3)  fDirL(), fDirSL()
4) fIsDir()

 z_DirTest3.prg  FP 2.X:
1)   
2)  fDirScan(), fDirSub()
3)  fDirL(), fDirSL()
4) fIsDir()

===================
  VFP 8.X
===================
1) fDirScan() -    ,   1   2
2) fDirSub()  -      
3) fDirL() -  (  )   ,   1   2
4) fDirSL() -  (  )    
5) fIsDir() -   

----------------------------
 1
----------------------------
*     cDir

cDir = " "            &&  
cDirCur = fDirScan(cDir, cDir) &&   cDir ( cDir    )

DO WHILE !EMPTY(cDirCur)

   *   ...

   *  
   cDirCur = fDirScan(cDirCur, cDir)
ENDDO

-----------------------------------------------------
 2
-----------------------------------------------------
*       cDirStart  cDirEnd

*  ,   "" ( )
cDirStart = " "
*  ,   "" ( cDirEnd c    )
cDirEnd = " "
*   cDirStart  .  cDirStart,   
cDirCur = fDirScan(cDirStart, cDirEnd, "N")

DO WHILE !EMPTY(cDirCur)

   *    ...

   *    
   cDirCur = fDirScan(cDirCur, cDirEnd, "N")
ENDDO

-------------------------------
*  3
-------------------------------
*   -  
DIME adr[1], aff(1)   &&  , 

*  
nDirs = fDirSL(@adr, "")

*  c nDirs  1 ( )
FOR nDir = nDirs TO 1 STEP -1
    *  
    nFiles = ADIR(aff, adr(nDir) + "*.*", "HS")
    FOR nFile = 1 TO nFiles
        DELETE FILE (adr(nDir) + aff(nFile, 1))
    ENDFOR
    *  
    RD (adr(nDir))
ENDFOR

--------------------
  
--------------------

 fDirScan()
    ( 1)   "",    ( 2) "",    .      .     ""  ,       ,         !!!

 fDirSub()      .
 fDirSub(),     1 fDirScan().


================================
  VFP 3.0  FoxPro 2.0
================================

1) fDirScan() -    ,   1   2
2) fDirSub()  -      
3) fDirL()  -  (  )   ,   1   2
4) fDirSL() -  (  )    
5) fIsDir() -   

----------------------------
 1
----------------------------
*     cDir

cDir = " "            &&  
IF fIsDir(cDir)                &&  cDir 
   cDirCur = fDirSFP3(cDir, cDir) &&   cDir ( cDir    )

   DO WHILE !EMPTY(cDirCur)

      *   ...

      *  
      cDirCur = fDirSFP3(cDirCur, cDir)
   ENDDO
ENDIF

-----------------------------------------------------
 2
-----------------------------------------------------
*       cDirStart  cDirEnd

*  ,   "" ( )
cDirStart = " "
*  ,   "" ( cDirEnd c    )
cDirEnd = " "

IF fIsDir(cDirStart) AND fIsDir(cDirEnd) &&  
   *   cDirStart     ("") cDirStart
   cDirCur = fDirScan(cDirStart, cDirEnd, "N")

   DO WHILE !EMPTY(cDirCur)

      *    ...

      *    
      cDirCur = fDirScan(cDirCur, cDirEnd, "N")
   ENDDO
ENDIF

-------------------------------
*  3
-------------------------------
*   -  
DIME adr[1], aff(1)	&&  , 

*  
nDirs = fDirSL(@adr, "")

*  c nDirs  1 ( )
FOR nDir = nDirs TO 1 STEP -1
    *  
    nFiles = ADIR(aff, adr(nDir) + "*.*", "HS")
    FOR nFile = 1 TO nFiles
        DELETE FILE (adr(nDir) + aff(nFile, 1))
    ENDFOR
    *  
    RD (adr(nDir))
ENDFOR

--------------------
  
--------------------
 fDirScan()
    ( 1)   "",    ( 2) "",    .      .     ""  ,       ,         !!!
    ,           !!!

 fDirScan(), fDirSub()
     ,  fIsDir.        ,     !!!

 fDirSub()      .
 fDirSub(),     1 fDirScan().


==========

==========

  .

 ,     FoxPro Club,  ,   :
http://www.foxclub.ru/sol/index.php?act=view&id=577.

=================
  FoxPro
=================

   FoxPro,     () FoxPro Club:
http://forum.foxclub.ru/read.php?29,256218,page=1 ()

 :

?DelDir(m.cpt)   &&  

FUNCTION DelDir
LPARAMETER tpt
LOCAL nn, ne, adr(1)

tpt = ADDBS(m.tpt)
IF !DIRECTORY(m.tpt)
    RETURN .f.
ENDIF

ne = ADIR(adr, m.tpt + "*.*", "DHS")
* = ASORT(adr, 1, -1, 0, 1)
FOR nn = 1 TO m.ne
    IF "D" $ adr(m.nn, 5) AND !(adr(m.nn, 1) == "." OR adr(m.nn, 1) == "..")
       = DelDir(m.tpt + adr(m.nn, 1))
    ENDIF
ENDFOR

?m.tpt + "*.*"
*DELETE FILE (m.tpt + "*.*")
*RMDIR (m.tpt)
RETURN .t.

==========

==========

: 18.04.2007.
1. ReadMe.txt.
2. z_DirTest.prg:
  1)    ;
  2)    fDirSFP3();
  3)   VFP  FP 2.0.

: 19.04.2007.
1. ReadMe.txt.
2. z_DirTest.prg:
  1)      fDirSFP3();
  2)         - fDirSub()  VFP 8.0,  fDirSubD()  VFP 3.0  FoxPro 2.0;
  3)   VFP  FP 2.0.

: 05.08.2007.
1. ReadMe.txt.
2. z_DirTest.prg:
  1)   fDirL(), fDirSL();
  2)   VFP 8.X.
3. z_DirTest3.prg:
  1)   fDirL(), fDirSL();
  2)   VFP 3.0  FP 2.0.

==============================================================
: INB 2006 . -: inbzz@narod.ru
: http://www.foxclub.ru/sol/index.php?act=view&id=577
==============================================================
