Tùy chọn
Xóa một tập tin văn bản bất kỳ với Access
- Xóa một tập tin văn bản bất kỳ với Access
-
Xóa một tập tin văn bản bất kỳ với Access
duyliem2222 > 27-11-12, 05:28 PM
Mình đang làm một chương trình nhỏ để quản lý văn thư. Mình xin hỏi đoạn code để xóa một file văn bản (word, excel, pdf...) bằng đường dẫn đã lưu trong data. Xin các pro chỉ giáo. -
RE: Xóa một tập tin văn bản bất kỳ với Access
Xuân Thanh > 27-11-12, 05:43 PM
(27-11-12, 05:28 PM)duyliem2222 Đã viết: Mình đang làm một chương trình nhỏ để quản lý văn thư. Mình xin hỏi đoạn code để xóa một file văn bản (word, excel, pdf...) bằng đường dẫn đã lưu trong data. Xin các pro chỉ giáo.
Xóa là xóa thế nào? Xóa đường dẫn đã lưu trong Data hay xóa hẳn file đó trong ổ đĩa rồi quăng vào thùng rác? -
RE: Xóa một tập tin văn bản bất kỳ với Access
duyliem2222 > 27-11-12, 05:49 PM
Xóa file văn thư vào thùng rác. Hoặc nếu có thể thì có thể cho tùy chọn là xóa lun hay xóa vào thùng rác dc ko bạn? -
RE: Xóa một tập tin văn bản bất kỳ với Access
trungn077 > 27-11-12, 09:54 PM
(27-11-12, 05:49 PM)duyliem2222 Đã viết: Xóa file văn thư vào thùng rác. Hoặc nếu có thể thì có thể cho tùy chọn là xóa lun hay xóa vào thùng rác dc ko bạn?
Xoá 1 file Excel hoặc ...
Kill "D:\thunghiem\Book1.xls"
Xoá nhiều file trên 1 Folder
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("D:\thunghiem")
Set colItems = objFolder.Items
For Each objItem In colItems
objItem.InvokeVerbEx ("Delete")
Next
Tuỳ biến nhé!
Nếu muốn xoá vào thùng rác thì dùng code thứ 2 cũng di chuyển vào thùng rác lun đó. -
RE: Xóa một tập tin văn bản bất kỳ với Access
duyliem2222 > 28-11-12, 03:18 PM
(27-11-12, 09:54 PM)trungn077 Đã viết: Xoá 1 file Excel hoặc ...
Kill "D:\thunghiem\Book1.xls"
Xoá nhiều file trên 1 Folder
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("D:\thunghiem")
Set colItems = objFolder.Items
For Each objItem In colItems
objItem.InvokeVerbEx ("Delete")
Next
Tuỳ biến nhé!
Nếu muốn xoá vào thùng rác thì dùng code thứ 2 cũng di chuyển vào thùng rác lun đó.
Cám ơn bạn.