Thủ thuật: Xóa một thư mục
Tác giả: Sưu tầm
Mô tả: Xóa một thư mục chỉ với vài dòng code
Các bạn vào trang http://www.forum.caulacbovb.com/viewtopic.php?f=7&t=14136#p84095 sẽ thấy cách xóa thư mục của T7. Nếu bỏ hết ghi chú thì cũng hết hơn 10 dòng. Cách của mình thì dùng hàm Dir nên ngắn gọn hơn nhiều.
- Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
- Tìm kiếm trước khi đặt câu hỏi
Xóa một thư mục
-
- Thành viên tích cực
- Bài viết: 128
- Ngày tham gia: T.Bảy 18/06/2011 8:45 am
- Has thanked: 2 time
- Been thanked: 13 time
Re: Xóa một thư mục
Bạn kiểm tra lại code đi
! Tớ xóa 1 folder mà nó báo lỗi là: Bad file name or number
.


- VuVanHoanh
- Thành viên danh dự
- Bài viết: 1259
- Ngày tham gia: T.Năm 03/06/2010 9:23 pm
- Đến từ: Kim Sơn - Đông Triều - Quảng Ninh
- Has thanked: 22 time
- Been thanked: 137 time
- Liên hệ:
-
- Thành viên tích cực
- Bài viết: 128
- Ngày tham gia: T.Bảy 18/06/2011 8:45 am
- Has thanked: 2 time
- Been thanked: 13 time
Re: Xóa một thư mục
Code của các bạn chỉ có thể xóa file
! Chưa thể xóa folder con
.
Cũng gọn
! Đúng không? Xóa đc tất cả trong folder chính
.


Mã: Chọn hết
Public Function KillFolder(ByVal FullPath As String) As Boolean
On Error Resume Next
Dim oFso As New Scripting.FileSystemObject
If Right(FullPath, 1) = "\" Then FullPath = Left(FullPath, Len(FullPath) - 1)
If oFso.FolderExists(FullPath) Then
oFso.DeleteFolder FullPath, True
KillFolder = Err.Number = 0 And oFso.FolderExists(FullPath) = False
End If
End Function
Cũng gọn


-
- Thành viên năng nổ
- Bài viết: 68
- Ngày tham gia: T.Sáu 08/01/2010 2:54 pm
- Has thanked: 1 time
- Been thanked: 1 time
Re: Xóa một thư mục
nếu folder đó đang bị truy xuất bởi 1 ứng dụng nào đó
thì nó có kiểm tra và xóa đc ko nhỉ ?
thì nó có kiểm tra và xóa đc ko nhỉ ?
- NTN
- Thành viên tâm huyết
- Bài viết: 474
- Ngày tham gia: T.Tư 05/02/2014 3:43 pm
- Đến từ: Cao Lãnh, Đồng Tháp,Việt Nam
- Has thanked: 19 time
- Been thanked: 7 time
- Liên hệ:
Re: Xóa một thư mục
Rất đơn giản các bạn chỉ cần coppy đoạn code dưới vào form chỉ sửa lại đường dẫn đến thư mục xóa :
Hoặc các bạn có thể tạo 1 Text,1 Command :
-Text1 = Đường dẫn thư mục xóa
-Command1 = Đưa dữ liệu từ Text1 đến RmDir
Ở phần Command1 các bạn thêm code sau :
Vậy là xong khi bạn coppy đường dẫn đến thư mục nhấn Command1 thì sẽ xóa đi thư mục !
Ngoài ra các bạn có thể sử dụng CommonDialog1 để mở 1 file xóa Các bạn thêm code này vào phần Form log
Và thêm Command2 chép đoạn code sau :
Mã: Chọn hết
Option Explicit
Private Sub Form_Load()
RmDir "D:\My Folder"
End Sub
Hoặc các bạn có thể tạo 1 Text,1 Command :
-Text1 = Đường dẫn thư mục xóa
-Command1 = Đưa dữ liệu từ Text1 đến RmDir
Ở phần Command1 các bạn thêm code sau :
Mã: Chọn hết
RmDir Text1.text
MsgBox "Folder da duoc xóa !"
Vậy là xong khi bạn coppy đường dẫn đến thư mục nhấn Command1 thì sẽ xóa đi thư mục !
Ngoài ra các bạn có thể sử dụng CommonDialog1 để mở 1 file xóa Các bạn thêm code này vào phần Form log
Mã: Chọn hết
Private Sub Form_Load()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub
Và thêm Command2 chép đoạn code sau :
Mã: Chọn hết
Kill Text1.text
MsgBox "File đa đuoc xóa"
Quay về “[VB] Hệ thống - Tập tin - Thư mục và Mạng”
Đang trực tuyến
Đang xem chuyên mục này: Không có thành viên nào trực tuyến. và 1 khách