freebasic获取目录中所有文件

使用函数GetDIR.其语法如下。

Function GetDIR(nPath As CWSTR, lName() As WIN32_FIND_DATAW) As Long
获取文件夹下所有文件，包括文件夹 （不包含 . 和 .. 文件夹）
nPath   要获取的路径，要带通配符，如： c:\*.*
lName() 返回文件名列表，包括文件夹名，从 0 开始 到文件数-1
返回文件数，返回0表示失败或无文件。 

如下面的例子。获取E盘软件这个文件夹里的文件。i返回的是文件夹里的文件和文件夹的总个数。如果要分开文件和文件夹就要利用其属性来区分。返回的文件名要是cwstr,否则会出现含有中文的文件名会显示不全。也许以后会简单很多。

Dim AllFiles() As WIN32_FIND_DATAW
Dim  spath As  CWSTR="E:\软件"
Dim i As Long = GetDIR(spath + "\*", AllFiles())
Print i
for k As Long = 0 To UBound(AllFiles)
   If (AllFiles(k).dwFileAttributes And vbDirectory)=0 Then 
      Print  cwstr(AllFiles(k).cFileName)
     End if
Next