VFP9: 怎么这样建立文件夹
VFP9: 怎么这样建立文件夹
设要建议的文件夹是“C:\output”
如果文件夹不存在就建立它
如果文件夹存在且空就什么也不做返回
如果文件夹存在且内有文件就把文件都删除，如果有文件删不掉（如处于打开状态）就出提示框“请关闭文件后再试！”
整个过程希望不要出DOS框
[解决办法]
修改上面的回答
CLEAR
SET SAFETY OFF
IF DIRECTORY("D:\output") &&文件夹存在
***COPY FILE "D:\HS\*.DBF" TO "D:\output\*.DBF"
IF ADIR(FARRAY,"D:\output\*")=0 &&文件数为空
MESSAGEBOX("D:\output 目录已经存在")
RETURN
ELSE
DELETE FILE "D:\output\*.DBF"
ENDIF
ELSE
MD D:\output &&文件夹不存在就建立
ENDIF
RD D:\output &&删除文件夹
[解决办法]
用 DIRECTORY 判断文件夹是否存在 用 ADIR 获取文件夹里的数据 TRY 尝试 删除 里面的文件 我的思路就是这样！
