How could i convert the following Sequential File coding to FSO File Coding ?

[NimishK]

Hello

If anyone could just help me to convert the following Sequential File coding to FSO coding.

Will the same logic apply as RipTutorial Link

If your Reply is "YES" for below coding which could be quite equivalent to above link code then will work on it and move ahead.
ElseIf your Reply is "NO" or Partly agreeing then will appreciate your help with FSO coding

What i need is to overwrite the txtFilename2 with details of txtFilename and some added new data but with FSO method

Private Sub Sequential_Result()

Dim txtfilename As String, txtfilename2 As String
Dim strDataTxtFile As String, lineCount As Integer

txtfilename = "C:\NimishK\1-Trial.txt"
txtfilename2 = "C:\NimishK\1A-Trial.txt"

Open txtfilename For Input As #1
  Open txtfilename2 For Output As #2
      While Not EOF(1)
        Line Input #1, strDataTxtFile
        lineCount = lineCount + 1
         Print #2, strDataTxtFile 
      Wend
         Print #2, vbCrLf
         Print #2, txtBox4.Text
 Close #2
Close #1
End Sub

Thanks
NimishK

 

[NimishK]

Marc L

question : why using FSO as VBA has already all the necessary or I missed something ?‼

Although it will not generate any errors nor display them unless and until
For eg if you would like to rename the File name with Name Command as this demands the closure of the file.

MVPs would be better Gurus to illuminate some light on your question and on my reply to your question

NimishK

 

[Marc L]

​

According to the code sample as VBA can do exactly the same without any error neither displaying anything so I do not see any reason to take the FSO path …​

 

[NimishK]

According to the code sample as VBA can do exactly the same without any error neither displaying anything so I do not see any reason to take the FSO path …

You are right

ie Why I wanted to have the coding as per FSO from Sequential method.
I dont know whether FSO method has more outcomes then the Sequential method. if yes then wouldn't it be better to upgrade to FSO mehtod.

NimishK
636