VFP更改文件夹名（目录名）

最新推荐文章于 2024-04-03 20:28:19 发布

原创最新推荐文章于 2024-04-03 20:28:19 发布 · 2.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #c

本文介绍了一种使用Visual FoxPro (VFP) 脚本实现两个目录名互换的方法。通过创建临时文件夹名称，实现了aaa和bbb两个目录名称的交换。文中提供了具体的VFP脚本代码示例。

部署运行你感兴趣的模型镜像

在C盘有aaa和bbb两个目录，有方法做一个按钮的单击，然后把两个目录名互换？

我的思路是把其中一个目录名暂时换成aaa_temp，把bbb改成aaa再把aaa_temp改成bbb,可是不如在VFP里面如何实现。
---------------------------------------------------------------

LOCAL loFSO
loFSO = CREATEOBJECT("Scripting.FileSystemObject")
fso=loFSO.GetFolder("c:/aaa")
fso.Name='temp_a'
fso=loFSO.GetFolder("c:/bbb")
fso.Name='aaa'
fso=loFSO.GetFolder("c:/temp_a")
fso.Name='bbb'
RELEASE loFSO

在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