#include "apdefap.h"
void filelist(char* FileName) //填入需要查询的文件目录如 filelist(“D:\\biaogei\\*.xls”)
{

typedef struct _FILETIME {
DWORD dwLowDateTime;
DWORD dwHighDateTime;
} FILETIME;

typedef FILETIME *LPFILETIME;


typedef struct _WIN32_FIND_DATA {
DWORD dwFileAttributes;
FILETIME ftCreationTime;
FILETIME ftLastAccessTime;
FILETIME ftLastWriteTime;
DWORD nFileSizeHigh;
DWORD nFileSizeLow;
DWORD dwReserved0;
DWORD dwReserved1;
TCHAR cFileName[MAX_PATH];
TCHAR cAlternateFileName[14];
} WIN32_FIND_DATA;

typedef WIN32_FIND_DATA *LPWIN32_FIND_DATA;


#pragma code ("kernel32.dll")
HANDLE FindFirstFileA(LPCTSTR lpFileName,LPWIN32_FIND_DATA lpFindFileData);
BOOL WINAPI FindNextFileA(
HANDLE hFindFile,
LPWIN32_FIND_DATA lpFindFileData
);
BOOL FindClose(HANDLE hFindFile);
#pragma code()

HANDLE handle;
WIN32_FIND_DATA filedata;
WIN32_FIND_DATA filedata1;
BOOL SDSD;
int sa=0;
handle =FindFirstFileA(FileName, &filedata);
SetPropWord("NewPdl12.PDL","列表框1","NumberLines",sa+1); //Return-Type: BOOL
SetPropWord("NewPdl12.PDL","列表框1","index",sa+1);
SetPropChar("NewPdl12.PDL","列表框1","Text",filedata.cFileName);
while( (FindNextFileA(handle,&filedata1))) //Return-Type: BOOL

{
sa++;
SetPropWord("NewPdl12.PDL","列表框1","NumberLines",sa+1); //Return-Type: BOOL
SetPropWord("NewPdl12.PDL","列表框1","index",sa+1);
SetPropChar("NewPdl12.PDL","列表框1","Text",filedata1.cFileName);
}

}
利用西门子的列表框，做了个filelistbox功能列表框。