请教各位高手如何获得某个文件名！

Question

文件夹c:\route下有可能会n个dat文件，n值不定。现在我想获得该文件夹下的各个dat文件的文件名，该怎么做了？请教各位高手！

Answer 1

function GetFileName(byval fullpath as string ) as string 
dim x as long 
x =instrrev(fullpath,"\")
if x then fullpath=mid(fullpath,x+1)
x=instrrev(fullpath,".")
if x>1 then  fullpath=left(fullpath,x-1)
GetFileName=fullpath
end function

Answer 2

Dim Filestr As String
Filestr = Dir("d:\test\*.dat", vbNormal)
Do While Filestr <> ""
  Debug.Print "d:\test\" & Filestr
  Filestr = Dir
Loop