A Set Number Of Lines In Text File

I need to find a way to add a file to the top of a text file that is going to be a list of files recently used documents. Or a way to read the file from the bottom to the top.

[This message has been edited by Eric M (edited 01-28-2000).]

Hi Eric M.

I believe that this code does what you are looking for.

Code:

---

Option Explicit

Private Sub Command1_Click()
    Dim stFiles() As String
    Dim iCounter As Integer
   
    'Read the current file into an array
    Open "C:\YourTextFile.txt" For Input As #1
   
    Do Until EOF(1)
        ReDim Preserve stFiles(iCounter)
        Input #1, stFiles(iCounter)
        iCounter = iCounter + 1
    Loop
   
    Close #1
   
    'Put the new file name at the top of the text file
    Open "C:\YourTextFile.txt" For Output As #1
   
    Write #1, "New File Name"
    For iCounter = 0 To UBound(stFiles)
        Write #1, stFiles(iCounter)
    Next iCounter
   
    Close #1
End Sub

---

All the best.

------------------
OneSource

Quote:

---

The truth may be out there, but it's in here too!

---

.


[This message has been edited by OneSource (edited 01-29-2000).]

You could use the registry instead of a text file to save a recent file list.