Dim Path As String, FileName As String, Row As String, i1 As Integer, i2 As Integer
Path = "c:\"


FileName = Dir(Path + "*.txt")
While FileName <> ""
  Open Path + FileName For Input As #1
  Open Path + Left$(FileName, Len(FileName) - 4) + "_out.txt" For Output As #2
  Do Until EOF(1)
    Input #1, Row
    i1 = InStr(1, Row, "|")
    If i1 > 0 Then
      i2 = InStr(i1 + 1, Row, "/")
      If i2 > 0 Then Row = Left$(Row, i1) + Mid$(Row, i2 + 1)
    End If
    Print #2, Row
  Loop
  Close #1
  Close #2
  FileName = Dir
Wend

Dim Path As String, FileName As String, Row As String, i1 As Integer, i2 As Integer
Path = "c:\"


FileName = Dir(Path + "*.txt")
While FileName <> ""
  Open Path + FileName For Input As #1
  Open Path + Left$(FileName, Len(FileName) - 4) + "_out.txt" For Output As #2
  Do Until EOF(1)
    Input #1, Row
    i2 = InStr(1, Row, "/")
    While i2 > 0
      i1 = InStrRev(Row, "|", i2)
      Row = Left$(Row, i1) + Mid$(Row, i2 + 1)
      i2 = InStr(i1, Row, "/")
    Wend
    Print #2, Row
  Loop
  Close #1
  Close #2
  FileName = Dir
Wend