Steven Sartain is a consultant currently designing and leading a VB.NET project using n-tier architecture and WebServices for Accuride International Ltd.
During his 8 year career as a developer and development lead, Steve has designed and implemented a diverse number of mission critical software solutions using VB, VBA, MS Access, C/C++, ASP, Delphi, DCOM & MTS, SQL Server, Oracle, SQL Anywhere and others. See his Resume for details.
He is also a Director of Iridium Software - a UK based bespoke software development house.
Steve is always open to take over a challenging programming opportunity. If you experience a need for a professional consultant who has all the necessary skills to take a proposition from first client meeting through to profitably and elegantly completed projects; I'm sure Steve could assist. See his Resume and Professional Statement for details.
A replacement for the open() function in VB and the CreateFile() API
Start a new project then add a module. Add the following code to the module:
'Author: Steven Sartain
'Last Revision: 28th August 2001
'Revision Notes: None
' Yes No Untested
' VB4 X
' VB5 X
' VB6 X
' VB.NET(beta2) X
Public Module modFunctions
Public Sub ReadFile(pstrFilePath As String)
Dim udtFile as StreamReader = File.OpenText(pstrFilePath)