| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于文件保存的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106326) |
| -- 作者：裴保民 -- 发布时间：2017/9/6 16:52:00 -- 关于文件保存的问题 想在项目文件中存放图片，如果项目文件夹中没有要存放图片的文件夹,怎么在保存图片的时候同时建立一个文件夹然后将图片保存,如果有该文件夹时，就直接将图片保存在该文件夹中。怎么实现呢？ |
| -- 作者：有点甜 -- 发布时间：2017/9/6 16:56:00 -- 判断是否存在，不存在就创建一个
http://www.foxtable.com/webhelp/scr/0331.htm
|
| -- 作者：peibaomin -- 发布时间：2017/9/6 20:01:00 -- If FileSys.DirectoryExists( ProjectPath & "\\MyFolder") Then \'如果目录项目文件夹 \\MyFolder存在
这样代码哪错了，怎么保存代码出错呢？
|
| -- 作者：有点甜 -- 发布时间：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 -- 发布时间：2017/9/6 23:21:00 -- 怎么什么反应都没有呢？ |
| -- 作者：有点甜 -- 发布时间：2017/9/6 23:35:00 -- 以下是引用peibaomin在2017/9/6 23:21:00的发言：
怎么什么反应都没有呢？
请认真测试。你的代码是：如果存在，就删除，否则，新增。
你要的是这个？
If FileSys.DirectoryExists( ProjectPath & "\\MyFolder") = False Then
|
| -- 作者：peibaomin -- 发布时间：2017/9/6 23:40:00 -- 老师“\\MyFolder”添加到什么地方了？项目文件夹里怎么没有呢？
已经解决
[此贴子已经被作者于2017/9/7 7:32:18编辑过]
|
| -- 作者：裴保民 -- 发布时间：2017/9/8 15:24:00 -- If FileSys.DirectoryExists( ProjectPath & "\\MyFolder") = False Then
老师这样的代码有问题吗？ |
| -- 作者：有点甜 -- 发布时间：2017/9/8 15:26:00 --
|
| -- 作者：裴保民 -- 发布时间：2017/9/8 15:30:00 -- If FileSys.DirectoryExists( ProjectPath & "\\MyFolder") = False Then
先判断父文件夹是否存在，如果否怎建立一个父文件夹，再依次判断子文件夹是否存在如果否则依次建立一个子文件夹
能做一个嵌套循环吗？怎样代码更简洁呢？
[此贴子已经被作者于2017/9/8 15:36:50编辑过]
|