Convert CSV files to TXT using VBA

[Sharda]

I need to convert these CSV files to TXT, I succeeded with below code.
However need help with two things:
1) This code should be applied to all CVS files in given path. Because It gave result on only given number.
2) I want on TXT top line as: LEDES98BI V2[] instead of LEDES98BI V2[]|||||||||||||||||||||||||||||||||||||||||||||||||||

Sub csv2mat()
Dim Filename As String
Dim Filenamenew As String
Dim str As String
'Change the path to the Files and and create a txt file
Filename = "C:\Users\Rimpi Pihuja\Desktop\New folder (2)\New folder\New folder\1040448.csv"
Filenamenew = "C:\Users\Rimpi Pihuja\Desktop\New folder (2)\New folder\New folder\1040448.txt"
Open Filenamenew For Output As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=2"]#2[/URL] 
Open Filename For Input As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] 
Do While Not EOF(1)
    Line Input [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] , str
    str = Replace(str, ",", "|")
    Print [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=2"]#2[/URL] , str
Loop
Close [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] 
Close [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=2"]#2[/URL] 
End Sub

 

[Stiuart_W]

If the code is running with no error but no conversion then I suspect it is reaching Line Do While MyFile <> "" and there is no filename in "MyFile" therefore the code stops.

Have you tried putting a break point in your code on that line and hovering your mouse over the MyFile variable to see what it's value is?

 

[Sharda]

When I hovered mouse over "FilePath =" it reflects as "FilePath = Empty". However there are files in given path. I fail to understand what I'm missing.

 

[Stiuart_W]

1) File path is incorrect. I note your path is excessively convoluted. You only need 1 tiny mistake. Try copying the path from the code and then searching in file explorer - does it open that path?

or

2) There are no *.csv files in that folder