在VFP8.0中,如何通过编程对一个已知文件夹进行重命名?
在VFP8.0中,如何通过编程对一个已知文件夹进行重命名?
[解决办法]
我有一个间接的方法可以实现。
先建立新文件夹“新文件夹名”，然后拷贝原文件夹所有文件到新文件夹，最后删除原文件夹。
IF DIRECTORY(D:\新文件夹名\)=.F. &&如果文件夹不存在
MD D:\新文件夹名\ &&建立文件夹
ENDIF
COPY FILE D:\原文件夹名\*.* to D:\新文件夹名\*.*
RMDIR D:\原文件夹名
[解决办法]
在VFP中更改文件夹名
*-------------------------------------------------
LOCAL loFSO
loFSO = CREATEOBJECT("Scripting.FileSystemObject")
fso=loFSO.GetFolder("c:\原名")
fso.Name='目录名'
RELEASE loFSO
或
DECLARE INTEGER MoveFile IN WIN32API STRING @cFrom, STRING @cTo
=MoveFile("C:\原名", "C:\目录名")
CLEAR DLLS
