A Set Number Of Lines In Text File

[Eric M]

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).]

[OneSource]

Hi Eric M.

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

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

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

.


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

[cas21]

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