CountCode

Option Explicit
Private Sub Command1_Click()
Dim a As Integer
'listbonne.Clear

For a = 0 To file.ListCount - 1
If file.Selected(a) = True Then
listbonne.AddItem file.Path & "\" & file.List(a)
End If
Next a
End Sub

Private Sub Command2_Click()
Dim LinesFromFile As String
Dim a As Integer
Dim lCount As Long
Dim bBegin As Boolean
For a = 0 To listbonne.ListCount - 1
Open listbonne.List(a) For Input As #1
bBegin = False
Do Until EOF(1)
Line Input #1, LinesFromFile
If LinesFromFile Like "Option Explicit*" Then bBegin = True
If LinesFromFile > "" And bBegin = True And Left$(LinesFromFile, 1) <> "'" Then
lCount = lCount + 1
End If
Loop
Close #1
Next a
txt.Text = lCount
End Sub

Private Sub Command3_Click()
listbonne.Clear
txt.Text = ""
End Sub

Private Sub dir_Change()
file.Path = dir.Path
End Sub

Private Sub drive_Change()
dir.Path = drive.drive
End Sub