Sử dụng hàm ADIR() ? (2 người xem)

[toikhongvao]

http://www.mediafire.com/?mnyynia10ut

file trên mình đã làm được khi thực thi 1 file bằng cách truyền tham số namthang và cn cho nó nhưng bây giờ không cần thiết nữa. Bây giờ mình muốn bỏ tất cả các file dữ liệu vào một thư mục, chạy chương trình thì nó tự động đến thư mục đó lấy từng file làm cho đến khi hết file dữ liệu.
các file dữ liệu đều lưu dưới dạng ps0110,ps0210,ps0310,....(ps+nam+thang)
Có người nói mình xài hàm ADIR() nhưng mình cũng không rành lắm.
Có thể cho mình xin ví dụ mẫu thực tế được không ?
Xin giúp mình, THX

 

[luumanh]

dùng hàm ADIR()

bạn dùng thử đọan code này xem


thí dụ bạn
1. có thư mục c:\ketoan\data
2. các file dữ liệu đều lưu dưới dạng ps0110,ps0210,ps0310,....(ps+nam+thang)

public mthunuc,mtaptin
mthumuc=[c:\ketoan\data]
nam=right(str(year(date())),2) && nam lay hai so sau
for i=1 to 12
mtaptin=mthumuc+[\ps]+tran(i,[@l 99])+nam
if file([&mtaptin..dbf])
* những lệnh xử lý số liệu
endif
endfor