当前位置:首页 » 文件管理 » vb判断文件夹是否空

vb判断文件夹是否空

发布时间: 2023-08-13 02:27:52

A. 在VB中如何判断文件、文件夹是否存在

Dir ([PathName],[Attributes as VbFileAttribute = vbNormal]) as String 解释:PathName:文件或文件夹的绝对路径。 Attributes:文件的属性--默认值:vbNormal 是普通文件,vbHidden 是隐藏文件,vbDirectory是文件夹。 "[]"内为可以选项。Dir(file)=""表示文件或文件夹不存,即文件或文件夹的实际路径文空。Dir(file)<>""表示文件或文件夹存在,即文件或文件夹实际路径不为空。 例如判断C:\Windows\System32\cmd.exe是否存在,如存在,就调用它,可用下列语句: '文件存,利用Shell调用,默值为vbNormalIf Dir("C:\Windows\System32\cmd.exe")<>"" Then Shell "C:\Windows\System32\cmd.exe"End If 如果判断的文件是隐藏文件,上面的语则无法判断出来,这时就需要加上后面的可选项目,例如 判断D盘根目录下是否有隐藏文件text.txt,就用下面的源代码: If Dir("D:\text.txt",vbHidden)<>"" Then Msgbox "找到Text.txt隐藏文件" End If 判断件夹是否存,与判断隐藏文件的方法一样,可用下列语句: Dir("文件夹路径",vbDirectory)<>"" 例如,要判断文件D:\Backup是否存在,源代码如下: If Dir("D:\Backup",vbDirectory)<>"" Then Msgbox "文件夹:D:\Backup 存在!" End If 二、在VB的编程,也会用到利用应程序时生成文件夹。可以利用下面的言句生成文件夹: MkDir "文件夹路径" 例如:在应用程序根目录下,生成Backup文件夹。在生成之前先判断该文件夹否存在。源代码如下: Dim BackupPath As String Select Case Right(App.Path,1) '判断路径是否包含'\' case '\': BackupPath = App.Path & "Backup" case Else BackupPath = App.Path & "\Backup" End Select If Dir(BackuPath,vbDirectory)="" Then '文件夹不存在 MkDir BackuPath '在应用程序根目下,创建文件夹Backup End If

热点内容
文件夹复制并重命名 发布:2025-02-02 08:41:39 浏览:269
安东尼我的世界服务器 发布:2025-02-02 08:40:09 浏览:759
iphone6如何删除缓存 发布:2025-02-02 08:33:06 浏览:830
为什么路由器的密码是五位数 发布:2025-02-02 08:32:30 浏览:720
怎样编程选股 发布:2025-02-02 08:22:02 浏览:418
电脑web应用服务器 发布:2025-02-02 08:05:31 浏览:811
电脑存储内存多少合适 发布:2025-02-02 08:00:15 浏览:110
登录界面android 发布:2025-02-02 07:53:23 浏览:844
编译时注解与运行时注解 发布:2025-02-02 07:53:14 浏览:818
怎样登陆ftp 发布:2025-02-02 07:44:44 浏览:637