[已解決]IF語句提示語法錯(cuò)誤，特此請(qǐng)教！

REORX

已經(jīng)解決,是自己搞錯(cuò)了,不好意思!!!


調(diào)試這個(gè)程序時(shí)，提示IF語句語法錯(cuò)誤，請(qǐng)諸位朋友幫我看一下
完整程序如下：

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


'增加一個(gè)過程吧,用FileExistCheck("路徑")來調(diào)用

Public Function FileExistCheck(ByVal strFileName As String) As Integer
''測試路徑是否有效
'這段代碼更好
'返回０代表文件或路徑不存在
'返回１代表該文件存在
'返回２代表該文件夾存在

    Dim intAttr As Integer

    On Error GoTo Err:

    FileExistCheck = 0

    If Len(strFileName) > 0 Then
    *****在運(yùn)行時(shí),提示這條IF語句語法錯(cuò)誤!*******

        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 編輯 ]