vb Get Theme File

Function ThemeFile(strFile)
	'thanks to: http://www.motobit.com/tips/detpg_read-write-binary-files/
	Dim strReturn
	Dim BinaryStream
	Dim strFilePath
	Dim objFSO, bFileExists
	
	'theme files are HTML
	strFile = strFile & ".html"

	strFilePath = Server.MapPath("/themes/" & Application("Theme") & "/" & strFile)
	
	'determine if the file exists
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	If objFSO.FileExists(strFilePath) Then
		bFileExists = true
	Else
		bFileExists = false
	End If
	Set objFSO = Nothing

	If bFileExists = true Then
		'create Stream object
		Set BinaryStream = CreateObject("ADODB.Stream")

		'specify stream type - we want to get binary data.
		BinaryStream.Type = 2

		'specify charset for the source text (unicode) data
		'see: http://msdn.microsoft.com/en-us/library/ms526296(EXCHG.10).aspx for full list of CharSets
		BinaryStream.CharSet = "utf-8"

		'open the stream
		BinaryStream.Open

		'load the file data from disk To stream object
		BinaryStream.LoadFromFile strFilePath

		'open the stream And get binary data from the object
		strReturn = BinaryStream.ReadText
		
		Set BinaryStream = Nothing
	Else
		'return an empty string
		strReturn = ""
	End If
	
	'return string of file contents
	ThemeFile = strReturn
End Function
Gets the contents of a HTML file for use within a themes system - within slickcms, but not yet implemented.

Updated: Saturday 9th October 2010, 06:40pm

There are 0 comments

Leave a comment of your own

Comments are currently closed.