Usuário com melhor resposta
ShowOpen no CommonDialog sem mostrar .BAK

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,
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- Sugerido como Resposta Carlos C Citrangulo Jr terça-feira, 3 de maio de 2011 00:31
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 15:51
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 SubDesta 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- Sugerido como Resposta Carlos C Citrangulo Jr segunda-feira, 2 de maio de 2011 18:04
-
-
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- Sugerido como Resposta Carlos C Citrangulo Jr terça-feira, 3 de maio de 2011 00:31
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 15:51
-
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,