|
|
|
|
Test if FileSystem Object is Correctly Installed
Run the code below to test if the FileSystem Object is correctly installed on
your server.
<% Option Explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>FSO Object Test</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
<style type="text/css">
body {font-family: Verdana, Arial, Helvetica, sans-serif; font-size:
11px;}
</style>
</head>
<body>
<%
Dim objFSO, sSavePath, sSaveFile
On Error Resume next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
sSavePath = Request.ServerVariables("APPL_PHYSICAL_PATH")
Response.Write "Your current virtual directory: " & sSavePath
Set sSaveFile = objFSO.CreateTextFile(sSavePath & "FSOtest.txt", True)
sSaveFile.WriteLine("Testing the FSO by writing to a file.")
sSaveFile.Close
Set sSaveFile = nothing
Set objFSO = nothing
If Err.number<> 0 Then
Response.Write "<p style=""color:#FF0000;"">"
& Err.Description & ".</p>"
End If
%>
<p>If you did not see any error message, the FileSystemObject
is correctly installed.</p>
<p>Also check your current virtual directory and make sure the
'FSOtest.txt' file was created.</p>
</body>
</html>
Membership Software Integrates with PayPal
- Plug and play Membership script.
- Recurring subscriptions or one time payment.
- Up to 3 levels of membership subscription.
- Easy set up and admin with free installation.
- Works with PayPal.
- Receive updates and add-ons for 2 years.
- 1st class support and customization available.
- Can be customized to support more levels.
- Saves you hours and hours of development time and money.
- PURCHASE YOUR COPY TODAY
If you have any code snippets to share with full credit given then send an email to Codesnippets - You'll receive full credit and a link back to your site.
Site developed by Michael Wall - Web Design Belfast N.Ireland.
Copyright © 2000-2008. All rights reserved.
|
|
|
|
|
