发信人: ll99()
整理人: winsy(2003-03-05 16:21:03), 站内信件
|
【 在 wang_chun () 的大作中提到: 】
: 假設c:\temp這個文件夾內有10000個文件, 要將文件名中含有字符串"abc"
: 的文件名加入到一個list里面去。
:
: 如: var1=dir("c:\temp\*abc*.*")
: .......
var1=dir("C:\temp\*abc*.*")
while var1<>""
list1.additem var1
var1=dir()
wend
附：Dir()函数说明
返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的
模式或文件属性、或磁盘卷标相匹配。
语法
Dir[(pathname[, attributes])]
Dir 函数的语法具有以下几个部分：
部分 描述
pathname 可选参数。用来指定文件名的字符串表达式，可能包含目录或文件夹、
以及驱动器。如果没有找到 pathname，则会返回零长度字符串 ("")。
attributes 可选参数。常数或数值表达式，其总和用来指定文件属性。如果省略
，则会返回匹配 pathname 的所有文件。
设置值
attributes 参数的设置可为：
常数 值 描述
vbNormal 0 常规
vbHidden 2 隐藏
vbSystem 4 系统文件
vbVolume 8 磁盘卷标；如果指定，则其它属性都会忽略
vbDirectory 16 目录或文件夹
注意 这些常数是由 VBA 所指定的，在程序代码中的任何位置，可以使用这些
常数来替换真正的数值。
说明
Dir 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文件。
在第一次调用 Dir 函数时，必须指定 pathname，否则会产生错误。如果也指定
了文件属性，那么就必须包括 pathname。
Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文
件名，再一次调用 Dir，且不要使用参数。如果已没有合乎条件的文件，则 Dir
会返回一个零长度字符串 ("")。一旦返回值为零长度字符串，并要再次调用 D
ir 时，就必须指定 pathname，否则会产生错误。不必访问到所有匹配当前 pat
hname 的文件名，就可以改变到一个新的 pathname
上。但是，不能以递归方式来调用 Dir 函数。以 vbDirectory 属性来调用 Dir
不能连续地返回子目录。
提示 由于文件名并不会以特别的次序来返回，所以可以将文件名存储在一个数
组中，然后再对这个数组排序。
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.102.89.206]
|
|