vba 修改文本文档 指定行_VBA代码解决方案的第65讲内容:在VBA中Dir函数的利用及删除文件的方法...

9d4fa9ebcb7b4915f1ba01caa37ad83b.png

大家好,我们今日继续讲解VBA代码解决方案的第65讲内容:在VBA中Dir函数的利用及删除文件的方法

在操作文件时删除一个文件时再平常不过的事情,选中它右键删除,或者直接按DELETE键删除即可,在VBA中操作却是要利用代码来完成这些操作,用代码该如何进行呢?今日我们来讲解这个问题。在讲解之前还是先看看知识点吧。

一:Dir函数。Dir函数返回一个String,用以表示一个文件名、目录名或文件夹名称。

语法如下:Dir[(pathname[, attributes])]

参数:

a) pathname是可选的,用来指定文件名的字符串表达式,可能包含目录或文件夹、以及驱动器。如果没有找到pathname,则会返回零长度字符串 ("")。

b) attributes是可选的,常数或数值表达式,其总和用来指定文件属性,如下面所示。如果省略,则会返回不包含属性的匹配文件。

vbNormal 0 (缺省) 指定没有属性的文件。

vbReadOnly 1 指定无属性的只读文件。

vbHidden 2 指定无属性的隐藏文件。

VbSystem 4 指定无属性的系统文件,在Macintosh中不可用。

vbVolume 8 指定卷标文件;如果指定了其它属性,则忽略。vbVolume 在Macintosh中不可用。

vbDirectory 16 指定无属性文件及其路径和文件夹。

vbAlias 64 指定的文件名是别名,只在Macintosh上可用。

特别注意: 在第一次调用Dir函数时,必须指定pathname,否则会产生错误。

二:Kill语句,从磁盘中删除文件。

语法如下:Kill pathname

参数pathname是必需的,用来指定一个文件名的字符串表达式,可以包含目录或文件夹、以及驱动器。

特别注意点1:在Microsoft Windows中,Kill方法支持多字符 (*) 和单字符(?)的统配符来指定多重文件,如需要删除当前目录下所有*. Xls文件可以使用下面的代码:Kill "*.xls"

特别注意点2: 使用Kill方法不能删除已打开的文件,否则会产生错误。

有了上面的两个知识点,我们再看使用Kill方法删除指定的文件的方法,如下面的代码。

Sub MyKillFile()

Dim myFile As String

myFile = ThisWorkbook.Path & "ABCabc.docx"

If Dir(myFile) <> "" Then

Kill myFile

Else

MsgBox "NOT " & ThisWorkbook.Path & " ABCabc.docx 文件!"

End If

MsgBox "ok!"

End Sub

代码解析:

MyKillFile过程使用Kill方法示例文件所在文件夹中的“abc.docx”文件。

第3行代码指定所要删除文件的路径和文件名称。

第4行代码使用Dir函数返回指定文件名,如果存在该文件则使用Kill语句删除。

代码窗口:

21751db9ff59e47fb55b1d5f58dea467.png

如果不存在文件,则返回:

72f19d163b82e34edbf4268d29c9b431.png

如果存在此文件,则删除,最后运行完成,返回:

3bbf2ac6adf87e5d840a866f18bed658.png

今日内容回向:

1 DIR 函数的意义是什么?

2 如何删除一个指定文件呢?

欢迎大家到我的自媒体平台沟通交流:个人微信号“NZ9668”、头条号“VBA专家”、百家号“VBA与GO语言”、微信公众号“NZ_9668”、社群“VBA学习交流群”。

这一系列文章是根据我多年的工作经验编写的,也是一直在利用的工具,非常方便好用。现在分享出来,希望能对同样在职场打拼的朋友有些许的帮助,使你的工作更加高效、流畅。朋友们有问题请随时提出来,我们一起探讨学习。对数据分析有需要的公司、组织或个人可以直接联系我,及时为你提供专业的定制技术支持。

工作不是一切。工作是每个人安身立命、成长发展的基础。但你要知道工作是永远也做不完的,时间会抹去很多问题。多关注自己、家人和朋友,这些才是我们生活中更为重要的东西。

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
相关推荐
<p> <b><span style="background-color:#FFE500;">【超实用课程内容】</span></b> </p> <p> <br /> </p> <p> <br /> </p> <p> 本课程内容包含解<span>解读Nginx基础知识,</span><span>解读Nginx核心知识、带领学员进</span>高并发环境下Nginx性能优化实战,让学生能够快速将学融合到企业应用。 </p> <p> <br /> </p> <p style="font-family:Helvetica;color:#3A4151;font-size:14px;background-color:#FFFFFF;"> <b><br /> </b> </p> <p style="font-family:Helvetica;color:#3A4151;font-size:14px;background-color:#FFFFFF;"> <b><span style="background-color:#FFE500;">【课程如何观看?】</span></b> </p> <p style="font-family:Helvetica;color:#3A4151;font-size:14px;background-color:#FFFFFF;"> PC端<a href="https://edu.csdn.net/course/detail/26277"><span id="__kindeditor_bookmark_start_21__"></span></a><a href="https://edu.csdn.net/course/detail/27216">https://edu.csdn.net/course/detail/27216</a> </p> <p style="font-family:Helvetica;color:#3A4151;font-size:14px;background-color:#FFFFFF;"> 移动端CSDN 学院APP(注意不是CSDN APP哦) </p> <p style="font-family:Helvetica;color:#3A4151;font-size:14px;background-color:#FFFFFF;"> 本课程为录播课,课程永久效观看时长,大家可以抓紧时间学习后一起讨论哦~ </p> <p style="font-family:"color:#3A4151;font-size:14px;background-color:#FFFFFF;"> <br /> </p> <p class="ql-long-24357476" style="font-family:"color:#3A4151;font-size:14px;background-color:#FFFFFF;"> <strong><span style="background-color:#FFE500;">【学员专享增值服务】</span></strong> </p> <p class="ql-long-24357476" style="font-family:"color:#3A4151;font-size:14px;background-color:#FFFFFF;"> <b>源码开放</b> </p> <p class="ql-long-24357476" style="font-family:"color:#3A4151;font-size:14px;background-color:#FFFFFF;"> 课件、课程案例代码完全开放给你,你可以根据学知识,自修改、优化 </p> <p class="ql-long-24357476" style="font-family:"color:#3A4151;font-size:14px;background-color:#FFFFFF;"> 下载方式电脑登录<a href="https://edu.csdn.net/course/detail/26277"></a><a href="https://edu.csdn.net/course/detail/27216">https://edu.csdn.net/course/detail/27216</a>,播放页面右侧点击课件进资料打包下载 </p> <p> <br /> </p> <p> <br /> </p> <p> <br /> </p>
©️2020 CSDN 皮肤主题: 数字20 设计师:CSDN官方博客 返回首页