DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Open file VB6

•

Join Date: Aug 2009

Posts: 30

Reputation: drabsch is an unknown quantity at this point

Solved Threads: 0

drabsch

Offline

Light Poster

Open file VB6

14 Days Ago

I am using a MDI Form and several documents can be opened using
"CommonDialog1.ShowOpen"

If i open a file then go back to open another file but click cancel or the "x" then it will open the last file.

so i need to know how to clear the "#1"

my code it:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
FileName = ""
Data = ""
MDIForm1.CommonDialog1.Filter = "All Files(*.*)|*.*|Text Files(*.txt)|*.txt|Web Files(*.html;*.htm;*.shtml;*.shtm;*.xhtml;*.php;*.php3;*.phtml;*.css;*.js;)|*.html;*.htm;*.shtml;*.shtm;*.xhtml;*.php;*.php3;*.phtml;*.css;*.js;|Batch Files(*.bat;*.cmd;*.nt;)|*.bat;*.cmd;*.nt;|VB Files(*.vb;*.vbs;*.frm;*.vbp;)|*.vb;*.vbs;*.frm;*.vbp;"
On Error GoTo error
MDIForm1.CommonDialog1.ShowOpen
Me.Caption = MDIForm1.CommonDialog1.FileTitle
FileName = MDIForm1.CommonDialog1.FileName
Open FileName For Input As #1
 
Do Until EOF(1)
 
        Input #1, Data
        Me.Text1.Text = Me.Text1.Text + Data + vbCrLf
    EOF (1)
    Loop
    Close #1
    FileName = ""
    Data = ""
GoTo endload
FileName = ""
Data = ""
MDIForm1.CommonDialog1.Filter = "All Files(*.*)|*.*|Text Files(*.txt)|*.txt|Web Files(*.html;*.htm;*.shtml;*.shtm;*.xhtml;*.php;*.php3;*.phtml;*.css;*.js;)|*.html;*.htm;*.shtml;*.shtm;*.xhtml;*.php;*.php3;*.phtml;*.css;*.js;|Batch Files(*.bat;*.cmd;*.nt;)|*.bat;*.cmd;*.nt;|VB Files(*.vb;*.vbs;*.frm;*.vbp;)|*.vb;*.vbs;*.frm;*.vbp;"
On Error GoTo error
MDIForm1.CommonDialog1.ShowOpen
Me.Caption = MDIForm1.CommonDialog1.FileTitle
FileName = MDIForm1.CommonDialog1.FileName
Open FileName For Input As #1
    
Do Until EOF(1)

        Input #1, Data
        Me.Text1.Text = Me.Text1.Text + Data + vbCrLf
    EOF (1)
    Loop
    Close #1
    FileName = ""
    Data = ""
GoTo endload

Any ideas

I have cleared the "FileName" and "Data" but it still does it so i need to find a way to stop it.

Last edited by drabsch; 14 Days Ago at 1:25 am.

•

Join Date: May 2009

Posts: 372

Reputation: Jupiter 2 is an unknown quantity at this point

Solved Threads: 26

Jupiter 2

Offline

Posting Whiz

13 Days Ago

#1 refers to the file and the Close event will close the file.

If ALL my answers are wrong, only then will I read the question

•

Join Date: Mar 2009

Posts: 800

Reputation: vb5prgrmr will become famous soon enough

Solved Threads: 146

vb5prgrmr

Offline

Practically a Posting Shark

13 Days Ago

two different ways are shown in the following...

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Option Explicit
 
Private Sub Command1_Click()
OpenShowFile
End Sub
 
Private Sub OpenShowFile()
 
On Error GoTo OpenShowFileError
 
Dim FName As String, FNumb As Integer
Dim FileContents As String
 
CD.CancelError = True
CD.Filter = "Text Files *.txt|*.txt"
CD.FileName = vbNullString
CD.ShowOpen
 
If CD.FileName = vbNullString Then Exit Sub
 
FName = CD.FileName
FNumb = FreeFile
 
Open FName For Input As #FNumb
FileContents = Input(FileLen(FName), #FNumb)
Close #FNumb
 
Text1.Text = FileContents
 
Exit Sub
OpenShowFileError:
 
If Err.Number = 32755 Then Exit Sub 'user pressed cancel
 
End Sub
Option Explicit

Private Sub Command1_Click()
OpenShowFile
End Sub

Private Sub OpenShowFile()

On Error GoTo OpenShowFileError

Dim FName As String, FNumb As Integer
Dim FileContents As String

CD.CancelError = True
CD.Filter = "Text Files *.txt|*.txt"
CD.FileName = vbNullString
CD.ShowOpen

If CD.FileName = vbNullString Then Exit Sub

FName = CD.FileName
FNumb = FreeFile

Open FName For Input As #FNumb
FileContents = Input(FileLen(FName), #FNumb)
Close #FNumb

Text1.Text = FileContents

Exit Sub
OpenShowFileError:

If Err.Number = 32755 Then Exit Sub 'user pressed cancel

End Sub