COMMONDIALOG

MAFACILITY 16/10/2009 14:47:18
#325488
Alguns meses não mexo em vb6, acho que estou com ferrugem, rsrsrs. é o seguinte quero jogar em um textbox(txtfsite.text) só o nome do arquivo e sua extensão que vai ser jpg(não quero o caminho todo do arquivo) gerado em um commondialog. aqui vai o código abaixo, QUEM PUDER AJUDAR AGRADEÇO

Private Sub optf1_Click()
Dim nomearq$, filter
filter = [Ô]Arquivos JPG (*.jpg)|*.jpg|Todos os arqs.|*.*[Ô]
dlgArq.filter = filter
dlgArq.DefaultExt = [Ô]jpg[Ô]
dlgArq.ShowOpen

nomearq$ = dlgArq.FileName
txtfsite.Text = nomearq$ [ô] ESSA CAIXA DE TEXTO é QUE FICARÁ O NOME DO ARQUIVO

If nomearq <> [Ô][Ô] Then
txtf1.Text = txtfotos.Text
txtc1.Text = nomearq$

[ô]optf1.Caption = [Ô]Ok[Ô]
txtfotos.Text = [Ô][Ô]
txtfotos.SetFocus
End If
End Sub
MARCELO.TREZE 16/10/2009 14:52:20
#325489 Resposta escolhida
opa é fácil veja

Private Sub optf1_Click()
Dim nomearq$, filter
filter = [Ô]Arquivos JPG (*.jpg)|*.jpg|Todos os arqs.|*.*[Ô]
    dlgArq.filter = filter
    dlgArq.DefaultExt = [Ô]jpg[Ô]
dlgArq.ShowOpen

nomearq$ = dlgArq.FileName
Dim Arquivo() As String
Arquivo = Split(nomearq$,[Ô]\[Ô])
txtfsite.Text = Arquivo(Ubound(Arquivo))

If nomearq <> [Ô][Ô] Then
    txtf1.Text = txtfotos.Text
    txtc1.Text = nomearq$

    [ô]optf1.Caption = [Ô]Ok[Ô]
    txtfotos.Text = [Ô][Ô]
    txtfotos.SetFocus
End If
End Sub


veja se funciona
MAFACILITY 16/10/2009 14:58:29
#325490
Marcelo, obrigado, mas consegui assim, to postando para o pessoal dar uma olhada. mas vou deixar por enquanto este tópico aberto por ainda vou fazer uma concatenação com este textbox e em caso de dúvida postarei



Private Sub optf1_Click()
Dim nomearq$, filter
filter = [Ô]Arquivos JPG (*.jpg)|*.jpg|Todos os arqs.|*.*[Ô]
dlgArq.filter = filter
dlgArq.DefaultExt = [Ô]jpg[Ô]
dlgArq.ShowOpen
txtfsite.Text = dlgArq.FileTitle [ô] <=== COLOQUEI ESSA LINHA NO CÓDIGO
nomearq$ = dlgArq.FileName


If nomearq <> [Ô][Ô] Then
txtf1.Text = txtfotos.Text
txtc1.Text = nomearq$

[ô]optf1.Caption = [Ô]Ok[Ô]
txtfotos.Text = [Ô][Ô]
txtfotos.SetFocus
End If
End Sub
MARCELO.TREZE 16/10/2009 15:00:45
#325491
Boa melhor que o POG que eu fiz.
Tópico encerrado , respostas não são mais permitidas
Voltar