判断文件夹是否存在的方法?

1. 用dir

If Len(Dir("D:/DownLoads", 16)) > 0 Then
      MsgBox "文件夹存在"
    Else
      MsgBox "文件夹不存在"
    End If

2. 用Fso.FolderExists

工程-引用-勾选“Microsoft Scripting Runtime”-确定
加入一个text 控件 text1,一个command 控件command1
代码如下:
Option Explicit

Private Sub Command1_Click()
Dim Fso As New FileSystemObject

If Fso.FileExists(Text1) = True Then '判断文件是否存在
MsgBox "文件存在"

ElseIf Fso.FolderExists(Text1) = True Then '判断文件夹是否存在
MsgBox "文件夹存在"
Else
MsgBox "文件及文件夹不存在"
End If
End Sub

'实例

If Fso.FolderExists("e:/aa") = True Then
   '判断文件夹是否存在
   MsgBox "文件夹存在"
end if

Dir函数 参数详解

--------------------------------------------------------------------------------

返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。

语法

Dir[(pathname[, attributes])]

Dir 函数的语法具有以下几个部分:

部分 描述
pathname 可选参数。用来指定文件名的字符串表达式,可能包含目录或文件夹、以及驱动器。如果没有找到 pathname,则会返回零长度字符串 ("")。
attributes 可选参数。常数或数值表达式,其总和用来指定文件属性。如果省略,则会返回匹配 pathname 但不包含属性的文件。

设置值

attributes 参数的设置可为:

常数 值 描述
vbNormal 0 (缺省) 指定没有属性的文件。
vbReadOnly 1 指定无属性的只读文件
vbHidden 2 指定无属性的隐藏文件
VbSystem 4 指定无属性的系统文件
vbVolume 8 指定卷标文件;如果指定了其它属性,则忽略vbVolume
vbDirectory 16 指定无属性文件及其路径和文件夹。

注意 这些常数是由 VBA 所指定的,在程序代码中的任何位置,可以使用这些常数来替换真正的数值。

说明

Dir 支持多字符 (*) 和单字符 (?) 的通配符来指定多重文件。

由于 Macintosh 不支持通配符,使用文件类型指定文件组。可以使用 MacID 函数指定文件类型而不用文件名。比如,下列语句返回当前文件夹中第一个TEXT文件的名称:

Dir("SomePath", MacID("TEXT"))

为选中文件夹中所有文件,指定一空串:

Dir("")

在 Microsoft Windows 中,如果在Dir函数中使用MacID函数,将产生错误。

任何大于256的attribute值都被认为是MacID 函数的值。

在第一次调用 Dir 函数时,必须指定 pathname,否则会产生错误。如果也指定了文件属性,那么就必须包括 pathname。

Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名,再一次调用 Dir,且不要使用参数。如果已没有合乎条件的文件,则 Dir 会返回一个零长度字符串 ("")。一旦返回值为零长度字符串,并要再次调用 Dir 时,就必须指定 pathname,否则会产生错误。不必访问到所有匹配当前 pathname 的文件名,就可以改变到一个新的 pathname 上。但是,不能以递归方式来调用 Dir 函数。以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。

提示 由于文件名并不会以特别的次序来返回,所以可以将文件名存储在一个数组中,然后再对这个数组排序。

3. 用api的PathFileExists

Private Declare Function PathFileExists Lib "shlwapi" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

debug.print PathFileExists("c:/windows/system32")'为1存在,为0不存在

判断文件夹是否存在的方法相关推荐

  1. C#中判断文件夹或文件是否存在的方法

    c#中操作IO非常简单,下面介绍如何判断文件夹或文件是否存在的方法.  代码如下:  //判断文件夹是否存在,不存在则创建文件夹  if (!System.IO.Directory.Exists(@& ...

  2. java搜索文件夹中文件是否存在_java中判断文件文件夹是否存在的方法(附代码)...

    1.判断文件夹是否存在,不存在则创建:(java相关视频教程推荐:java视频教程)File folder = new File("d:est1est2"); if (!folde ...

  3. python判断是不是文件夹_Python判断文件和文件夹是否存在的方法

    一.python判断文件和文件夹是否存在.创建文件夹 复制代码代码如下: >>> import os >>> os.path.exists("d:/ass ...

  4. python 怎么判断文件存在哪里_Python判断文件和文件夹是否存在的方法

    一.python判断文件和文件夹是否存在.创建文件夹 复制代码 代码如下: >>> import os >>> os.path.exists('d:/assist' ...

  5. Python判断文件和文件夹是否存在的方法

    这篇文章主要介绍了Python判断文件和文件夹是否存在的方法,本文还讲解了判断是否为文件或者目录的方法.os.path.lexist的作用.FTP中判断文件或目录是否存在等内容,需要的朋友可以参考下 ...

  6. C语言判断文件夹或者文件是否存在的方法

    C语言判断文件夹或者文件是否存在的方法 方法一:access函数判断文件夹或者文件是否存在 函数原型: int access(const char *filename, int mode); 所属头文 ...

  7. python判断远程ftp文件是否存在_Python判断文件和文件夹是否存在的方法

    一.python判断文件和文件夹是否存在.创建文件夹 >>> import os >>> os.path.exists('d:/assist') True > ...

  8. 判断文件或文件夹是否存在的方法

    判断文件是否存在 fopen的读,参考该文. 判断文件夹是否存在  access函数,参考该文 access函数还能文件是否存在,以及判断文件(夹)的属性

  9. 【C/C++】如何判断文件夹或者文件是否存在

    方法一:access函数判断文件夹或者文件是否存在 函数原型: int access(const char *filename, int mode); 所属头文件:io.h filename:可以填写 ...

最新文章

  1. 开源,是一种新的平台之战
  2. 基于Java的RDMA高性能通信库(四):DaRPC
  3. html兄弟选择器怎么用,CSS的相邻兄弟选择器用法示例讲解
  4. Java Set集合详解及Set与List的区别
  5. H - Hello Ms. Ze(树状数组套主席树,线段树上二分)
  6. Java系列笔记(4) - JVM监控与调优【转】
  7. CVPR 2021 | 跨模态点云补全新框架ViPC:用单一视图推断完整信息
  8. python识别虚假新闻的分类器_使用NLP检测和对抗AI生成的假新闻
  9. 漫步数学分析番外二(上)
  10. java多态上转下_java的多态(向上转型、向下转型)
  11. Python 爬虫案例
  12. 禁用联想笔记本电脑自带的键盘
  13. 正点原子STM32 ISP电路分析
  14. SPSS常用的几种统计分析
  15. 左耳朵耗子:公司监控员工行为,这事逻辑就不对
  16. 求字符串长度的函数的几种实现方法
  17. ubuntu ibus拼音异常
  18. 互补品的需求曲线图_如图,D是某商品的需求曲线,当该商品的互补品价格下降时,则该商品的需求曲线会出现移动。下列各图(横轴为需求量,纵轴为价格)能够正确反映这一变化的是...
  19. RTKLIB学习总结(五)后处理函数调用流程、postpos、execses_b、execses_r、execses、procpos、rtkpos
  20. 常用计算机字体的后缀名是,自考计算机应用基础试题及参考答案

热门文章

  1. 关闭 php X-Powered-By 信息
  2. 【 题集 】 寒假计划——最短路
  3. 图形图像的基础知识总结
  4. DB2性能优化 – 如何通过db2优化工具提升SQL查询效率
  5. python更改文件后缀名
  6. yum install时提示This system is not registered with an entitlement server
  7. matplotlib可视化初相识
  8. 云计算超融合一体机,加速企业互联网下半程
  9. openEuler上一键部署opengauss数据库
  10. ABAP ALV OO 自定义Toolbar 和Command及listmenu按钮