Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to check user's rights
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9 SP1
Divers
Thread ID:
01210145
Message ID:
01243352
Vues:
28
Rajani,

If you can use Windows Scripting Host you can do something like this (not tested and poorly written, although it run fine in my only test)
scanFolder('C:\Fox')

function scanFolder(tcFolderPath)
local loRootFolder, loFolder, loFSO

loFSO			= Createobject('Scripting.FileSystemObject')
loRootFolder		= loFSO.getFolder(tcFolderPath)

scanSubFolders(loRootFolder)

procedure scanSubFolders(toRootFolder)
	local loFolder
	for each loFolder in toRootFolder.SubFolders
		? loFolder.Path
		scanSubFolders(loFolder)
	endfor
endproc
of course instead of ? loFolder.Path, you can try to create your file there
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?

"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare

"To die for a religion is easier than to live it absolutely"
Jorge L. Borges
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform