怎样写VB的程序才能知道一个目录中有几个文件。

Question

dim lCount as long
lCount=0
dir "目录\*.*",vbnormal
do while dir<>""
    lCount =lCount +1
loop
if lCount>0 then lCount =lCount +1 '该步骤必须要，否则文件数会比实际少一个

Answer 1

使用 Dirdim file as string
dim i as long
file = dir ( path & "\*.*" ) 'path 是目录路径
do
  if file <> "" then
    i = i +1
  else
    exit do
  end if
  file = dir
loop
文件数目 = i + 1