>HI All,
> I need to know how can I get the total number of folders in a given path.
>
>Fox example:
>
>file path is G:\MRP\Parts\
>
>
>In Parts folder I have three folders such as GM folde, Buick folder and Nissan folder. In each of the folder I may have a file with .hsp extension. I need to dele all the file with the .hsp extension. My brain is not working well right now and I can not seems to figure this out.
>
>Any help willl be great!!
>
>Thanks
>
>MA

You would need to do it recursively ever with Scripting.FileSystemObject or with ADIR()

That's something I wrote recently from the top of my head, you would need to adapt it.

LOCAL loFSO, loFolder  
  CREATE CURSOR curDirs (cpath C(254))  
  loFSO = CREATEOBJECT('Scripting.FileSystemObject')  
  loFolder = loFSO.GetFolder(GETDIR())   
  =GetFolders(m.loFolder)  
  BROWSE  
    
  FUNCTION GetFolders  
  LPARAMETERS toFolder  
  LOCAL loItem  
  IF m.toFolder.SubFolders.COUNT = 0  
  	INSERT INTO curDirs VALUES (m.toFolder.PATH)  
  ELSE  
  	FOR EACH loItem IN m.toFolder.SubFolders  
  		IF m.loItem.SubFolders.COUNT = 0  
  			INSERT INTO curDirs VALUES (m.loItem.PATH)  
  		ELSE  
  			=GetFolders(m.loItem)  
  		ENDIF  
  	NEXT  
  ENDIF