Office中国论坛/Access中国论坛

标题: [已解决]IF语句提示语法错误，特此请教！ [打印本页]

作者: REORX 时间: 2007-12-26 10:24
标题: [已解决]IF语句提示语法错误，特此请教！
已经解决,是自己搞错了,不好意思!!!

调试这个程序时，提示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 编辑 ]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)