Office中国论坛/Access中国论坛

标题: 求助如何在代码中实现操作文件夹 [打印本页]

作者: hywlthj 时间: 2008-8-27 18:15
标题: 求助如何在代码中实现操作文件夹
求助各位高手，如何在ACCESS中如何用代码去新建、重命名、移动、复制、删除、创建快捷方式操作？
先谢谢了。

作者: zyp 时间: 2008-8-27 19:07
CreateFolder 方法

描述

创建一个文件夹。

语法

object.CreateFolder(foldername)

CreateFolder 方法有如下几部分：

部分描述
object 必需的。始终是一个 FileSystemObject 的名字。
foldername 必需的。字符串表达式，它标识创建的文件夹。

说明

如果指定的文件夹已经存在，则发生一个错误。

作者: zyp 时间: 2008-8-27 19:08
Name 语句示例
本示例使用 Name 语句来更改文件的名称。示例中假设所有使用到的目录或文件夹都已存在。在 Macintosh 中，默认驱动器名称是 “HD” 并且路径部分由冒号取代反斜线隔开。

Dim OldName, NewName
OldName = "OLDFILE": NewName = "NEWFILE" ' 定义文件名。
Name OldName As NewName ' 更改文件名。

OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"
Name OldName As NewName ' 更改文件名，并移动文件。

作者: zyp 时间: 2008-8-27 19:08
Delete 方法

描述

删除一个指定的文件或文件夹。

语法

object.Delete force

Delete 方法语法有如下几部分：

部分描述
object 必需的。始终是一个 File 或 Folder 对象的名字。
force 可选的。Boolean 值，如果要删除具有只读属性设置的文件或文件夹，其值为True。当其值为 False 时（缺省），不能删除具有只读属性设置的文件或文件夹。

说明

如果指定的文件或文件夹不存在，则发生一个错误。

对于一个 File 或 Folder，Delete 方法的结果和执行 FileSystemObject.DeleteFile 或FileSystemObject.DeleteFolder 操作的结果是一样的。

Delete 方法对于文件夹内是否有内容不做区别。不管指定的文件夹是否有内容，它都被删除。

作者: hywlthj 时间: 2008-9-15 10:02
标题: 谢谢上面老师的指点
谢谢以上zyp老师重命名，移动、删除文件夹代码的帮助。现在我还不清楚怎么样才能做到新建一个文件夹然后再创建快捷文件夹放到桌面是怎么样做的。因为我们的文件习惯于放在桌面，而且一过两天后又要把它们删掉（不删实际文件），所以需求创建快捷方式的代码。再次求教，谢谢！

作者: hywlthj 时间: 2008-9-16 23:59
标题: 知道怎样做了
经过我一天的查阅资料和调试，终于搞掂是怎样实现的。以下是代码，注意要加载Windows Script Host Object Model选项
现在我的D盘里有一个文件名为“3”的文件夹，现在是创建快捷方式到桌面并命名为“55”。
Private Sub dzm_Click()
Dim strDesktop As String
Dim strPrograms As String
Dim wsh As New WshShell
Dim strAppPath As String
strAppPath = "d:\3"
strDesktop = wsh.SpecialFolders("Desktop")
Set objShellLink = wsh.CreateShortcut(strDesktop & "\55.lnk")
objShellLink.TargetPath = strAppPath
objShellLink.WorkingDirectory = strDesktop
objShellLink.Save
End Sub
以上过程在ACCESS2007中已经成功通过！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)