Open or create textfile with ASP

Create a new Blank file if it doesn't exists 

<%
Const File_OpenForReading = 1
Const File_OpenForWriting = 2
Const  File_OpenForAppending = 8

Function File_OpenExistingOrCreate( strPath, nAccess )
	' strPath = the path to file
	' nAccess should be one of the constants above
	On Error Resume Next

	Dim objFileObj
	Dim objFile

	Set objFileObj = Server.CreateObject("Scripting.FileSystemObject")
	Set objFile = objFileObj.OpenTextFile( strPath, nAccess, True, False )
	If Err = 0 Then
		Set File_OpenExistingOrCreate = objFile
	Else
		Set File_OpenExistingOrCreate = Nothing
	End If
End Function

%>

The function returns a File object if successful otherwise Nothing. 

Use it like this:

<%
Dim oFile
Set oFile = File_OpenExistingOrCreate( "c:\test.log", File_OpenForWriting )
If oFile Is Nothing Then
	Response.Write "Not existing"
Else
	Response.Write "Existing"
	'Here we can start writing to it
End If

%>
If you don't know the exact path to the file ( like c:\www\hello.txt ) - you might just know the file is located under the /files/ subdirectory at your webhost then you need to convert the path using Server.MapPath. Check out our String functions section for examples.

Share this: