[已解决]IF语句提示语法错误，特此请教！

REORX

已经解决,是自己搞错了,不好意思!!!


调试这个程序时，提示IF语句语法错误，请诸位朋友帮我看一下
完整程序如下：

Private Sub Form_Load()
Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is TextBox Then
                Ctrl."d:\Word\" & Me.文件编号 & ".doc"")"
              End If
    Next
End Sub


'增加一个过程吧,用FileExistCheck("路径")来调用

Public Function FileExistCheck(ByVal strFileName As String) As Integer
''测试路径是否有效
'这段代码更好
'返回０代表文件或路径不存在
'返回１代表该文件存在
'返回２代表该文件夹存在

    Dim intAttr As Integer

    On Error GoTo Err:

    FileExistCheck = 0

    If Len(strFileName) > 0 Then
    *****在运行时,提示这条IF语句语法错误!*******

        intAttr = GetAttr(strFileName)

        If (intAttr And vbDirectory) Then
            FileExistCheck = 2      '
        Else
            FileExistCheck = 1      '
        End If

    End If

    Exit Function
Err:

End Functi

[ 本帖最后由 REORX 于 2007-12-26 11:27 编辑 ]