关于文件保存的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于文件保存的问题

共有2433人关注过本帖树形打印复制链接主题：关于文件保存的问题

裴保民

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

加好友

发短信

等级：八尾狐帖子：2040 积分：13057 威望：0 精华：0 注册：2017/4/3 15:01:00

关于文件保存的问题 发帖心情

Post By：2017/9/6 16:52:00 [显示全部帖子]

想在项目文件中存放图片，如果项目文件夹中没有要存放图片的文件夹,怎么在保存图片的时候同时建立一个文件夹然后将图片保存,如果有该文件夹时，就直接将图片保存在该文件夹中。怎么实现呢？

裴保民

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

加好友

发短信

等级：八尾狐帖子：2040 积分：13057 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2017/9/8 15:24:00 [显示全部帖子]

If FileSys.DirectoryExists( ProjectPath & "\MyFolder") = False Then
    FileSys.CreateDirectory( ProjectPath & "\MyFolder")
If FileSys.DirectoryExists( ProjectPath & "\MyFolder\wo") = False Then
    FileSys.CreateDirectory( ProjectPath & "\MyFolder\wo")
End If
If FileSys.DirectoryExists( ProjectPath & "\MyFolder\ni") = False Then
    FileSys.CreateDirectory( ProjectPath & "\MyFolder\ni")
End If
If FileSys.DirectoryExists( ProjectPath & "\MyFolder\ta") = False Then
    FileSys.CreateDirectory( ProjectPath & "\MyFolder\ta")
End If
If FileSys.DirectoryExists( ProjectPath & "\MyFolder\zan") = False Then
    FileSys.CreateDirectory( ProjectPath & "\MyFolder\zan")
End If
End If

老师这样的代码有问题吗？

裴保民

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

加好友

发短信

等级：八尾狐帖子：2040 积分：13057 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2017/9/8 15:30:00 [显示全部帖子]

If FileSys.DirectoryExists( ProjectPath & "\MyFolder") = False Then
FileSys.CreateDirectory( ProjectPath & "\MyFolder")
End If
这个是父文件夹，下面有四个子文件夹

先判断父文件夹是否存在，如果否怎建立一个父文件夹，再依次判断子文件夹是否存在如果否则依次建立一个子文件夹

能做一个嵌套循环吗？怎样代码更简洁呢？

[此贴子已经被作者于2017/9/8 15:36:50编辑过]

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

主题：关于文件保存的问题