Open file For

Tested in Excel 365 (16.8730.2046) 64-bit

An easier way to use Open.

 
 
  1. Public Enum ENM_FileOpenType
  2.     FileRead
  3.     FileAppend
  4.     FileOverwrite
  5.     FileRandom
  6.     FileBinary
  7. End Enum
  9. '
  10. Function OpenTextFile(FilePathAndName As String, _
  11.     OpenType As ENM_FileOpenType, Optional TextToWrite)
  13.     Dim f
  14.     Dim strFile
  15.    
  16.     f = FreeFile
  17.     strFile = ""
  18.     Select Case OpenType
  19.         Case FileRead
  20.             Open FilePathAndName For Input As #f
  21.             ' read whole file into variable
  22.            strFile = Input(LOF(f), #f)
  23.         Case FileAppend
  24.             Open FilePathAndName For Append As #f
  25.             ' read whole file into variable
  26.            Print #f, TextToWrite
  27.         Case FileOverwrite
  28.             Open FilePathAndName For Output As #f
  29.             ' write test to file
  30.            Print #f, TextToWrite
  31.         Case FileRandom
  32.             ' change as needed
  33.            Open FilePathAndName For Random As #f Len = 1000
  34.             ' do stuff
  35.        Case FileBinary
  36.             ' change as needed
  37.            Open FilePathAndName For Binary Access Read Lock Read As #f
  38.             ' do stuff
  39.    End Select
  40.     Close f
  41.     OpenTextFile = strFile
  42. End Function
  43. '
  44. Sub main()
  45.     Dim a
  46.    
  47.     a = OpenTextFile("C:\temp\mytest.txt", FileAppend, "something")
  48.     a = OpenTextFile("C:\temp\mytest.txt", FileOverwrite, "something new")
  49.     a = OpenTextFile("C:\temp\mytest.txt", FileRead)
  50.    
  51.     Debug.Print a
  52. End Sub

Add a Comment

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.