专家坐堂-文件安全查看求助Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Case "报价单"

Dim dr As Row = Tables("订单表").Current

Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单报价.xls")

Dim fl As String = Vars("IPgt") &"\\"& dr("文件编号") &"\\" & "报价文件" &"\\"& User.Name & "\\" & User.name & format(Date.Today,"yyyy年MM月dd日") & "文字报价表.xls" \'format(Date.Now,"yyyy年MM月dd日")

Book.Build() \'生成细节区

Book.Save(fl) \'保存工作簿

Dim Proc As New Process \'打开工作簿

Proc.File = fl

Proc.Start()

Case "查看"

Dim dr As Row = Tables("订单表").Current

Dim Proc As New Process

Proc.File = Vars("IPgt") &"\\"& dr("文件编号") & "\\" & "报价文件" &"\\"& User.Name

Proc.Start()

通过这样查看就不能起到保护文件的作用全部暴露了文件隐藏我想将我文件在窗口显示达到影藏的目的如何做呢谢谢老师们
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20160725203722.png