VFP9: 怎么这样建立文件夹

[needacoder]

VFP9: 怎么这样建立文件夹

设要建议的文件夹是“C:\output”

如果文件夹不存在就建立它
如果文件夹存在且空就什么也不做返回
如果文件夹存在且内有文件就把文件都删除，如果有文件删不掉（如处于打开状态）就出提示框“请关闭文件后再试！”

整个过程希望不要出DOS框

[lygcw9602]

建立文件夹：
MD C:\output

[lygcw9602]

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

[lygcw9602]

修改上面的回答

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 &&删除文件夹

[needacoder]

谢朋友的热心帮助
只是有一点
没处理文件打开删不掉的情况
这夹中的文件不只是dbf，会是任何类型

[lygcw9602]

直接删除文件夹即可

[lygcw9602]

DELETE FILE 命令可以删除任何文件

[needacoder]

谢楼上几位百忙中回复
打开的文件是删不了的
而我的程序需要提示用户删除不了

为我验证我实际又试了
打开一个excel文件，删不了

[lygcw9602]

可以从论坛或网上搜搜这方面的内容

[lygcw9602]

ON ERROR
IF ERROR()=3
MESSAGEBOX("文件正在使用，请关闭所有打开的窗口")
ENDIF
DELETE FILE 命令只能删除没有打开的文件。
RD命令只能删除空文件夹。

[lc_apple]

[Quote=引用 11 楼 yrt888 的回复:]
用 DIRECTORY 判断文件夹是否存在 用 ADIR 获取文件夹里的数据 TRY 尝试 删除 里面的文件 我的思路就是这样！
[/Quote]

赞

[lygcw9602]

英雄所见略同

[xilaianzxsc]

MD 文件夹名

不过,应事先判断一下此文件夹是否已经存在

[yrt888]

用 DIRECTORY 判断文件夹是否存在 用 ADIR 获取文件夹里的数据 TRY 尝试 删除 里面的文件 我的思路就是这样！

[都市夜猫]

[Quote=引用 11 楼 yrt888 的回复:]
用 DIRECTORY 判断文件夹是否存在 用 ADIR 获取文件夹里的数据 TRY 尝试 删除 里面的文件 我的思路就是这样！
[/Quote]

[xilaianzxsc]

11楼老师的意见

同意