CAIXA ABRIR ARQUIVO

USUARIO.EXCLUIDOS 29/11/2006 21:41:28
#187072
Para abrir a caixa ABRIR ARQUIVO estou usando esse codigo:

OpenFileDialog1.Title = "Escolha um arquivo para abrir"
OpenFileDialog1.Filter = "Text File (*.txt) | *.txt"
OpenFileDialog1.AddExtension = True
OpenFileDialog1.InitialDirectory = "C:\desktop\"
OpenFileDialog1.ShowDialog()

If OpenFileDialog1.FileName <> "" Then
Dim FStream As New System.IO.FileStream(OpenFileDialog1.FileName, IO.FileMode.Open)
Dim SReader As New System.IO.StreamReader(FStream)
RichTextBox1.Text = SReader.ReadToEnd()
SReader.Close()
FStream.Close()
SReader = Nothing
FStream = Nothing
End If


se o usuario seleciona e clica em OK funciona tranquilo
mas na hr q o usuario clica em CANCEL da erro, qual a solucao/codigo correto?

vlw
ESLEYSANCHES 29/11/2006 22:56:56
#187079
Resposta escolhida
Amigo, apaguei esse post pois errei.

Faça assim, o OpenFileDialog1.FileName por padrão vem escrito o nome do componente ou seja "OpenFileDialog1", para seu código acima funcionar, basta selecionar o OpenFileDialog1 ir em suas propriedades procurar FileName e deixar vazio, ou no Load do form digite assim:

OpenFileDialog1.Filename = ("")

Espero que te ajude !!

Abraços !!
USUARIO.EXCLUIDOS 29/11/2006 23:05:06
#187081
aqui nao funcionou
se clico em cancelar sem selecionar nada, ele da erro na linha
"Dim FStream As New System.IO.FileStream(OpenFileDialog1.FileName, IO.FileMode.Open)"

se seleciono algo e clico em cancel, ele abre o arquivo =S
ESLEYSANCHES 29/11/2006 23:08:10
#187082
Olhe o post acima de novo amigão, eu alterei ele para isso:

Amigo, apaguei esse post pois errei.

Faça assim, o OpenFileDialog1.FileName por padrão vem escrito o nome do componente ou seja "OpenFileDialog1", para seu código acima funcionar, basta selecionar o OpenFileDialog1 ir em suas propriedades procurar FileName e deixar vazio, ou no Load do form digite assim:

OpenFileDialog1.Filename = ("")

Espero que te ajude !!

Abraços !!
USUARIO.EXCLUIDOS 29/11/2006 23:12:38
#187083
opa
eh q eu deixei na pagina e nao vi sua atualizacao
foi mal

fiz aqui o bago e funcionou
vlw msm

obrigado
ESLEYSANCHES 29/11/2006 23:13:49
#187085
Amigo, refiz seu projeto com oque eu te passei, de uma olhadinha no anexo !!

Abraços !!
ESLEYSANCHES 29/11/2006 23:15:14
#187086
Opa, belezinha amigo, só não esqueca de encerrar o tópico e me pontuar :-D!!

Grande Abraço
Tópico encerrado , respostas não são mais permitidas