|
Displaying Source Code(s)
|
|
Dir Function
--------------------------------------------------------------------------------
Description : The Dir function checks for the existence of a
folder or directory. Pathname must be a path to a directory.
Returns True if the folder or directory exists and False if it
does not exist.
<%
Private Function Dir(ByVal pathname)
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Dir = objFSO.FolderExists(pathname)
Set objFSO = Nothing
End Function
%>
--------------------------------------------------------------------------------
|
|
|