Dim v As String = "款号"
Dim p As String = "\\\\Dianshang\\电商共享夹\\图片管理\\" & v
Dim Proc As New Process
proc.File = p
If FileSys.DirectoryExists(p) =False Then
    filesys.CreateDirectory(p)
End If
proc.start

老师您看一下，V不要“”号后打开的文件夹名款号,但不是款号列的值。  加上""号后文件夹的名为V

我是举一个例子给你，告诉你怎么判断是否有只当名称的目录，如果打开目录。

如果你要别人帮你完全写好代码，就得有更具体的问题，例如的代码是写在什么事件中的。

如果是CellButtonClick事件,那就是：

Dim v As String = e.Row( "款号")

Dim p As String = "\\\\Dianshang\\电商共享夹\\图片管理\\" & v
Dim Proc As New Process
proc.File = p
If FileSys.DirectoryExists(p) =False Then
    filesys.CreateDirectory(p)
End If
proc.star

如果实在窗口做的按钮，那就是：

Dim v As String = Tables("表名").Current( "款号")

Dim p As String = "\\\\Dianshang\\电商共享夹\\图片管理\\" & v
Dim Proc As New Process
proc.File = p
If FileSys.DirectoryExists(p) =False Then
    filesys.CreateDirectory(p)
End If
proc.star

老师   还有个问题

Dim y As String = "详情页"
Dim pst As String = "PS图"
Dim pzt As String = "拍照图"

If FileSys.DirectoryExists(p) = False Then \'如果目录不存在
    filesys.CreateDirectory(p)  \' 创建目录
End If

我想在创建目录P后，在P文件夹下面再建3个文件夹（y,pst,pzt），不能打开后再建，因为如果不是新建的P，哪么它里就会有了这3个子文件夹。

FileSys.CreateDirectory("d:\\MyFolder\\123\\456")  我用这个例子试了一下 ，只能一次建一个目录

请老师指点一下。谢谢

老师  您好  我刚才用下面的方法试了一下  还挺好用的   如果系统大了   请问是您刚才的方法好  还是用下面这个   谢谢您

If FileSys.DirectoryExists(p) = False Then \'如果目录不存在
    FileSys.CopyDirectory ("Attachments\\xxxx", "\\\\Dianshang\\电商共享夹\\图片管理\\" & v, False)
End If