Foxtable(狐表)用户栏目专家坐堂 → 为何执行后不建立file文件夹呢


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

主题:为何执行后不建立file文件夹呢

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


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
为何执行后不建立file文件夹呢  发帖心情 Post By:2015/3/20 20:25:00 [只看该作者]

If FileSys.DirectoryExists( ProjectPath + file ) Then FileSys.CreateDirectory(ProjectPath + file)
我这个代码在afterOpenProject中为何执行后不建立file文件夹呢
[此贴子已经被作者于2015/3/20 20:56:06编辑过]

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


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
  发帖心情 Post By:2015/3/20 20:29:00 [只看该作者]

 自己在帮助里面找到了ProjectPath。。。

 回到顶部
帅哥哟,离线,有人找我吗?
a937775799
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
  发帖心情 Post By:2015/3/20 20:41:00 [只看该作者]

 Dim file As String  = "file"
If FileSys.DirectoryExists( ProjectPath + file ) Then FileSys.CreateDirectory(ProjectPath + file)
我这个代码在afterOpenProject中为何执行后不建立file文件夹呢,
不再afterOpenProject里面 在别的按钮里面也不能新建
[此贴子已经被作者于2015/3/20 21:10:14编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2015/3/20 21:16:00 [只看该作者]

If FileSys.DirectoryExists(ProjectPath & file) = false Then
    FileSys.CreateDirectory(ProjectPath & file)
end if

 回到顶部
帅哥哟,离线,有人找我吗?
a937775799
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
  发帖心情 Post By:2015/3/20 21:16:00 [只看该作者]

 哎呀 。。我*逻辑出问题了,,昏

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2015/3/20 21:19:00 [只看该作者]

如果您没有事先定义file变量,则应该这样:

 

dim file as String = "文件夹名称"

If FileSys.DirectoryExists(ProjectPath & file) = false Then
    FileSys.CreateDirectory(ProjectPath & file)
end if


 回到顶部