Đá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
  Cài đặt ODBC -nền tảng kết nối Access và nguồn dữ liệu khác Noname 33 19,294 01-12-16, 06:49 PM
Bài mới nhất: atula77
  Xây dựng Class Modules trong Access ( Cơ bản đến Nâng cao) maidinhdan 2 181 13-11-16, 05:32 PM
Bài mới nhất: cpucloi
  Ms Access VBA và Google drive, một vài ý tưởng trong chia sẻ và đồng bộ số liệu... paulsteigel 46 3,853 07-10-16, 02:43 PM
Bài mới nhất: kieu manh
  Xuất từ Access ra excel mà không cần phải có file định sẵn trungminh 3 351 18-09-16, 02:33 AM
Bài mới nhất: maidinhdan
  [Hỏi] Xuất dữ liệu từ Access ra Excel bị ẩn cột Minh Tiên 0 133 02-09-16, 05:38 PM
Bài mới nhất: Minh Tiên

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ơ