ajuda em um text

[Visitante]

Este codigo que tenho ele deixa uma lista de telefone neste formato que tenho comentado como exemplo

ele faz o seguinte ele pega uma lista que tenho e faz ficar neste formato porem tem um text que quando seleciono a aparece a lista sem ser convertida, ai ela vai pro label queria poder colocar um nome nesta lista pois ela esta colocando hora e data, tem como fazer isto algum pode me ajudar.

Dim pathLista As String
' 0|01|CLIENTE|XX41110101|C|1||0|0| Formato da Lista
Dim i As Variant
Command1.Enabled = False

linha = ""
DT = Now
DT = Replace(DT, "/", "")
DT = Replace(DT, ":", "")
DT = Replace(DT, " ", "_")

    ' fs.CreateTextFile "c:\teste.txt"

FileNumber = FreeFile
arq = File1.Path & "\" & "lista_" & DT & ".txt"

GravaLog "Gerou lista [" & arq & "]", ARQLOG




' Open "c:\lista.txt" For Input As #1
'Debug.Print Text1.Text
Open Text1.Text For Input As #1

Editado Abril 10, 2011 por kuroi
Adicionar tag CODE

[kuroi]

não entendi nd, é no nome do arquivo??

a data esta na variavel DT. troque ela pelo nome q você quer.

[Visitante]

então kuroi , deixa eu tentar te explicar e desculpe ter postado e vocês não ter entendido

e assim vou na caixa localiza meu arquivo que tem o nome de

Lista.txt seleciono ela num text, vou no botao converter , ele pega e converte com o seguinte formato

lista_10042011_192410 (dia mes ano hora minuto e seguinta) isto já e fixo , mais eu queria quando fosse no text eu pudesse colocar o nome do arquivo ex

lista_teste.txt podia ate vir com o formato de data tmb mais que eu pudesse colocar e ele gerasse com o nome que fiz vou colocaar o codigo pra ver se você entende

segue codigo

Private Sub ComboBox1_Change()

End Sub



Private Sub Command1_Click()
Dim fs As FileSystemObject
Dim vetor As Variant
Dim linha As String
Dim File As File
Dim arq As String
Dim pathLista As String
' 0|01|nome cliente|DDD+telefone|C|1||0|0| Formato da Lista
Dim i As Variant
Command1.Enabled = False

linha = ""
DT = Now
DT = Replace(DT, "/", "")
DT = Replace(DT, ":", "")
DT = Replace(DT, " ", "_")

    ' fs.CreateTextFile "c:\teste.txt"

FileNumber = FreeFile
arq = File1.Path & "\" & "lista_" & DT & ".txt"

GravaLog "Gerou lista [" & arq & "]", ARQLOG




' Open "c:\lista.txt" For Input As #1
'Debug.Print Text1.Text
Open Text1.Text For Input As #1


While Not EOF(1)
i = i + 1
    Line Input #1, linha
    If linha <> "" Then
        Stng = Stng & "|" & linha
        Label2.Caption = i
                
    End If
   DoEvents
   

Wend
Close #FileNumber




 vetor = Split(Stng, "|")

 label1.Caption = 0
  tamanho = UBound(vetor)
  

Open arq For Append As #FileNumber

For i = 1 To tamanho

    Print #FileNumber, "0|01|PRODUTO BCC|" & vetor(i) & "|C|" & ULTIMO & "||0|0|"
    Label2.Caption = i
    ULTIMO = ULTIMO + 1
    DoEvents
  Next
Close #FileNumber

Call WriteIni("REGISTRO", "ULTIMO", ULTIMO, ARQINI)


Command1.Enabled = True



End Sub

Private Sub Command2_Click(Index As Integer)
Dim sair As String

sair = MsgBox("Deseja realmente sair?", vbYesNo + vbExclamation, "Atenção")

If sair = vbYes Then
Unload Me
End
Else
Cancel = True
End If
End Sub


'Private Sub Command3_Click()
'Dim pausar As String
'pausar = MsgBox("Deseja Continuar?", vbSim + vbExclamation, "Atenção")
Private Sub Command3_Click()
Label2.Caption = ""
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
On Error GoTo erro:
Dir1.Path = "c:\"
Dir1.Path = Drive1.Drive
Exit Sub
erro:
MsgBox "Insira um disco na unidade", vbCritical, "Aviso"

End Sub

Private Sub File1_DblClick()
Text1.Text = File1.Path & "\" & File1.filename
End Sub

Private Sub Form_Load()

ARQINI = App.Path & "\" & App.EXEName & ".ini"
ARQLOG = App.Path & "\" & App.EXEName & ".log"
GravaLog "##### INICIA GERALISTA ######", ARQLOG
ULTIMO = Trim(GetValue("REGISTRO", "ULTIMO", "XXXX", ARQINI))

If ULTIMO = "XXXX" Then
    MsgBox "Arquivo ini não encontrado ou falha na leitura", vbCritical
    Unload Me
End If

GravaLog "Leu arquivo ini com sucesso", ARQLOG

If App.PrevInstance Then End

End Sub



Private Sub Form_Unload(Cancel As Integer)

GravaLog "##### FINALIZA GERALISTA ######", ARQLOG
End Sub


Private Sub Label2_Click()
Label2.Caption = ""
End Sub

Editado Abril 11, 2011 por kuroi
Adicionar tag CODE

[Danleonhart]

Cara, acho mais fácil de se entender se você postar apenas a parte do código que deseja alterar...ou onde apresenta erro (se for o caso...)

Postando tudo assim, fica dificil (pelo menos pra mim), poder te ajuda... ;)

Posta apenas o Botão, ou TextBox, ou Label...seja o que for, que assim facilita compartilharmos nossos conhecimentos :D

Agora deduzindo pela sua pergunta, acho que com o componente "Common Dialog" dá para fazer o que deseja...