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这句有错。为什么啊。

Text1
有这个控件的。我已经用。msgbox Text1.Text 输出了值
Text1.Text & "data\templates"
一个字符串变量和一个字符串相加这样的吧。怎么我用这相加后的变量做为要检测的目录，就提示52号错误。错误的文件名或号码

判断文件夹是否存在最好用 FileSystemObject对象的FolderExists方法。

FolderExists 方法

描述

如果指定的文件夹存在返回 True，不存在返回 False。

语法

object.FolderExists(folderspec)

FolderExists 方法语法有如下几部分：

部分	描述
object	必需的。始终是一个 FileSystemObject 对象的名字。
folderspec	必需的。要确定是否存在的文件夹名字。如果认为文件夹不在当前文件夹中，必须提供一个完整的路径说明（绝对的或相对的）。

[此贴子已经被作者于2005-4-18 15:14:24编辑过]