Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Recursive Remove Directory
Message
De
10/12/1999 17:25:39
 
 
À
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:
00302034
Vues:
36
Hi Michael,

>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

This just localizes your variables, does it work?
FUNCTION RemoveDirectory
lParameters dirpath
local entries, aRemDirs[1]
dirpath = addbs(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
Any luck?
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform