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


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

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

帅哥哟,离线,有人找我吗?
裴保民
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:2007 积分:12794 威望:0 精华:0 注册:2017/4/3 15:01:00
关于文件保存的问题  发帖心情 Post By:2017/9/6 16:52:00 [显示全部帖子]

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

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


加好友 发短信
等级:八尾狐 帖子:2007 积分:12794 威望: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


加好友 发短信
等级:八尾狐 帖子:2007 积分:12794 威望: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编辑过]

 回到顶部