rick-s
|
SAO BERNARDO DO CAMPO
SP - BRASIL
|
|
Postada em 09/03/2007 09:41 hs
fiz um programa com um botão executar tratamento e quando clicado ele deveria me dar a opção de procurar o arquivo , normalmente um txt ,só que não esta dando certo ,alguém saberia me dizer como posso fazer para buscar o arquivo quer ele esteja no meus documentos ,no C da máquina ,ou em qualquer outro lugar ?
ricks
|
|
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 09/03/2007 11:49 hs
Coloque: 1 DriveListBox 1 DirListBox 1 FileListBox O usuário escolhe o arquivo que quiser, e pra voce identificar o arquivo, voce usa a propriedade ListIndex do File ListBox; Exemplo: Private Sub Drive1_Change()
On Error GoTo ERRO
Dir1.Path = Drive1.Drive
Exit Sub
ERRO:
MsgBox("Erro ao acessar o drive !!!")
End Sub Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub Private Sub File1_Click()
MEUARQUIVO = Dir1.Path & "" & File1
End Sub No File1, voce pode definir a prorpíedade Pattern, com as extensões do arquivo que deseja ou com "*.* vai te trazer todos os arquivos. vlu// |
|
|
|
|
|
Postada em 09/03/2007 11:51 hs
MEUARQUIVO = Dir1.Path & "|" & File1 Nesta linha tem uma barra invertida entre as aspas, como o forum engole, foi vazia, substitua como acima, coloque barra invertida no lugar do pipe. vlu//
|
|
|
|
rick-s
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/03/2007 12:02 hs
Bom dia ,como não programo a muito tempo e não sei como funciona drivelistbox,dirlistbox e filelistbox ,estou meio confuso. Porque na verdade eu tenho um botão no meu exe. e como eu faço para que o meu botão funcione juntamente com os comandos acima.? |
|
|
|
|
|
Postada em 10/03/2007 16:33 hs
Bem, ai com botão, voce já deve ter definido via algum TextBox, ou variável o nome do arquivo, ai verifica se ele existe com Dir. If Dir$("C:PASTANOMEDOARQUIVO") <> "" Then ' o arquivo existe Else ' o arquivo não existe End If vlu// |
|
|
|
rick-s
|
SAO BERNARDO DO CAMPO
SP - BRASIL
|
|
Postada em 12/03/2007 10:21 hs
vou tentar ,a propósito ,te add no msn. ricks10ster@hotmail.com
ricks
|
|
|
|
