Code Problem [RESOLVED]

VB Code:

If Form3.Text1.Text = "" Then
On Error GoTo 1
    With CD1
        .DialogTitle = "Open Name File"
        .Filter = "All Supported Types|*.usr;*.txt;*.dat|"
        .ShowOpen
Dim sText As String
    Dim x As Integer
    x = FreeFile
    On Error Resume Next
    Open .FileName For Input As #x
    While Not EOF(x)
        Input #x, sText$
            If sText$ = "" Then
            Exit Sub
            Else
            List1.AddItem sText$
            DoEvents
            End If
    Wend
    Close #x
        End With
Label1.Caption = "Word's: " & List1.ListCount
    Exit Sub
1
End If
End Sub
Else
If Check1.Value = vbChecked Then
On Error GoTo 1
    With CD1
        .DialogTitle = "Open Name File"
        .Filter = "All Supported Types|*.usr;*.txt;*.dat|"
        .ShowOpen
Dim sText As String
    Dim x As Integer
    x = FreeFile
    On Error Resume Next
    Open .FileName For Input As #x
    While Not EOF(x)
        Input #x, sText$
            If sText$ = "" Then
            Exit Sub
            Else
            List1.AddItem sText$
            DoEvents
            End If
    Wend
    Close #x
        End With
Label1.Caption = "Word's: " & List1.ListCount
    Exit Sub
1
End If
End Sub

This is my code im using but somehwere in it its really messed up. I appreciate all the help and would love some with this problem :)

OK, what is the problem?

I dunno it jsut wont work with that code it always has compile errors and **** :( and im sure its messed up somehwere

You have an End Sub in the middle of your code. Is the code you show supposed to be one subroutine or two?

Well its under command btuoon 1 but I want it to do 2 diferent things if there selected and stuff right...Thx man :)

Something like this?

VB Code:

Dim sText As String
    Dim intFileNum As Integer
    Dim sText As String
 
    If Form3.Text1.Text = "" Then
        'On Error GoTo 1 (This is very bad practice)
        With CD1
            .DialogTitle = "Open Name File"
            .Filter = "All Supported Types|*.usr;*.txt;*.dat|"
            .ShowOpen
            intFileNum = FreeFile
            On Error Resume Next
            Open .FileName For Input As #intFileNum
            While Not EOF(intFileNum)
                Input #intFileNum, sText$
                If sText$ = "" Then
                    Exit Sub
                Else
                    List1.AddItem sText$
                    DoEvents
                End If
            Wend
            Close #intFileNum
        End With
    Else
        If Check1.Value = vbChecked Then
            With CD1
                .DialogTitle = "Open Name File"
                .Filter = "All Supported Types|*.usr;*.txt;*.dat|"
                .ShowOpen
                intFileNum = FreeFile
                On Error Resume Next
                Open .FileName For Input As #intFileNum
                While Not EOF(intFileNum)
                    Input #intFileNum, sText$
                        If sText$ = "" Then
                            Exit Sub
                        Else
                            List1.AddItem sText$
                            DoEvents
                        End If
                Wend
                Close #intFileNum
            End With
        End If
    End If
    
    Label1.Caption = "Word's: " & List1.ListCount

Ok well that code comes up and says that stext as string compile error duplicate declariation in current scope?Thx man

That means that sText is Dim-ed more than once. When I moved all your Dim statements to the top I overlooked that fact that sText was there more than once. Just remove one of them.

What do u mean?Remove jsut 1 of what?

One of the duplicate Dim statements. Change this

VB Code:

Dim sText As String
    Dim intFileNum As Integer
    Dim sText As String

to this

VB Code:

Dim sText As String
    Dim intFileNum As Integer

Ok kewl thx man :) helped me out big time :)

You're welcome. BTW it looks to me that this is the same.

VB Code:

Dim sText As String
    Dim intFileNum As Integer
 
    If Form3.Text1.Text = "" Or Check1.Value = vbChecked Then
        With CD1
            .DialogTitle = "Open Name File"
            .Filter = "All Supported Types|*.usr;*.txt;*.dat|"
            .ShowOpen
            intFileNum = FreeFile
            On Error Resume Next
            Open .FileName For Input As #intFileNum
            While Not EOF(intFileNum)
                Input #intFileNum, sText$
                If sText$ = "" Then
                    Exit Sub
                Else
                    List1.AddItem sText$
                    DoEvents
                End If
            Wend
            Close #intFileNum
        End With
    End If
    
    Label1.Caption = "Word's: " & List1.ListCount