• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

anonimou

Common dialog -> Abrir multiplos ficheiros

3 mensagens neste tópico

Olá a todos,

Tou com um problema na seleccão de ficheiros...

Criei uma Common dialog que dá me opção de escolher 3 tipos de ficheiros.

Até aqui tudo bem...o meu problema é que quero escrever um código para  cada tipo de ficheiro aberto, (conforme a sua extensao) de forma diferente.

Exemplo do código que tenho ao momento:

Private Sub Command1_Click()

On Error GoTo Handle_Error

    dlgopenfile.CancelError = True

    dlgopenfile.Filter = "Pts File (*.pts)|*.pts|Ptx File (*.ptx)|*.ptx|Xyz File (*.xyz)|*.xyz"

   

    dlgopenfile.ShowOpen

    Label1 = dlgopenfile.FileTitle

   

    ' Parte  onde tenho problemas para tentar tratar cada ficheiro pela sua extensão

If dlgopenfile.FileTitle = "*.pts" Then Print "Teste pts"

  If dlgopenfile.FileTitle = "*.ptx" Then Print "Teste ptx"

  If dlgopenfile.FileTitle = "*.xyz" Then Print "Teste xyz" 

Handle_Error:

If Err.Number = cdlCancel Then

        'pressed cancel button.

        Exit Sub

      End If

End Sub

Alguem me pode ajudar?

Cumprimentos,

Délio Pontes

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá

Não sei o que pretendes, mas pelo q vejo estás tentando fazer uma comparação que em VB não funciona assim, seria mais:

        If right(dlgopenfile.FileTitle,4) = ".pts" Then Print "Teste.pts"

porque o '*' não funciona na comparação de string.

Já agora tenta usar os if encadeados com elseif, ou usa o select case

     

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Obrigado Freinando,

É isto mesmo que preciso.

Vou tambem seguir as tuas recomendações.

Cumprimentos,

Délio Pontes

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora