Giúp tạo và kiểm tra folder bằng lệnh foxpro

[ngmcuongbl]

Mình cần viết 1 ứng dụng nhỏ bằng ngôn ngữ foxpro, cở sở dữ liệu lấy từ excel.
Cụ thể là khi đăng nhập vào ứng dụng hiện ra form chọn ngày tháng năm làm việc, khi mình chọn xong ứng dụng sẽ dò trong thư mục CSDL có tháng năm năm (ví dụ 022011) không, nếu không thì tạo ra thư mục này set đường dẫn CSDL làm việc vào đây. Tiếp đó chọn form nhập dữ liệu vào và cũng làm tương tự như bước trên, kiểm tra mã số gồm 10 chữ số nếu k có thì tạo thư mục nếu có thì set đường dẫn vào thư mục này.
Các bạn giúp mình, cám ơn thật nhiều

 

[luumanh]

cho xem bạn viết được như thế nào mới giúp được chứ

 

[ngmcuongbl]

Mình đã tạo xong form giao diện, form đăng nhập, form import dữ liệu vào dbf, giờ cần lệnh là lúc chọn ngày tháng năm làm việc nhấn nút chấp nhận thì nó sẽ tạo ra folder có lên là 2 chứ số tháng và 2 chữ số năm. tương tự cho việc nhập mã số, bạn giúp mình nhé. Cám ơn nhiều!
Mình diễn tả như sau nhé:
thư mục ứng dụng chứa 3 thư mục ungdung(form,report,data) mình đã tạo xong cái data nhưng nếu lưu trong 1 file thì rất khó kiểm soát mình muốn tách ra như sau:
data(mã số a, mã số b,....)
mã số a(tháng năm 1, tháng năm 2,...)
cụ thể là:
nhập ms: 123456789
bước 1:
tìm trong thư mục data có 123456789 không?
if không thì tạo thư mục có tên này và tiếp bước 2, nếu có thì tiếp bước 2
Bước 2:
chọn ngày tháng làm việc 012011
find thư mục 012011 có trong thư mục 123456789 không
if không thì tạo thư mục 012011 và set csdl làm việc là thư mục này
else nếu có thư mục 012011 thì set csdl làm việc là thư mục này

 

[luumanh]

1. bạn cho mình biết giá trị ngày tháng năm làm việc = textbox hay ở đâu...
2. nhập ms : 123456789 thì được rồi, nhưng tìm trong data là cụ thể file nào ... chưa hiểu

 

[hutieuxidau]

Mình cần viết 1 ứng dụng nhỏ bằng ngôn ngữ foxpro, cở sở dữ liệu lấy từ excel.
Cụ thể là khi đăng nhập vào ứng dụng hiện ra form chọn ngày tháng năm làm việc, khi mình chọn xong ứng dụng sẽ dò trong thư mục CSDL có tháng năm năm (ví dụ 022011) không, nếu không thì tạo ra thư mục này set đường dẫn CSDL làm việc vào đây. Tiếp đó chọn form nhập dữ liệu vào và cũng làm tương tự như bước trên, kiểm tra mã số gồm 10 chữ số nếu k có thì tạo thư mục nếu có thì set đường dẫn vào thư mục này.
Các bạn giúp mình, cám ơn thật nhiều

bạn có thể đưa file lên không? nói thế hơi trừu tượng.

 

[ngmcuongbl]

Em đã làm được, em còn vướng chỗ ví dụ mình cần làm 1 nút (...) khi click vào nút này thì nó hiện ra cửa sổ cho mình chọn file cần xử lý (giống như file\open của word). Anh,chị giúp em nhé!

 

[luumanh]

Em đã làm được, em còn vướng chỗ ví dụ mình cần làm 1 nút (...) khi click vào nút này thì nó hiện ra cửa sổ cho mình chọn file cần xử lý (giống như file\open của word). Anh,chị giúp em nhé!

nút (...) - CLICK bạn code hàm taptin=getf()

 

[ngmcuongbl]

Thanks mọi người, mình đã làm được.

 

[ngmcuongbl]

Mình đã làm được lệnh chọn đường dẫn chứa file xls thế này:
pa=alltrim(GETFILE([xls]))
c=left(pa,RAT([\],pa))

Còn việc lưu kết quả của đoạn lệnh trên vẫn chưa tìm ra cách.
Các bạn giúp mình với!

 

[onglao_danhca]

Bạn thử dùng đoạn code này xem có được không:
********************************
proc copy_xls
********************************
outfile = putfile('.xls') && Ngầm định cho file excel
if empty(outfile)
retu
endif
vt = atc('\',outfile,occu('\',outfile))
namefile = subs(outfile,vt+1,len(outfile)-vt)
ddan = left(outfile,vt)
newfile = "'" + ddan + namefile + "'"
copy to newfile type xls &dk_cop
retu