นวัตกรรม สิ่งประดิษฐ์ และเทคโนโลยี

กรุณา เข้าสู่ระบบ หรือ สมัครสมาชิก.

เข้าสู่ระบบด้วยชื่อผู้ใช้ รหัสผ่าน และระยะเวลาในเซสชั่น
การค้นหาขั้นสูง  

ผู้เขียน หัวข้อ: เก็บชื่อโฟลเดอร์ไว้ใน Memo  (อ่าน 14 ครั้ง)

NAWATTAKAM

  • Administrator
  • Sr. Member
  • *****
  • กระทู้: 351
เก็บชื่อโฟลเดอร์ไว้ใน Memo
« เมื่อ: กุมภาพันธ์ 11, 2019, 08:54:32 PM »

delphi

โค๊ด
var
  sr: TSearchRec;
  r: Integer;
begin
  r := FindFirst('c:*.*', faDirectory, sr);
  while r = 0 do
  begin
    if (sr.Attr and faDirectory) <> 0 then Memo1.Lines.Add(sr.Name);
    r := FindNext(sr);
  end;
  FindClose(sr);
end;
บันทึกการเข้า