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

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

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

裴保民

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

加好友

发短信

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

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

Post By：2017/9/6 16:52:00 [只看该作者]

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/6 16:56:00 [只看该作者]

判断是否存在，不存在就创建一个

http://www.foxtable.com/webhelp/scr/0331.htm

peibaomin

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

加好友

发短信

等级：一尾狐帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00

Post By：2017/9/6 20:01:00 [只看该作者]

If FileSys.DirectoryExists( ProjectPath & "\MyFolder") Then '如果目录项目文件夹 \MyFolder存在
FileSys.DeleteDirectory(ProjectPath & "\MyFolder") '则删除之
Else
FileSys.CreateDirectory( ProjectPath & "\MyFolder")
End If

这样代码哪错了，怎么保存代码出错呢？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/6 20:38:00 [只看该作者]

If FileSys.DirectoryExists( ProjectPath & "\MyFolder") Then '如果目录项目文件夹 \MyFolder存在
FileSys.DeleteDirectory(ProjectPath & "\MyFolder", 2, 2) '则删除之
Else
FileSys.CreateDirectory( ProjectPath & "\MyFolder")
End If

peibaomin

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

加好友

发短信

等级：一尾狐帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00

Post By：2017/9/6 23:21:00 [只看该作者]

怎么什么反应都没有呢？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/6 23:35:00 [只看该作者]

以下是引用peibaomin在2017/9/6 23:21:00的发言：
怎么什么反应都没有呢？

请认真测试。你的代码是：如果存在，就删除，否则，新增。

你要的是这个？

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

peibaomin

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

加好友

发短信

等级：一尾狐帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00

Post By：2017/9/6 23:40:00 [只看该作者]

老师“\MyFolder”添加到什么地方了？项目文件夹里怎么没有呢？

已经解决

[此贴子已经被作者于2017/9/7 7:32:18编辑过]

裴保民

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

加好友

发短信

等级：八尾狐帖子：2006 积分：12772 威望：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

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/8 15:26:00 [只看该作者]

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

裴保民

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

加好友

发短信

等级：八尾狐帖子：2006 积分：12772 威望：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编辑过]

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

总数 11 1 2 下一页

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