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

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

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

有点甜

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

有点甜

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

有点甜

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

有点甜

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

有点甜

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

加好友

发短信

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

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

dim dirs() as string = {"aaa", "bbb", "ccc"}
for each dir as string in dirs
    If FileSys.DirectoryExists( ProjectPath & "\MyFolder\" & dir) = False Then
        FileSys.CreateDirectory( ProjectPath & "\MyFolder\" & dir)
    End If
Next

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

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