none
ShowOpen no CommonDialog sem mostrar .BAK RRS feed

  • Pergunta

  • Ola,

    Tem como abrir o CommonDialog (ShowOpen) para pegar um arquivo sem mostrar os arquivos com extensao .BAK?

    Isto porque o Autocad gera um BAK para cada desenho alterado criando uma confusao danada para o usuario. No meu codigo eu verifico se o usuario escolheu um arquivo com extensao BAK e solicito uma nova escolha, mas mesmo assim os usuarios reclamam.

    Valeu,

    segunda-feira, 2 de maio de 2011 13:03

Respostas

  • Nelson boa noite,

    Segue a solução utilizando o commondialog

    Você pode restringir o tipo de arquivos a serem selecionados usando o filtro de comando. No formato abaixo nenhum arquivo que não esteja declarado será exibido. Coloquei alguns exemplos, é só você alterar para seus formatos de arquivos.

    ‘A seleção de arquivos do AutoCAD
    CommonDialog1.Filter = "Arquivos drawing (*.dwg) *.dwg"

    ‘A seleção de pastas de trabalho do Microsoft Excel
    CommonDialog1.Filter = "*.xls de pastas de trabalho do Microsoft Excel (*.xls)"

    ‘A seleção de documentos do Microsoft Word (incluindo arquivos RTF)
    CommonDialog1.Filter = "Documentos do Microsoft Word (doc; *.rtf); *.rtf"

    ‘A seleção de arquivos de imagem
    CommonDialog1.Filter = "imagem Files(*.BMP; *.JPG; *.GIF) *.BMP; *.JPG; *.GIF"

    ‘A seleção de suplementos do Excel
    CommonDialog1.Filter = "*.xla de suplementos do Microsoft Excel (*.xla; *.xll); *.xll"

    ‘Selecionando arquivos ASCII
    CommonDialog1.Filter = "ASCII arquivos (*.txt; *.log) *.txt; *.log"

    Espero ter ajudado, se sim, por favor qualificar como resposta.

    Abraços,


    Carlos Carvalho Citrangulo Junior
    Microsoft Certified Professional
    Microsoft Certified Desktop Support Technician
    MCTS Microsoft Windows Vista Configuration
    MCITP Enterprise Support Technician
    Profissional 5 Estrelas Microsoft
    http://carloscitrangulo.wordpress.com
    terça-feira, 3 de maio de 2011 00:31

Todas as Respostas

  • Olá Nelson boa tarde!

    Crie um botão e neste botão adicione o seguinte código:

    Sub inserir_Click()

    Dim Arquivo As String
    Arquivo = Application.GetOpenFilename("AutoCAD drawing (*.dwg), *.dwg")

    End Sub

    Desta forma será exibido a você somente arquivos .dwg do AutoCAD.

    Espero ter ajudado, se sim, por favor qualificar.

    Abraços,

     


    Carlos Carvalho Citrangulo Junior
    Microsoft Certified Professional
    Microsoft Certified Desktop Support Technician
    MCTS Microsoft Windows Vista Configuration
    MCITP Enterprise Support Technician
    Profissional 5 Estrelas Microsoft
    http://carloscitrangulo.wordpress.com
    segunda-feira, 2 de maio de 2011 18:04
  • Ola Carlos,

    Na aplicacao nao existe GetOpenFilename e este mesmo projeto serve pra word, excel, pps etc

    Portanto tenho que usar o commondialog e colocar todos as extensoes o que nao é pratico nem viavel.

    Mesmo assim agradeco a ajuda.

     

    segunda-feira, 2 de maio de 2011 19:56
  • Nelson boa noite,

    Segue a solução utilizando o commondialog

    Você pode restringir o tipo de arquivos a serem selecionados usando o filtro de comando. No formato abaixo nenhum arquivo que não esteja declarado será exibido. Coloquei alguns exemplos, é só você alterar para seus formatos de arquivos.

    ‘A seleção de arquivos do AutoCAD
    CommonDialog1.Filter = "Arquivos drawing (*.dwg) *.dwg"

    ‘A seleção de pastas de trabalho do Microsoft Excel
    CommonDialog1.Filter = "*.xls de pastas de trabalho do Microsoft Excel (*.xls)"

    ‘A seleção de documentos do Microsoft Word (incluindo arquivos RTF)
    CommonDialog1.Filter = "Documentos do Microsoft Word (doc; *.rtf); *.rtf"

    ‘A seleção de arquivos de imagem
    CommonDialog1.Filter = "imagem Files(*.BMP; *.JPG; *.GIF) *.BMP; *.JPG; *.GIF"

    ‘A seleção de suplementos do Excel
    CommonDialog1.Filter = "*.xla de suplementos do Microsoft Excel (*.xla; *.xll); *.xll"

    ‘Selecionando arquivos ASCII
    CommonDialog1.Filter = "ASCII arquivos (*.txt; *.log) *.txt; *.log"

    Espero ter ajudado, se sim, por favor qualificar como resposta.

    Abraços,


    Carlos Carvalho Citrangulo Junior
    Microsoft Certified Professional
    Microsoft Certified Desktop Support Technician
    MCTS Microsoft Windows Vista Configuration
    MCITP Enterprise Support Technician
    Profissional 5 Estrelas Microsoft
    http://carloscitrangulo.wordpress.com
    terça-feira, 3 de maio de 2011 00:31
  • Carlos,

    Atualmente eu estou usando algo parecido com isso, porem com muito mais extensões:

    CommonDialog1.Filter = "imagem Files(*.BMP; *.JPG; *.GIF) *.BMP; *.JPG; *.GIF"
     

    Como o viewer que tenho aqui serve para 240 formatos diferentes isso fica inviavel. Eu queria um modo de fazer assim:

     Todos os formatos exceto os BAK(porque o viewer mostra ele tambem)

    Valeu,

     


    terça-feira, 3 de maio de 2011 11:09