源代码:
<html> <body> <FONT COLOR=#ff0000><% Set fs=Server.CreateObject("Scripting.FileSystemObject") If fs.FolderExists("c: emp") = true Then Response.Write("Folder c: emp exists.") Else Response.Write("Folder c: emp does not exist.") End If set fs=nothing %></FONT> </body> </html>
运行结果：
<html> <body> <FONT COLOR=#ff0000><% Set fs=Server.CreateObject("Scripting.FileSystemObject") If fs.FolderExists("c: emp") = true Then Response.Write("Folder c: emp exists.") Else Response.Write("Folder c: emp does not exist.") End If set fs=nothing %></FONT> </body> </html>