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

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

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

mr725

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

mr725

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

mr725

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

mr725

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

加好友

发短信

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

Post By：2010/5/21 16:08:00 [显示全部帖子]

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

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

没看懂这段的意思··· 我测试后只有一个文件啊～

mr725

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

加好友

发短信

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

Post By：2010/5/21 18:37:00 [显示全部帖子]

猜测你的意思：：：：：：

Dim Book As New XLS.Book(路径....\Abc模板.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)

Book.Build()
Book.Save(路径....\Abc报表.xls)
Dim Proc As New Process
Proc.File = 路径....\Abc报表.xls
Proc.Start()

mr725

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

加好友

发短信

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

Post By：2010/5/21 18:42:00 [显示全部帖子]

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

这个我知道,我问的是新建的目录是根据第一列来命名的,怎么判断命名后的目录

If FileSys.DirectoryExists("D:\Release商业版\CaseStudy\管理项目1\Attachments\文档\XJ",Tables("出库明细").Current("出库用途"))

Then
          Messagebox.Show("Attachments这个目录已经存在!","提示")
    Else
        FileSys.CreateDirectory("D:\Release商业版\CaseStudy\管理项目1\Attachments\文档\XJ",Tables("出库明细").Current("出库用途"))   ’否则创建它***
    End If

mr725

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

加好友

发短信

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

Post By：2010/5/21 18:44:00 [显示全部帖子]

你还是把代码全部贴出来让大家来分析吧，标明在哪一步要达到什么目的，因为很难懂你的意思，

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

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