• 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

Các thủ thuật về hệ thống, thư mục, tập tin và mạng
baohiep
Thành viên danh dự
Thành viên danh dự
Bài viết: 109
Ngày tham gia: CN 27/12/2009 6:37 pm
Đến từ: Tam Kỳ
Has thanked: 3 time
Been thanked: 9 time

Xóa một thư mục

Gửi bàigửi bởi baohiep » T.Ba 16/10/2012 8:49 pm

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.

  1. Private Function DeleteFolder(ByVal Path As String)
  2.     Path = IIf(Right$(Path, 1) = "\", Path, Path & "\"
  3.     Do While Dir(Path & "\*.*") <> ""
  4.         Kill Path & Dir(Path & "\*.*")
  5.     Loop
  6.     RmDir (Path)
  7. End Function
Sửa lần cuối bởi baohiep vào ngày T.Bảy 20/10/2012 6:16 am với 3 lần sửa.


I'm Hiep.

01676167394
Thành viên tích cự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

Gửi bàigửi bởi 01676167394 » T.Sáu 19/10/2012 6:33 pm

Bạn kiểm tra lại code đi :D! Tớ xóa 1 folder mà nó báo lỗi là: Bad file name or number :-/ .

baohiep
Thành viên danh dự
Thành viên danh dự
Bài viết: 109
Ngày tham gia: CN 27/12/2009 6:37 pm
Đến từ: Tam Kỳ
Has thanked: 3 time
Been thanked: 9 time

Re: Xóa một thư mục

Gửi bàigửi bởi baohiep » T.Sáu 19/10/2012 9:05 pm

Xin lỗi bạn. Mình sửa lại code rồi. Bạn xem lại đi.
I'm Hiep.

Hình đại diện của người dùng
VuVanHoanh
Thành viên danh dự
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ệ:

Re: Xóa một thư mục

Gửi bàigửi bởi VuVanHoanh » CN 21/10/2012 9:12 am

cách khác:
  1. shell "cmd /c md " & chr(34) & đường dẫn thư mục & chr(34)
Since 2008...
One love! :x

01676167394
Thành viên tích cự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

Gửi bàigửi bởi 01676167394 » CN 21/10/2012 12:11 pm

Code của các bạn chỉ có thể xóa file :D! Chưa thể xóa folder con :( .

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 :) ! Đúng không? Xóa đc tất cả trong folder chính :D .

thichvblam
Thành viên năng 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

Gửi bàigửi bởi thichvblam » CN 22/09/2013 5:29 pm

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ỉ ?

Hình đại diện của người dùng
NTN
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 463
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: 18 time
Been thanked: 7 time
Liên hệ:

Re: Xóa một thư mục

Gửi bàigửi bởi NTN » T.Bảy 08/02/2014 7:25 am

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 :

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.0 khách