Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Store Folder Name in File
Message
 
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00743025
Message ID:
00743028
Views:
13
>I have 500+ folders and I need to go to each folder to find out how many subfolders are under the main folder and store the subfolder names to a file. I cannot use DOS RUN comment. Can anyone give me some direction what I can do to pull all the information together.

Hi Tai.
SET DEFAULT TO lcSomeFolder
lnNumberOfSubfolders  = ADIR(laDirs,'*.',"D",0)
lcFolderNames = ""
FOR i = 1 TO lnNumberOfSubfolders
	lcFolderNames = lcFolderNames + laDirs(i,1) + CHR(10)
ENDFOR
STRTOFILE(lcFolderNames,"TaisFile.txt",0)
Repeat this in a loop for each of your 500 folders.

P.S. Why can't you use the DOS RUN command?
Previous
Reply
Map
View

Click here to load this message in the networking platform