能不能在项目目录下建立一个文件夹? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 能不能在项目目录下建立一个文件夹?

共有15289人关注过本帖树形打印复制链接主题：能不能在项目目录下建立一个文件夹?

czy

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/5/21 15:01:00 [只看该作者]

以下是引用blackzhu在2010-5-21 14:41:00的发言：

哈哈,写错了.问题是我问的问题怎么解决?

我测试你的RenameDirectory语句，只要改了错误后就正常重命名了。

blackzhu

小大 12楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2010/5/21 15:14:00 [只看该作者]

狐爸你搞错了.我的意思是我们的EXECL报表模板输出后如何直接保存到这一新建的目录下,而且这个报表的名字要变成:

Tables("B").Current("第一列")+报表模板的名字

mr725

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/5/21 15:16:00 [只看该作者]

以下是引用blackzhu在2010-5-21 13:55:00的发言：

我还想问一个问题,我们EXECL报表模板经过代码输出后我要保存到刚创建的目录中,并且名字要改成同新目录一样的名字+加上报表的名字.我创建目录的代码是:

FileSys.CreateDirectory("D:\Release商业版\CaseStudy\管理项目1\Attachments\文档\XJ")
FileSys.RenameDirectory("D:\Release商业版\CaseStudy\管理项目1\Attachments\文档\XJ",Tables("B").Curren("第一列"))

保存后报表名字如:第一列的一个订单为BEN3777,报表的模板名字为订箱单,那么此报表为BEN3777订箱单.

保存为Excel用：SaveExcel 吧，这样可以吗？

dim bb as string

bb = "D:\Release商业版\CaseStudy\管理项目1\Attachments\文档\XJ\" & Tables("出库明细").Current("出库用途") & "" & "BEN3777.xls " ' ****修正了一下****

Tables("B").SaveExcel(bb,"B",false)

[此贴子已经被作者于2010-5-21 15:29:55编辑过]

狐狸爸爸

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2010/5/21 15:16:00 [只看该作者]

C版11楼说了，正常

blackzhu

小大 15楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2010/5/21 15:30:00 [只看该作者]

以下是引用mr725在2010-5-21 15:16:00的发言：

保存为Excel用：SaveExcel 吧，这样可以吗？

dim bb as string

bb = "D:\Release商业版\CaseStudy\管理项目1\Attachments\文档\XJ\"BEN3777" & '" & Tables("B").Current("第一列")) & "'.xls"

Tables("B").SaveExcel(bb,"B",false)

[此贴子已经被作者于2010-5-21 15:16:17编辑过]

老大,这个XJ的目录已经重命名为BEN3777,如何将此文件保存到这个BEN3777的目录下,这个BEN3777不是固定的.举例:可能会有几个目录,分别是A.B.C三个目录,这个模板输出后是A的保存到A中,是B的保存到B中,所以是跟着Tables("B").Current("第一列"))走的.

blackzhu

小大 16楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2010/5/21 15:37:00 [只看该作者]

模板的也能SAVEEXECL保存.帮助上不是只能将Table保存为一个EXECL吗?

blackzhu

小大 17楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2010/5/21 15:42:00 [只看该作者]

我试了,SaveExecl只能将Table保存为Excel,我要的是将EXCEL报表保存到相对应的目录中.

mr725

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/5/21 15:47:00 [只看该作者]

用系统自带的【Excel报表.table】为例，测试没问题：

dim bb as string
bb = "D:\Release商业版\CaseStudy\管理项目1\Attachments\文档\" & Tables("出库明细").Current("出库用途") & "\模板名称.xls"
Tables("出库明细").SaveExcel(bb,"出库明细",false)

[此贴子已经被作者于2010-5-21 15:55:05编辑过]

blackzhu

小大 19楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2010/5/21 16:02:00 [只看该作者]

测试后,产生一个一个目录,OK没有问题,但是里面产生了两个文件,一个文件是跟着列名走的,另外一个名字就是报表模板的名字,但是两个文件里的内容全部是将Table原封不动输出而已,而不是生成报表的.我认为是不是应该将文件拷贝过去的思路.

还有一个问题用这个代码:FileSys.CreateDirectory("D:\Release商业版\CaseStudy\管理项目1\Attachments\文档\XJ")
FileSys.RenameDirectory("D:\Release商业版\CaseStudy\管理项目1\Attachments\文档\XJ",Tables("出库明细").Current("出库用途"))

生成的目录,如何判断是否存在?

mr725

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/5/21 16:05:00 [只看该作者]

    If FileSys.DirectoryExists("D:\FoxFolder1\Attachments") Then
          Messagebox.Show("Attachments这个目录已经存在!","提示")
    Else
        FileSys.CreateDirectory("D:\FoxFolder1\Attachments")   ’否则创建它***
    End If

下一主题 >> << 上一主题

总数 28 上一页 1 2 3 下一页

主题：能不能在项目目录下建立一个文件夹?