SKY外语计算机学习

标题: 获取目录所有文件和文件夹名 [打印本页]

作者: SKY定格    时间: 2012-5-14 20:11
标题: 获取目录所有文件和文件夹名
本帖最后由 sky_yx 于 2015-12-30 14:22 编辑
  1. mypath = "C:\Program Files\Tencent\QQ\users\"
  2. myname = Dir(mypath, vbDirectory)
  3. Do While myname <> ""
  4. DoEvents
  5.     If myname <> "." And myname <> ".." Then
  6.         ' 使用位比较来确定 MyName 代表一目录。
  7.         If (GetAttr(mypath & myname) And vbDirectory) = vbDirectory Then
  8.             Print myname    ' 如果它是一个目录,将其名称显示出来。
  9.         End If
  10.     End If
  11.     myname = Dir
  12.     Loop
复制代码







欢迎光临 SKY外语计算机学习 (http://skywj.com/) Powered by Discuz! X2.5