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 = NULLEd, 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 = NULLI'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