求助如何在代码中实现操作文件夹

hywlthj

求助各位高手，如何在ACCESS中如何用代码去新建、重命名、移动、复制、删除、创建快捷方式操作？
先谢谢了。

zyp

CreateFolder 方法
         

描述

创建一个文件夹。

语法

object.CreateFolder(foldername)

CreateFolder 方法有如下几部分：

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



说明

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

zyp

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

Delete 方法
         

描述

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

语法

object.Delete force

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

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



说明

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

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

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

hywlthj

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

hywlthj

经过我一天的查阅资料和调试，终于搞掂是怎样实现的。以下是代码，注意要加载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中已经成功通过！