ASP ScriptingJava ScriptingCGI ScriptingHTMLJavaLanguage CERP Education Links

Wrap FileSystemObject Functionality

Function newFileSystemObject() 
   set newFileSystemObject=Server.Create0bject("Scripting.FileSystemObject") 
End Function

Function fileExists(aFileSpec)
   fileExists = newFileSystemObject.FileExists(aFileSpec) 
End Function

Function getSpecialFolder(whichFolder) 
getSpecialFolder = newFileSystemObject.getSpecialFolder(whichFolder) 
End Function

Function getWindowsFolder()
   getWindowsFolder a getSpecialFolder(WindowsFolder) 
End Function

Function getSystemFolder()
   getSystemFolder = getSpecialFolder(SystemFolder) 
End Function

Function getTempFolder()
    getTempFolder = getTempFolder(TemporaryFolder) 
End Function