Compile error: type mismatch

[Bluen]

Actually this is from text book.
My code is:

Private Sub mnuCheck_Click()
Dim TempDate As Date
CheckFile = Dir(ThisDir, vbNormal)

Do While CheckFile <> ""

    If Right(CheckFile, 3) = "cqu" Then
    Open CurDir + "\Car Quotes\" + CheckFile For Input As #1
    Line Input #1, TempDate

    If Date - TempDate > 30 Then
    txtDate = TempDate
    End If
    End If
CheckFile = Dir
Loop
End Sub

when I tested running it, error code appear and the 'TempDate' is highlighted yellow.
could someone please tell where my mistake is..?

p/s:Just tell me if I need to add more information if the code above is not enough

[VBClassicRocks]

If you read the help files, you will find that Line Input# wants a string or a variant.
So change TempDate accordingly.

[LaVolpe]

Yes you are getting Line Input & Input confused.
Visit the forum's FAQ section regarding file input/output

[Bluen]

I changed a bit and it works

Private Sub mnuCheck_Click()
Dim TempDate As Date
Dim TempDa as String
CheckFile = Dir(ThisDir, vbNormal)

Do While CheckFile <> ""

    If Right(CheckFile, 3) = "cqu" Then
    Open CurDir + "\Car Quotes\" + CheckFile For Input As #1
    Line Input #1, TempDate
    txtDate = TempDate
    If Date - TempDate > 30 Then

    End If
    End If
CheckFile = Dir
Loop
End Sub

thanks a lot

[akhileshbc]

I changed a bit and it works

Private Sub mnuCheck_Click()
Dim TempDate As Date
Dim TempDa as String
CheckFile = Dir(ThisDir, vbNormal)

Do While CheckFile <> ""

    If Right(CheckFile, 3) = "cqu" Then
    Open CurDir + "\Car Quotes\" + CheckFile For Input As #1
    Line Input #1, TempDate
    txtDate = TempDate
    If Date - TempDate > 30 Then

    End If
    End If
CheckFile = Dir
Loop
End Sub

thanks a lot

You declared a new variable and never used it in the code, and you are still using a Date variable for reading instead of using a string !

What VBClassicRocks & LaVolpe suggested is that, you could use a String variable to read the date (ie. in Line Input) and convert that string obtained to an appropriate Date and use it in the rest of the code.

For converting string to date, you could use the CDate() function.