[已解决]excel可以指定删除任意文件吗？？

xdwy81129

excel可以指定删除任意文件吗？？

如题：
E:\学习\余额.doc

E:\光盘\DNRJ\照片.JGP

等等文件的类型，怎么用vba写删除上面2个文件的代码呢？？

另问一个删除文件夹的代码
如果是删除E:\学习   的这个文件夹，应该怎么写代码呢？？？

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-1-25 20:05

1. 
   
2. Sub DeleteFile(FilePath As String)
   
3. 'FilePath表示的是文件的完整路径+文件名
   
4. If Dir(FilePath) <> "" Then Kill FilePath
   
5. '若文件存在，则删除该文件
   
6. End Sub
   

复制代码

调用的格式如下：

1. 
   
2. DeleteFile "E:\光盘\DNRJ\照片.JGP"

复制代码

跳转到最佳答案楼层

amulee

RmDir 语句
请参阅     示例     特性

删除一个存在的目录或文件夹。

语法

RmDir path

必要的 path 参数是一个字符串表达式，用来指定要删除的目录或文件夹。path 可以包含驱动器。如果没有指定驱动器，则 RmDir 会在当前驱动器上删除目录或文件夹。

说明

如果想要使用 RmDir 来删除一个含有文件的目录或文件夹，则会发生错误。在试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件。

放浪形骸

1. 
   
2. Sub DeleteFile(FilePath As String)
   
3. 'FilePath表示的是文件的完整路径+文件名
   
4. If Dir(FilePath) <> "" Then Kill FilePath
   
5. '若文件存在，则删除该文件
   
6. End Sub
   

复制代码

调用的格式如下：

1. 
   
2. DeleteFile "E:\光盘\DNRJ\照片.JGP"

复制代码

放浪形骸

这里还有一个取巧的方法来删除文件夹：
快速直通车=====>VBA删除任意文件及文件夹

sunjing-zxl

学习最佳答案