查找當前目錄下的目錄與文件.(50分)

  • 主题发起人 主题发起人 li_lzp
  • 开始时间 开始时间
L

li_lzp

Unregistered / Unconfirmed
GUEST, unregistred user!
以下為查找filedata目錄下日所有文件與目錄:
代碼如下:
function GetFile(FileData,Socket:TCUSTOMWINSOCKET):boolean;
var
rs:TSEARCHRESC;
H:INTEGER;
comlist:TSTRINGLIST;
s:string;
BEGIN
comlist:=TSTRINGLIST.CREATE;
h:=findfirst(FILEDATA,fmanyfile,rs);
if h=0 then
begin
repeat
s:=rs.filename;
comlist.add(s);
until findnext(rs) <> 0
closefind(rs);
comlist.free;
socket.sendtext(comlist.text);
result:=true;
end
else
begin
showmessage(inttostr(getlasterror()));
result:=false;
end;
END;
結果返回值=2;請高手指明道路,同時用WINDOWS API 函數FINDFIRSTFILE,FINDNEXTFILE,
FINDCLOSE結果也是一樣
 
以下為查找filedata目錄下日所有文件與目錄:
代碼如下:
function GetFile(FileData,Socket:TCUSTOMWINSOCKET):boolean;
var
rs:TSEARCHRESC;
H:INTEGER;
comlist:TSTRINGLIST;
s:string;
BEGIN
comlist:=TSTRINGLIST.CREATE;
h:=findfirst(FILEDATA,fmanyfile,rs);
if h=0 then
begin
repeat
s:=rs.filename;
comlist.add(s);
until findnext(rs) <> 0
closefind(rs);
comlist.free;
socket.sendtext(comlist.text);
result:=true;
end
else
begin
showmessage(inttostr(getlasterror()));
result:=false;
end;
END;
結果錯誤值=2;請高手指明道路,同時用WINDOWS API 函數FINDFIRSTFILE,FINDNEXTFILE,
FINDCLOSE結果也是一樣。而用WINDOWS API函數
DLGDIRLIST(handle,FILEDATA,listbox1.handle,0,DDL_ARCHIVE or DDL_DIRECTORY)
能得到當前目錄下的所有文件與目錄.難道大富翁論談中就沒有高手了嗎?
 
这哪里需要高手:

procedure TForm1.Button1Click(Sender: TObject);
Var
Found: integer;
SearchRec: TSearchRec;
FileName: string;
begin
Found := FindFirst('c:/*.*',faAnyFile,SearchRec);
while Found = 0 do
begin
Filename:=SearchRec.Name;
if SearchRec.Attr=faDirectory then FileName := FileName + '/';
ListBox1.Items.Add(FileName);
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
 
謝謝,我知道是出於FILEDATA這個參數沒有所收起的問題,OK,50分全給你.
同時我還有一個問題:我通過TSOCKET進行文件的復制,在WINDOWS2000下可以進行,
但在WINDOWS98下卻沒有任舍動作.能否郜之.
 
后退
顶部