主题：打开外部文件

下面是打开外部文件的代码，一次只能打开一个文件。我想在文件名称中输入多个文件，（用文件编号）文件编号之间用逗号隔开，然后一次打开多个文件
If e.Table.AllowEdit = False Then '如果锁表
    Dim file As String = CurrentTable.Current("文件名称")
    If FileSys.FileExists(file) Then '如果文件存在
        Dim Proc As New Process '定义一个新的Process
        Proc.File = file '指定要打开的文件
        Proc.Start()
    Else
        messagebox.show("文件不存在","提示")
    End If
Else
    e.cancel = False '进入编辑
End If

If e.Table.AllowEdit = False Then '如果锁表  
    For Each file As String In CurrentTable.Current("文件名称").split(",")
        If FileSys.FileExists(file) Then '如果文件存在
            Dim Proc As New Process '定义一个新的Process
            Proc.File = file '指定要打开的文件
            Proc.Start()
        Else
            messagebox.show("文件" & file & "不存在","提示")
        End If
    Next
Else
    e.cancel = False '进入编辑
End If

如果是多文件列

 

If e.Table.AllowEdit = False Then '如果锁表  
    For Each file As String In CurrentTable.Current.DataRow.Lines("文件名称")
        If FileSys.FileExists(file) Then '如果文件存在
            Dim Proc As New Process '定义一个新的Process
            Proc.File = file '指定要打开的文件
            Proc.Start()
        Else
            messagebox.show("文件" & file & "不存在","提示")
        End If
    Next
Else
    e.cancel = False '进入编辑
End If

2楼代码没反应,3楼代码找不到文件。我的文件名

\\吴厂\文档管理$\公司文件\资质证书\ISO9001.jpg,\\吴厂\文档管理$\公司文件\资质证书\ISO14001.jpg

根据你的数据，2楼代码肯定没问题。

是的,没有问题,谢了.