用正则去判断一个路径是否有效

Question

上面说的那个基本上都不行，当你要根据别人给的目录判断是否是有效的，如果有效就创建一个文件。
如果无效，做其他对应处理。用Directory.Exits(filePath); 只能判断这个路径是否存在。新的路径就会是不存在的。
  File.Exists(filePath) 判断一个目录中的文件是否存在。 
 
如果有效目录下不存在可以去创建。又是需求就是这样的。但是如果无效的路径下会出现异常。所以你想在出现了无效路径的时候做处理，个人认为还是正则比较靠谱。如果谁还有更好的方法。课告诉我。

Answer 1

'检查上传文件夹是否存在，不存在则创建文件夹
Function CheckAndCreateFolder(FolderName)
    dim p,i
    CheckAndCreateFolder=false
    if FolderName="" then Exit Function
    Set fso = CreateObject("Scripting.FileSystemObject")
    p=split(FolderName,"\")
    if right(p(0),1)=":" then
     if not fso.DriveExists(p(0)) then exit Function
    else
     exit Function
    end if
    fldr=p(0)
    
    for i=1 to ubound(p)
     fldr=fldr&"\"&p(i)
    If Not fso.FolderExists(fldr) Then
        fso.CreateFolder(fldr)
        If Not fso.FolderExists(fldr) Then exit Function
    End If
next
    Set fso = Nothing
    CheckAndCreateFolder=true
End Function

Answer 2

你在UI中让人去TextBox里面输入一个路径，还不如再加个"Browse..."的按钮，让人家可以直接选择一个文件夹/创建一个文件夹。既可以确定文件夹的存在，也保证了格式正确

Answer 3

路径最好还是 用 控件选择后 存放到TEXTBOX ,而不去手写,减少错误,
再加上一个配置文件什么的 把 选好的路径 保存下来，
这样会减少麻烦