主题：[求助]搜索文件并打开

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

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

如果是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

为人民服务。

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

建立目录和复制整个目录是两回事，后者包括目录下的文件，建议前者