Exibo em uma listbox, um arquivo txt de nome
desejo que quando a não houver nome, ou seja, quando a linha for em branco
ele nao escreva linha em branco
estou lendo o arquivo desta forma e não da certo
ListBox1.Items.Clear()
Dim objtextfile, objFSO As Object
Dim sReadline As Object
Dim ForReading, ForWriting As Integer
ForReading = 1
ForWriting = 2
'leitura do list1
objFSO = CreateObject("Scripting.FileSystemObject")
objtextfile = objFSO.OpenTextFile(pastafinal & "lista.txt", ForReading)
'vou percorrer todos os itens do list1
While Not objtextfile.AtEndofStream = True
sReadline = objtextfile.ReadLine
ListBox1.Items.Add(sReadline)
End While
ListBox1.Sorted = SortOrder.Descending
objtextfile.close()
![The Drum Drum Show escrita por HeyBae00 [Livre]](http://static.fanfiction.com.br/userfiles/D/3/D/5/capa_850994_1713813037.jpg)
