ShowOpen no CommonDialog sem mostrar .BAK

Question

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,

Answer 1

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

Answer 2

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.

 

Answer 3

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

Answer 4

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,