Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Recursive Remove Directory
Message
 
À
10/12/1999 16:50:32
Michael Dougherty
Progressive Business Publications
Malvern, Pennsylvanie, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00302015
Message ID:
00302038
Vues:
36
Michael,
If you declare i, entries, aremdirs as private it works.
Mark

>semi-follow up to the MD issue
>
>I need to remove a root directory, which may contain subdirectories. Recursion seemed the simplest solution:
>1. Delete the files
>2. Remove the subdirectories
>3. Remove the root directory
>
>FUNCTION RemoveDirectory
>Parameters dirpath
> Dele file (dirpath+"*.*")
> entries = adir(aRemDirs,dirpath+"*.*","D")
> If entries >= 0
> for i = 1 to entries
> If !Inlist(aRemDirs(i,1),".","..")
> RemoveDirectory(dirpath+aRemDirs(i,1)+"\")
> Endif
> Next
> Endif
> RD (dirpath)
>Return && RemoveDirectory
>
>I read in the help that functions' parameters are passed by value, and i THOUGHT this would protect the scoping necessary for recursion. It's late on a friday, and while i can see this isn't working, i can't seem to figure out why.
>
>I'm hoping someone will immediately see what i'm doing wrong. TIA
"It hit an iceberg and it sank. Get over it."
Robert Ballard, dicoverer of the Titanic wreckage.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform