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
End If
在控件中增加文件时，第一个文件是成功的，但是增加第二个文件时就出错，因为相应目录已经存在了。
请问用什么语句判断这个文件夹是否已经存在？如果不存在，就创建目录，存文件，如果文件夹已经存在了，那就直接增加文件。
第二个问题：
因为考虑到局域网使用时，有些文件夹是放在共享文件夹中的，这就要指定新的文件夹位置，但是如果我把上述语句增加路径变量后改成为：
e.SubFolder = Vars("DOCLOCATION") & dr2("车辆相关文件") & "\" & dr2("原车牌号")
则出现错误提示：“不支持给定路径的格式。”，这个问题应该怎么解决呢？
再有就是“车辆相关文件”列是文本性质，扩展类型是“多文件”，我现在设置的文本是250，但是考虑到文件比较多，再加上路径字符，255个很可能经常会不够多，会有超出危险吗？
请老师一并指点，谢谢！
加好友 
发短信
Post By：2023/1/17 19:41:00 [只看该作者]
Post By：2023/1/17 20:16:00 [只看该作者]
