专家坐堂-Filemanager问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "车辆相关文件" Then

Dim dr2 As DataRow = e.DataRow

If dr2.IsNull("原车牌号") Then

MessageBox.Show("请先输入原车牌号!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

e.Cancel = True

Else

e.SubFolder = dr2("车辆相关文件") & "\\" & dr2("原车牌号")

End If

在控件中增加文件时，第一个文件是成功的，但是增加第二个文件时就出错，因为相应目录已经存在了。

请问用什么语句判断这个文件夹是否已经存在？如果不存在，就创建目录，存文件，如果文件夹已经存在了，那就直接增加文件。

第二个问题：

因为考虑到局域网使用时，有些文件夹是放在共享文件夹中的，这就要指定新的文件夹位置，但是如果我把上述语句增加路径变量后改成为：

e.SubFolder = Vars("DOCLOCATION") & dr2("车辆相关文件") & "\\" & dr2("原车牌号")

则出现错误提示：“不支持给定路径的格式。”，这个问题应该怎么解决呢？

再有就是“车辆相关文件”列是文本性质，扩展类型是“多文件”，我现在设置的文本是250，但是考虑到文件比较多，再加上路径字符，255个很可能经常会不够多，会有超出危险吗？

请老师一并指点，谢谢！