Commondialog

[MPrestonf12]

How can you use the commondialog control to open a text file into a textbox in your app?


------------------

[Serge]

Try this:

Dim strPath As String
Dim iFFN As Integer
Dim strBuffer As String

On Error Resume Next

With CommonDialog1
   .ShowOpen
   If Err.Number = cdlCancel Then Exit Sub
   strPath = .FileName  
End With

iFFN = FreeFile
Open strPath For Input As iFFN
strBuffer = Space(LOF(iFFN))
strBuffer = Input(LOF(iFFN), #iFFN)
Close #iFFN

Text1.Text = strBuffer

Regards,

------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819