PRECISO DE AJUDA!!

GUGUSINBANSAI 14/08/2011 14:54:22
#381705
Eu tenho o seguinte código em vb6:

sFilename = Dir(App.Path & [Ô]\Clientes\[Ô])
Do While sFilename > [Ô][Ô]
Nomes.AddItem sFilename
sFilename = Dir()
Loop

Só que tem um problema esse código me da o nome do arquivo + o tipo do arquivo (Ex: .txt) eu queria que ele desse somente o nome sem o .txt.
Também queria que ele atualizasse toda hora sem precisar recarregar o form.
EDERMIR 14/08/2011 20:23:44
#381717 Resposta escolhida
Coloque o comando dentro de um TIMER.

sFilename = Dir(App.Path & [Ô]\Clientes\[Ô])
Do While sFilename > [Ô][Ô]
    Wsplit = split(sFilename,[Ô].[Ô])
    Nomes.AddItem Wsplit(0)
    sFilename = Dir()
Loop
RODRIGOFERRO 14/08/2011 20:28:08
#381718
Amigao so precisar mudar esse titulo, senao fica mais complicado alguem entrar e ajudar !
coloque um titulo que tem a ver com a sua duvida !

Abraços
MARCELO.TREZE 15/08/2011 07:52:08
#381728
ou

sFilename = Dir(App.Path & [Ô]\Clientes\[Ô])
Do While sFilename > [Ô][Ô]
Nomes.AddItem Mid(sFilename,1,Len(sFilename) - 4)
sFilename = Dir()
Loop
GUGUSINBANSAI 15/08/2011 17:44:58
#381769
Obrigado gente. Consegui com o código do EDERMIR. Muito obrigado mesmo .
Tópico encerrado , respostas não são mais permitidas
Voltar