define class CDir as custom hidden sDir hidden oShell sDir= "" oShell= .null. function init this.sDir= sys(5)+sys(2003) this.oShell= createobject('WScript.Shell') function destroy cd (this.sDir) && release this.oshell && Error: must be a variable or array this.oShell= .null. function MyDocuments cd (this.oShell.SpecialFolders("MyDocuments")) enddef