ABRIR ARQUIVO COM COMMONDIALOG

GABRIEL.LOGAN 02/03/2005 19:13:47
#70823
E ai galerinha do mal, alguem sabe como eu abro um arquivo com o CommonDialog em um 
RichTextBox1.Text
ou um 
Text1.text
. Duvida besta mas eu não sei... OBRIGADO.
GABRIEL.LOGAN 02/03/2005 19:40:41
#70830
Sei que isso é fácil, ajuda ai gente...
FELIPEA 02/03/2005 19:45:10
#70831 Resposta escolhida
Pra abrir um arquivo e exibi-lo no rtf é:

RichTextBox1.LoadFile "Diretório e nome do arquivo aqui"
FELIPEA 02/03/2005 19:50:25
#70832
No common dialog é assim:

Private Sub Form_Load()
Dim Filter As String

Filter = "RTF|*.rtf "

CommonDialog1.Filter = Filter
CommonDialog1.ShowOpen

RichTextBox1.LoadFile CommonDialog1.FileName
End Sub


Ve se dá
GABRIEL.LOGAN 02/03/2005 19:55:15
#70833
Cara, eu viajei, eu estava errando no CommonDialog , erro besta, o erro era que eu estava tentando pegar o nome do arquivo assim:

Dim local as string
local = Drive1.Drive & Dir1.path & "\" & File1.FileName

RichTextBox1.LoadFile (local)


Com isso ocoria erro se eu fosse abrir um arquivo no " c:\ " ai depois coloquei o CommonDialog e não testei isso:

Common1.ShowOpen
openfile.Text1.Text = Common1.FileName
RichTextBox1.LoadFile (openfile.Text1.Text)


Depois que vc falou eu testei e vi que o erro é pq se eu tentar abrir com o 

Dim local as string
local = Drive1.Drive & Dir1.path & "\" & File1.FileName

RichTextBox1.LoadFile (local)
ai o valor do local será no c:\ será " c:\\\"

Viajei ... Mas valew por lembrar!
Tópico encerrado , respostas não são mais permitidas
Voltar