设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1617|回复: 6
打印 上一主题 下一主题

[与其它组件] [求助]怎麼删除文件夹?

[复制链接]
跳转到指定楼层
1#
发表于 2006-6-17 04:24:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
删除指定的文件夹用什么代码啊?

我想通过窗体删除系统中某个文件夹,但不知代码怎么写,高手帮帮我啊。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-6-17 04:27:00 | 只看该作者
''===============================================================================
''-函数名称:         DelFolder
''-功能描述:         删除文件夹
''-输入参数说明:     参数1:strFolder As String 要删除的文件夹
''-返回参数说明:
''-使用语法示例:
''-参考:
''-使用注意:         需要引用Microsoft Scripting Runtime
''-兼容性:           97,2000,XP,2003
''-作者:         
''-更新日期:        2006-02-24
''===============================================================================
Function DelFolder(strFolder As String) As Boolean
On Error GoTo Err_DelFolder
Dim objFS As FileSystemObject

    Set objFS = CreateObject("Scripting.FileSystemObject")
        objFS.DeleteFolder strFolder, False
        DelFolder = True

Exit_DelFolder:
    Exit Function
   
Err_DelFolder:
    DelFolder = False
    MsgBox Err.Description
    Resume Exit_DelFolder

End Function


[此贴子已经被作者于2006-6-16 20:27:46编辑过]

3#
 楼主| 发表于 2006-6-17 06:49:00 | 只看该作者
我用了icecool版主给的两句代码成功了

Dim fsodelford
  Set fsodelford = CreateObject("Scripting.FileSystemObject")
  fsodelford.DeleteFolder(fpath)
4#
 楼主| 发表于 2006-6-17 06:50:00 | 只看该作者
谢谢回复
5#
发表于 2006-6-17 06:56:00 | 只看该作者
以下是引用知难而进在2006-6-16 22:49:00的发言:


我用了icecool版主给的两句代码成功了

Dim fsodelford
  Set fsodelford = CreateObject("Scripting.FileSystemObject")
  fsodelford.DeleteFolder(fpath)

  其实跟fan0217版主一样的,fan0217的编了函数还有除错的功能,更加方便调用
6#
发表于 2006-6-17 21:54:00 | 只看该作者
学习!!

点击这里给我发消息

7#
发表于 2006-6-20 00:38:00 | 只看该作者
用上了。谢谢大家。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 23:48 , Processed in 0.084902 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表