Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Xóa một tập tin văn bản bất kỳ với Access
#1
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.
Chữ ký của duyliem2222 Xin chào, mình là duyliem2222, Tham gia http://thuthuataccess.com/forum từ ngày 27-11 -12.
Reply
Những người đã cảm ơn
#2
(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?
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
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?
Chữ ký của duyliem2222 Xin chào, mình là duyliem2222, Tham gia http://thuthuataccess.com/forum từ ngày 27-11 -12.
Reply
Những người đã cảm ơn
#4
(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é!014
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 đó.
Chữ ký của trungn077 Xin chào, mình là trungn077, Tham gia http://thuthuataccess.com/forum từ ngày 09-07 -12.
ღღღღღTài sản của trungn077 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn duyliem2222
#5
(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é!014
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.015
Chữ ký của duyliem2222 Xin chào, mình là duyliem2222, Tham gia http://thuthuataccess.com/forum từ ngày 27-11 -12.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Demo Import/Export Excel + Hàm Liệt tên ALL Access maidinhdan 45 2,435 09-09-17, 11:39 PM
Bài mới nhất: maidinhdan
  [Help] Thông báo trong Ms Access khi Mail Merge phamngocsang 3 179 08-07-17, 09:51 AM
Bài mới nhất: cpucloi
  Export Table từ access sang 1 file word có sẵn! cong_agribankPT 51 18,905 10-03-17, 10:49 PM
Bài mới nhất: nhatpc
  Xây dựng Class Modules trong Access ( Cơ bản đến Nâng cao) maidinhdan 4 826 26-12-16, 10:17 PM
Bài mới nhất: maidinhdan
  [Help] Xuất dữ liệu access sang excel doandinhtam 11 1,077 20-12-16, 10:10 PM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ