| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1117 人关注过本帖
标题:DIRECTORY() 打不到文本夹?
只看楼主 加入收藏
su0527
Rank: 2
等 级:论坛游民
帖 子:452
专家分:79
注 册:2015-1-10
结帖率:96.03%
收藏
已结贴  问题点数:20 回复次数:3 
DIRECTORY() 打不到文本夹?
*实现功能:预置一个空的文件夹.
SET SAFETY OFF
IF DIRECTORY("E:\小精灵姓名文本")               &&文件夹存在
  IF ADIR(FARRAY,"E:\小精灵姓名文本\*.txt")=0   &&文件数为空
  hy=1                                          &&相当于什么也不做,随便给变量赋个值
  ELSE
  DELETE FILE "E:\小精灵姓名文本\*.txt"         &&文件夹存且有文件,就删除文件,保留空文件夹
  ENDIF
ELSE
   MD E:\小精灵姓名文本                         &&文件夹不存在就建立
ENDIF


结果提示: E:\小精灵姓名文本 已经存在.
问题好像出在:文件夹判断语句.
请分析.
搜索更多相关主题的帖子: 姓名 文件夹 小精灵 
2016-01-10 18:37
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:7 
SET SAFETY OFF
IF DIRECTORY("E:\小精灵姓名文本")               &&文件夹存在
  IF ADIR(FARRAY,"E:\小精灵姓名文本\*.txt")=0   &&文件数为空
     hy=1                                       &&相当于什么也不做,随便给变量赋个值
  ELSE
     DELETE FILE "E:\小精灵姓名文本\*.txt"      &&文件夹存且有文件,就删除文件,保留空文件夹
  ENDIF
ELSE
   MD E:\小精灵姓名文本                         &&文件夹不存在就建立
ENDIF
我单步执行,好像没什么问题啊。看语法,也看不出什么问题

2016-01-10 19:56
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:7 
vfp9.0测试了下  没你说的提示: E:\小精灵姓名文本 已经存在.
运行正常
2016-01-10 19:58
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:6 
看看其他地方还有无执行了类似“MD E:\小精灵姓名文本”的语句
2016-01-10 20:51
快速回复:DIRECTORY() 打不到文本夹?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033438 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved