Wrap I/O for Text Files

Wrap I/O for Text Files

In a production application, every time you want to access a file for reading or writing, you must retrieve a free handle using the FreeFile() function to ensure you don’t overwrite an existing handle. You also must remember to close the file after you finish with it. In some cases, you can avoid the trouble by encasing this functionality inside utility functions. For example, I wrote these two functions to go between strings and text files in my apps:

 Public Function ReadFile(FileName As String) As String	Dim hFile As Integer	hFile = FreeFile	On Error GoTo ErrorTrap		Open FileName For Input As #hFile		ReadFile = Input(LOF(hFile), hFile)		Close # hFile	Exit FunctionErrorTrap:	ReadFile = ""End FunctionPublic Sub WriteFile(FileName As String, Contents As 	_	String)	Dim hFile As Integer	hFile = FreeFile	On Error Resume Next	Open FileName For Output As #hFile	Print #hFile, Contents;	Close #hFileEnd Sub

Once you put these functions in your project, you can read and write text files quickly. For example, here’s a way you might use these functions to copy text files:

 Call WriteFile("c:.txt", ReadFile("c:a.txt"))
Share the Post:
data observability

Data Observability Explained

Data is the lifeblood of any successful business, as it is the driving force behind critical decision-making, insight generation, and strategic development. However, due to its intricate nature, ensuring the

Heading photo, Metadata.

What is Metadata?

What is metadata? Well, It’s an odd concept to wrap your head around. Metadata is essentially the secondary layer of data that tracks details about the “regular” data. The regular

XDR solutions

The Benefits of Using XDR Solutions

Cybercriminals constantly adapt their strategies, developing newer, more powerful, and intelligent ways to attack your network. Since security professionals must innovate as well, more conventional endpoint detection solutions have evolved