VB 详细枚举指定目录、文件夹文件列表
VB 详细枚举指定目录、文件夹文件列表:
Public Function TheFileAttr(P As String) As String '读取指定文件/文件夹属性
On Error GoTo Over
If (GetAttr(P) And vbNormal) = vbNormal Then TheFileAttr = "常规"
If (GetAttr(P) And vbReadOnly) = vbReadOnly Then TheFileAttr = TheFileAttr & "+只读"
If (GetAttr(P) And vbHidden) = vbHidden Then TheFileAttr = TheFileAttr & "+隐藏"
If (GetAttr(P) And vbSystem) = vbSystem Then TheFileAttr = TheFileAttr & "+系统"
If (GetAttr(P) And vbDirectory) = vbDirectory Then TheFileAttr = TheFileAttr & "+目录"
If (GetAttr(P) And vbArchive) = vbArchive Then TheFileAttr = TheFileAttr & "+存档"
If (GetAttr(P) And vbAlias) = vbAlias Then TheFileAttr = TheFileAttr & "+别名"
Exit Function
Over:
TheFileAttr = "无法识别"
End Function
Public Function DirList(P As String) As String '详细枚举指定路径下的文件
On Error Resume Next '只能用强行排错兼容某些特殊文件。
Dim NowList As String, DList As String, FList As String, Thelen As String '当前列表,列表列表,文件列表,文件/目录大小,属性
If Right$(P, 1) <> "\" Then P = P & "\" '判断最后一位是否为"\",添加"\"防止搜索出错
NowList = Dir(P, vbHidden + vbNormal + vbReadOnly + vbSystem + vbDirectory) '枚举目录列表
While NowList <> "" '搜索当前目录,直到结果为空
If NowList <> "." And NowList <> ".." Then '排除上级目录和当前目录
If (GetAttr(P & NowList) And vbDirectory) <> vbDirectory Then '判断属性
Thelen = FileLen(P & NowList) '获取文件大小
If Thelen < 1 Then Thelen = Thelen / 1024 & " KB" Else Thelen = Thelen & " Bytes" '处理不足1Kb的
FList = FList & NowList & "|文件|" & Thelen & "|" & TheFileAttr(P & NowList) & "|" & FileDateTime(P & NowList) & vbCrLf '如果找到的是文件,则累加文件'文件名,类型,大小,属性,创建日期
Else
DList = DList & NowList & "|文件夹|0 KB|" & TheFileAttr(P & NowList) & "|" & FileDateTime(P & NowList) & vbCrLf '如果找到的是目录,则累加目录'文件名,类型,大小,属性,创建日期
End If
End If
NowList = Dir() '继续获取
Wend
DirList = DList & FList
Over:
If Len(DirList) = 0 Then DirList = "查找错误,或目录不存在!,或目录为空!"
End Function
Private Sub Command1_Click()
MsgBox DirList("c:\")
End Sub
转自:http://lcx.cc/
相关文章参考:
※VB FTP操作类(可上传、下载、创建文件夹等等)
※VB 删除带子文件夹和文件的文件夹※
※用treeview遍历文件夹(vb)※
※VB 将文件夹复制到指定目录※
※VB 详细枚举指定目录、文件夹文件列表※
※VB删除带子文件夹和文件的文件夹
※VB 打开文件夹,并选中指定的文件
※得到指定文件夹下的文件列表
※VB选择文件夹并取文件夹名※
VB 详细枚举指定目录、文件夹文件列表相关推荐
- python 实现统计ftp服务器指定目录下文件夹数目、文件数目及所有文件大小 本次主要为满足应用方核对上传到ftp服务器的文件是否缺漏。 主要要求:指定目录下,文件夹数目/文件数目/所有文件大小
python 实现统计ftp服务器指定目录下文件夹数目.文件数目及所有文件大小 本次主要为满足应用方核对上传到ftp服务器的文件是否缺漏. 主要要求:指定目录下,文件夹数目/文件数目/所有文件大小,类 ...
- php删除目录文件内容,php清空(删除)指定目录下的文件,不删除目录文件夹的实现代码...
搜索热词 web 开发中我们可能会碰到需要将某个目录下的所有文件清空,但不删除这个目录下的子目录(当然也不会删除被删除的根目录)的情况.那么对于这种只删除文件而不删除目录的方法,你是如何处理的呢?下面 ...
- java从指定文件中删除字符串,java删除指定目录中的文件或文件夹
java删除指定目录中的文件或文件夹 package tf; import java.io.File; public class DelFile { public static void main(S ...
- ubuntu下linux:curl使用ftp获取服务器上指定目录的所有文件集合以及下载
curl使用ftp获取服务器上指定目录的所有文件集合以及下载 直接编译可用,注意修改测试main函数内的字符串,注释我觉得写的挺详细了,跑不起来的评论区可问 头文件 #ifndef FTP_DOWNL ...
- linux怎么在目录下查找文件,linux find-在指定目录下查找文件
find命令用来在指定目录下查找文件.任何位于参数之前的字符串都将被视为欲查找的目录名.如果使用该命令时,不设置任何参数,则find命令将在当前目录下查找子目录与文件.并且将查找到的子目录和文件全部进 ...
- python批量重命名指定目录下所有文件的后缀名
python批量重命名指定目录下所有文件的后缀名 有个需求,需要把某个文件夹下所有后缀名为.abc的更改为.xyz; #批量重命名指定目录下面所有文件的后缀名. word_dir为需要更改后缀的文件夹 ...
- php scandir遍历,php使用scandir()函数扫描指定目录下所有文件示例
本文实例讲述了php使用scandir()函数扫描指定目录下所有文件.分享给大家供大家参考,具体如下: //遍历子文件夹和文件夹的内容 并且计算出文件的多少 //一个demo 引号替换下 functi ...
- php遍历指定目录下的文件,PHP遍历指定目录下所有文件和目录
PHP目录遍历程序代码,将显示指定目录下的所有文件和文件夹,并列出这些文件,最后统计出文件总数.使用的PHP函数有is_dir.closedir.scan_dir等. 本代码比较准确,可判断目录下的是 ...
- Java实现指定目录下的文件查找
Java实现指定目录下的文件查找 入门Java实现文件的查找功能较为简单,主要有以下两种: 1.给出文件名,查找目录及其子目录中是否存在 2.给出后缀名,查找目录及其子目录中相关的文件 题型一: 题目 ...
最新文章
- AIO-3128C四核高性能主板
- hdu 5639(区间dp)
- CentOS 6.X 关闭不需要的 TTY 方法
- zcmu1156: 新年彩灯Ⅰ
- bugzilla perl mysql apache windows,windows下apache安装bugzilla
- 项目中的加减法--《最后期限》读书笔记(1)
- .NET6之MiniAPI(三十):结束篇(附链接)
- excel打开空白_啥?下载的文件显示“文件已损坏,无法打开”?
- 【STL深入学习】SGI STL空间配置器详解(一)-第一级空间配置器
- 小米折叠屏手机设计专利曝光:向内折叠 正面无开孔
- Originpro拟合Gompertz模型
- 关于 WMV、WMA、ASF、ASX 等格式和 Windows Media Player 的说明
- 动态改变图片的useMap属性导致IE假死或崩溃!
- Android开发蓝牙篇之蓝牙设备开启、搜索周边蓝牙设备
- Windows操作系统查看电脑开关机记录
- 全志D1-H裸奔工具XFEL
- 关于dnw驱动安装失败的问题解决
- 单细胞 CUTTag 分析复杂组织中的组蛋白修饰和转录因子
- CMake基础教程(3)cmake变量
- 【Go】用 Go 访问 Redis
热门文章
- “小程序肯定会取代 App!” | 人物志
- 果断 Mark!27 个免费、低成本 Python 学习资源入手!
- 华为惨遭围剿;京东人工智能养猪;三星承认中国市场失败 | 极客头条
- Android 再爆新漏洞,9.0 以下所有手机全部中招!
- C 和 C ++ 再活 45 年不是梦
- 失去了商标品牌的迅雷大数据,变成了摸金狗?
- mysql from_unixtime(_MySQL 数据库中日期与时间函数 FROM_UNIXTIME(), UNIX_TIME()
- JAVA day07 权限,封装,JavaBean(规范代码),static、final关键字
- shell脚本文件中ll提示找不到命令
- php中文分词类 关键词提取,php如何使用PHPAnalysis提取关键字中文分词