Olá pessoal,

Eu sei que o forum eh pra vba ou excel, e eu estou tentando desenvolver um CRUD em vb6 que eh bem parecido com vba e estou com uma probleminha. 

Se caso eu nao poder prosseguir com este post por se tratar de vb6 , eu apago sem problema.

Meu problema eh o seguinte: 

Eu consegui fazer todas as funções de adicionar ler e editar . Tambem consegui fazer a função de deletar porém ao deletar ele deixa um GAP em Branco o que me ocorre um erro, pois esse GAP Branco faz com o que o listview nao carregue os dados do arquivo de texto. 

Alguem consegue me ajudar a deletar esse GAP Branco no arquivo de texto?

Public Sub Pathway(way As Variant) 'SET DATABASE FOLDER
     way = App.Path & "\data"
End Sub

Private Sub DeleteData() ' DELETE DATA

Dim PathName As String, LineToDelete As String
Dim f As Integer, F2 As Integer, InLine As String, FName2 As String
Dim Drive As String, Path As String, filename As String, Ext As String
Dim LogFileName As String

    Call Pathway(way) ''''SET FOLDER WAY
    LogFileName = way & "\users.txt"   'Set file name
    
PathName = LogFileName

  FName2 = Drive & Path & Format(Time, "hhnnss") & ".TMP"
  f = FreeFile
  Open PathName For Input As #f
  F2 = FreeFile
  Open FName2 For Output As #F2
  Do While Not EOF(f)
    Line Input #f, InLine
    LineToDelete = Text5.Text
        If InStr(1, InLine, LineToDelete) = 0 Then
      Print #F2, InLine
    End If
  Loop
  Close #f
  Close #F2

  Kill PathName
  Name FName2 As PathName

    Call PopulateListview
    Call Add_Counter
End Sub

Segue meu crud em anexo.

Obrigado desde já 🙂