Foxtable(狐表)用户栏目专家坐堂 → 在文件夹中直接创建文件


  共有2820人关注过本帖树形打印复制链接

主题:在文件夹中直接创建文件

美女呀,离线,留言给我吧!
朱女士
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:513 积分:4073 威望:0 精华:0 注册:2020/2/8 11:14:00
在文件夹中直接创建文件  发帖心情 Post By:2020/7/27 11:46:00 [只看该作者]

老师您好!
     我在单击某表的zzh单元格以后,创建了5个文件夹,想不退出操作直接分别建立相应的文件,这些文件类型都不同,有什么办法或在哪里写代码。原创建文件夹的语句已经有了:If e.Col.name = "编号" AndAlso e.Row.isnull("编号") = False Then

        If FileSys.DirectoryExists(ProjectPath & e.Row("编号")) = False Then '如果目录不存在

            FileSys.CreateDirectory(ProjectPath & e.Row("编号") & "\1-订单") '则创建之

            

            FileSys.CreateDirectory(ProjectPath & e.Row("编号") & "\2-图纸") '则创建之

            FileSys.CreateDirectory(ProjectPath & e.Row("编号") & "\3-合同") '则创建之

            FileSys.CreateDirectory(ProjectPath & e.Row("编号") & "\4-装箱清单") '则创建之

            FileSys.CreateDirectory(ProjectPath & e.Row("编号") & "\5-客户交流") '则创建

            messagebox.show("建立完毕!")

         Else

          messagebox.show("已经建立!")

        End If

    End If

比如:如果点击装箱清单文件夹,直接进入进入报表模板设计或直接打开已有模块。如果点击合同就进入合同文件的编辑。


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/27 11:53:00 [只看该作者]

没看懂什么意思?点击单元格直接打开文件?

表格click事件
if e.col.name = "编号" then
Dim Proc As New Process '定义一个新的Process
Proc.File = 
ProjectPath & e.Row("编号"& "\4-装箱清单" '指定要打开的文件
Proc.Start()
endif


 回到顶部