[求助] 高手帮我看一下,这个语句为什么错了
Private Sub Command9_Click()If Dir(Text1.Text & "data\templates", vbDirectory) <> "" Then
msg = "存在"
Call MsgBox(msg, Style, Title)
End If
End Sub
Text1.Text & "data\templates", vbDirectory这句有错。为什么啊。
描述
如果指定的文件夹存在返回 True,不存在返回 False。
语法
object.FolderExists(folderspec)
FolderExists 方法语法有如下几部分:
部分 | 描述 |
object | 必需的。始终是一个 FileSystemObject 对象的名字。 |
folderspec | 必需的。要确定是否存在的文件夹名字。如果认为文件夹不在当前文件夹中,必须提供一个完整的路径说明(绝对的或相对的)。 |
[此贴子已经被作者于2005-4-18 15:14:24编辑过]