请问vb里有判断目录或者文件的函数吗?各位大S帮忙啊

_Shakespeare 2003-12-03 02:58:19
还有,getfolder函数得到的怎么必须为父文件夹名+i 啊?
...全文
78 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
DemonXHunter 2003-12-06
  • 打赏
  • 举报
回复
用VB自带的dir函数就可以了
dir可以带目录参数,返回第一个文件(目录)
不带参数返回下一个文件(或者目录)
如果没有文件了dir返回空字符串
所以你可以在一个循环里面使用dir
_Shakespeare 2003-12-03
  • 打赏
  • 举报
回复
谢谢

不过我要是想得到当前目录下的所有子文件(或子目录)
用哪个函数?
DemonXHunter 2003-12-03
  • 打赏
  • 举报
回复
Public Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
判断 GetFileAttributes(fileName) & FILE_ATTRIBUTE_DIRECTORY > 0
为真的话就是目录,否则不是
SoHo_Andy 2003-12-03
  • 打赏
  • 举报
回复
如果指定的文件存在,返回 True,若不存在,则返回 False。
object.FileExists(filespec)

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


设置值

attributes 参数的设置可为:

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


7,789

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧