>>You might try using the Scripting.FileSystemObject; do a GetFolder() on the parent to return a FOlder object, and then iterate through the Folders collection, and deleting the funky directories:
>
>
oFSO = CREATEOBJ('Scripting.FileSystemObject')
>oParent = oFSO.GetFolder('C:\ParentDir')
>cLegalChars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.\-_ '
>FOR EACH oFolder IN oFSO.Folders
> IF LEN(CHRTRAN(oFolder.Name,cLegalChars,''))>0
> * Funky name
> oFolder.Delete(.t.)
> ENDIF
>ENDFOR
>oFolder = NULL
>oFSO = NULL
>
>
>Ed, that was close...THANKS! my first playing around w/WSH. I got this to work on my system - w/a little help from Help (I need to delete all the sub-directories, at this point):
>
>
oFSO = CREATEOBJ('Scripting.FileSystemObject')
>oParent = oFSO.GetFolder('C:\DelClient')
>FOR EACH oFolder IN oParent.SubFolders
> WAIT WINDOW "Deleting Directory: " + oFolder.Name
> oFolder.Delete(.T.)
>ENDFOR
>oFolder = NULL
>oFSO = NULL
>
>I'm assuming that I can just build this routine into an EXE, like any other prg, and it should work on the client's system...hope this works. Will let you know. Thanks again. J
Jill,
You might check out the September, 2000 issue (under construction) of the VFUG newsletter for further sources on the WSH. Among other things, the article will tell you how to determine if it's present and where to get additional information.
George
Ubi caritas et amor, deus ibi est