请问：如何用API得到一个指定目录的所有文件

主如果应用FindFirst()、FindNext()来查找所有的文件：

Var

Path:String//指定的目次

SearchRec:

TSearchRec

while

FindNext(SearchRec)=0

do

Slist.Add(SearchRec.Name)

Slist:=

TStringList.Create()

Slist:

TStringList

begin

if

FindFirst(Path,faAnyFile,SearchRec)=0

then

begin

Slist.Add(SearchRec.Name)

end

FindClose(SearchRec)

end

//如许Slist里就记录了所有的文件名(包含路径)

excel vba调用windows API 快速查找所选择的文件

excel选中文件名清单、自动从“a1"文件夹中查找相应的文件。

ShellExecuteA,DataObject,Clipboard,find,SendKeys

Private Declare Function ShellExecute Lib "shell32.dll" Alias _

"ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _

String, ByVal lpszFile As String, ByVal lpszParams As String, _

ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long

Const SW_SHOW = 5

Sub test()

Selection.Copy

Dim MyData As DataObject

Dim sTemp As String, s As String

Set MyData = New DataObject

MyData.GetFromClipboard

sTemp = MyData.GetText

s = Replace(sTemp, vbCrLf, "")

s = Replace(s, vbTab, "")

MyData.SetText (s)

MyData.PutInClipboard

ShellExecute 0&, "find", Range("a1"), _

vbNullString, vbNullString, SW_SHOW

Application.Wait (Now + TimeValue("0:00:02"))

SendKeys s &"{ENTER}"

End Sub

---