USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  como lista todos os arq com o CommonDialog
W!LL!@M
SÃO PAULO
SP - BRASIL
Postada em 02/02/2005 17:11 hs            
Olá galera tenho uma duvida.
meio boba.
atraves do CommonDialog eu consigo abrir um arquivo.
eu queria um jeito para pegar todos eles por ex:
eu pego e seleciono todos os arquivos.
dai ele pega os nomes e joga num listbox.
alguem ae pode me ajudar com isso.
to no aguardo.
     
Jayme
SÃO PAULO
SP - BRASIL
Postada em 02/02/2005 17:30 hs            
Use o controle FileListBox.
 
Ex:   File1.Path = "C:TESTE (ele listará todos os arquivos da pasta)
 
Jayme
     
W!LL!@M
SÃO PAULO
SP - BRASIL
Postada em 02/02/2005 17:44 hs            
Jayme
mas eu não queria bem desse jeito desse jeito eu ate manjo fazer.
eu queria um que eu pudesse selecionar todos os arquivos de uma pasta ex:
o cara clicka num botão abre CommonDialog e ele pode selecionar todos os arquivos daquela pasta .
Tipo o windowsmedia player.
     
Sandro
não registrado
Postada em 02/02/2005 21:05 hs   
Olá Willian,
 
tente isso:
 
    With CommonDialog1
        .Flags = &H200
        .Filter = "Todos os Arquivos|*.*"
        .FilterIndex = 0
        .MaxFileSize = 32000
        .ShowOpen
    End With
Quando você selecionar os arquivos e retornar ao código, poderá pesquisar a propriedade FileName do CommonDialog que ele retornará todos os arquivos para você separados por espaços.
     
william
não registrado
Postada em 03/02/2005 12:09 hs   
Sandro desse jeito ate funciona.
mas o estilo dele é feio.
para vc's entederem melhor.
abra o windowsmedia player e ve o como seleciona as musicas.
com o WMP vc consegue selecionar todas as musicas.
é isso o que eu preciso fazer.
Alguem sabe a solução.
to no aguardo.
     
Sandro
não registrado
Postada em 04/02/2005 23:17 hs   
Olá William,
 
Você disse feio, me parece então que vocÊ quer que a tela fique com a aparência do Windows Explorer, certo? Bem se o problema é esse, altere a linha Flag para:
 
    .Flags = &H200 Or &H80000
 
 
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página