Code xoá Thư mục ? (1 người xem)

TrungChinhs · 18/6/11

Ví dụ: để tạo thư mục "CHINH_2011\DATA\Bao cao" tôi dùng code sau:

Mã:

Declare Function MakePath Lib "imagehlp.dll" Alias _
"MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long
Sub New_Foldres()
    Dim MyFoldres As String
    MyFoldres = "D:\CHINH_2011\DATA\Bao cao"
    MakePath MyFoldres & "\"
End Sub

Nếu muốn xóa toàn bộ thư mục này (cả cha, con, cháu...) thì code viết như thế nào ?
Tôi đã thử câu lệnh

Mã:

CreateObject("Scripting.FileSystemObject").DeleteFolder MyFoldres

thì nó chỉ xóa được mỗi thư mục con cuối cùng.

Nhờ các bạn giúp đỡ. Thanks!

Hai Lúa Miền Tây · 18/6/11

Anh dùng thử code sau:

Mã:

Sub DeleteFolder()
    On Error Resume Next
    Dim FSO As Object
    Dim MyPath As String

    Set FSO = CreateObject("scripting.filesystemobject")

    MyPath = "D:\CHINH_2011\DATA\Bao cao"  'Doi duong dan

    If Right(MyPath, 1) = "\" Then
        MyPath = Left(MyPath, Len(MyPath) - 1)
    End If

    If FSO.FolderExists(MyPath) = False Then
        MsgBox MyPath & " khong ton tai !!!"
        Exit Sub
    End If

    FSO.DeleteFolder MyPath
End Sub

ndu96081631 · 18/6/11

TrungChinhs đã viết:
Ví dụ: để tạo thư mục "CHINH_2011\DATA\Bao cao" tôi dùng code sau:

Mã:

Declare Function MakePath Lib "imagehlp.dll" Alias _ "MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long Sub New_Foldres() Dim MyFoldres As String MyFoldres = "D:\CHINH_2011\DATA\Bao cao" MakePath MyFoldres & "\" End Sub

Nếu muốn xóa toàn bộ thư mục này (cả cha, con, cháu...) thì code viết như thế nào ?
Tôi đã thử câu lệnh

Mã:

CreateObject("Scripting.FileSystemObject").DeleteFolder MyFoldres

thì nó chỉ xóa được mỗi thư mục con cuối cùng.

Nhờ các bạn giúp đỡ. Thanks!

Đương nhiên rồi, Câu lệnh CreateObject("Scripting.FileSystemObject").DeleteFolder MyFoldres chỉ xóa tên thư mục cuối cùng mà thôi
Vậy bằng cách nào đó anh xác định được tên thư mục cần xóa chính là CHINH_2011 rồi thế vào câu lệnh trên là xong
------------------------
Ví dụ thế này:

Mã:

Sub Test()
  Dim MyFolder As String, Arr
  On Error Resume Next
  MyFolder = "D:\CHINH_2011\DATA\Bao cao"
  Arr = Split(MyFolder, "\")
  CreateObject("Scripting.FileSystemObject").DeleteFolder Arr(0) & "\" & Arr(1)
End Sub

Anh tự mình tùy biến thêm nhé

ndu96081631 · 18/6/11

TrungChinhs đã viết:
Ví dụ: để tạo thư mục "CHINH_2011\DATA\Bao cao" tôi dùng code sau:

Mã:

Declare Function MakePath Lib "imagehlp.dll" Alias _ "MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long Sub New_Foldres() Dim MyFoldres As String MyFoldres = "D:\CHINH_2011\DATA\Bao cao" MakePath MyFoldres & "\" End Sub

Nhân đây tặng anh cách tạo Folder không dùng API như sau:

PHP:

Function MakePath(ByVal MyFolder As String)
  CreateObject("Wscript.Shell").Run "cmd /c MD """ & MyFolder & """", 0, True
End Sub

Test thử hàm trên

PHP:

Sub Test()
  Dim MyFolder As String
  MyFolder = "D:\CHINH_2011\DATA\Bao cao"
  MakePath (MyFolder)
End Sub

Hàm này cũng "chơi" được với cả đường dẫn là tiếng Việt có dấu (còn hàm API của anh thì.. chưa chắc đâu nha)

thanhlanh · 18/6/11

Hi các Bạn!
Lâu quá mới vào GPE

ndu96081631 đã viết:
Nhân đây tặng anh cách tạo Folder không dùng API như sau:

PHP:

Function MakePath(ByVal MyFolder As String) CreateObject("Wscript.Shell").Run "cmd /c MD """ & MyFolder & """", 0, True End Sub

Test thử hàm trên

PHP:

Sub Test() Dim MyFolder As String MyFolder = "D:\CHINH_2011\DATA\Bao cao" MakePath (MyFolder) End Sub

Hàm này cũng "chơi" được với cả đường dẫn là tiếng Việt có dấu (còn hàm API của anh thì.. chưa chắc đâu nha)

Tặng Chính thì người khác (chẳng hạn mình) lấy được không?, lấy để dành.
Code của ndu rất "độc", có thể gọi là thủ thật VBA
Nhân đây mình có ý kiến thế này: Ndu biên tập lại các thủ thuật của mình để tặng mọi người nhân dịp SN GPE được không? Code hay mà nằm lung tung khắp nơi thật là lãng phí!

ndu96081631 · 18/6/11

thanhlanh đã viết:
Hi các Bạn!
Lâu quá mới vào GPE

Tặng Chính thì người khác (chẳng hạn mình) lấy được không?, lấy để dành.
Code của ndu rất "độc", có thể gọi là thủ thật VBA
Nhân đây mình có ý kiến thế này: Ndu biên tập lại các thủ thuật của mình để tặng mọi người nhân dịp SN GPE được không? Code hay mà nằm lung tung khắp nơi thật là lãng phí!

Em có nguyên 1 thư mục chuyên về Excel trên máy tính, đa phần là những file do em tự mình làm và lưu lại (cũng có 1 phần download trên mạng). Để hôm nào nén lại rồi đưa lên mediafire cho mọi người ai thích thì down về ngâm cứu (khoảng 800MB)
Ẹc... ẹc...
Ah mà cái chữ màu đỏ ở trên là cái gì vậy anh? --=0

TrungChinhs · 18/6/11

Cảm ơn 2 bạn Domfootwear và ndu96081631 ! tôi đã chạy thử, code của 2 bạn đều OK.

ndu96081631 đã viết:
Em có nguyên 1 thư mục chuyên về Excel trên máy tính, đa phần là những file do em tự mình làm và lưu lại (cũng có 1 phần download trên mạng). Để hôm nào nén lại rồi đưa lên mediafire cho mọi người ai thích thì down về ngâm cứu (khoảng 800MB)
Ẹc... ẹc...

Ý kiến của thanhlanh rất hay và ndu96081631 đã đồng ý rồi vậy còn chờ gì nữa ?

haonlh · 18/6/11

ndu96081631 đã viết:
PHP:

Function MakePath(ByVal MyFolder As String) CreateObject("Wscript.Shell").Run "cmd /c MD """ & MyFolder & """", 0, True End Sub

Anh ndu ơi, chắc anh lỡ tay nhập Function đi với End Sub

Mở rộng ra có thể RD thư mục bất kỳ, vì RD <tên thư mục> /s thì xóa thư mục cùng mọi cái gì ở trong

ndu96081631 · 18/6/11

haonlh đã viết:
Anh ndu ơi, chắc anh lỡ tay nhập Function đi với End Sub

Mở rộng ra có thể RD thư mục bất kỳ, vì RD <tên thư mục> /s thì xóa thư mục cùng mọi cái gì ở trong

Đúng rồi!
- Lệnh DOS có thể tạo cùng lúc nhiều thư mục còn VBA thì không làm được
- Còn việc xóa thư mục thì cho dù dùng DOS hay VBA nó cũng xóa thư mục cuối trong đường dẫn ---> Vậy nên chẳng việc gì phải dùng DOS trong trường hợp này (chỉ dùng khi nó có ưu điểm vượt trội hơn VBA)
- Thêm nữa. phải dùng lệnh RMDIR chứ không phải RD vì RD chỉ remove thư mục rổng (bạn cứ thí nghiệm lệnh RD với thư mục có chứa thư mục con sẽ biết)
---------------
Cái vụ End Sub là tôi gõ nhầm ---> Cho vào code, nếu không chạy được thì sửa lại

haonlh · 18/6/11

Có thể anh chưa chú ý các lệnh này.

Khi mở cửa sổ CMD, lệnh

RD <tên thư mục> /s /q

sẽ xóa <tên thư mục> đó, dó có tham số /s nên nó xóa cả file và thư mục con trong nó, có /q để im lặng, không hỏi Are you sure

nguyenmanhnam · 18/6/11

ndu96081631 đã viết:
Em có nguyên 1 thư mục chuyên về Excel trên máy tính, đa phần là những file do em tự mình làm và lưu lại (cũng có 1 phần download trên mạng). Để hôm nào nén lại rồi đưa lên mediafire cho mọi người ai thích thì down về ngâm cứu (khoảng 800MB)
Ẹc... ẹc...
Ah mà cái chữ màu đỏ ở trên là cái gì vậy anh?

Mừng quá rồi còn gì nữa, hôm nào thày gửi lên Mediafire thày để luôn đường Link tại chứ ký của thày nhé. Đối với em, đó quả là một trong những niềm vui lớn nhất trong dịp sinh nhật lần thứ 5 của diện đàn nhà ta.
Kiến thức vậy mà thày không làm giáo viên thì quả là phí quá.

ndu96081631 · 19/6/11

nguyenmanhnam đã viết:
Mừng quá rồi còn gì nữa, hôm nào thày gửi lên Mediafire thày để luôn đường Link tại chứ ký của thày nhé. Đối với em, đó quả là một trong những niềm vui lớn nhất trong dịp sinh nhật lần thứ 5 của diện đàn nhà ta.
Kiến thức vậy mà thày không làm giáo viên thì quả là phí quá.

Vừa post lên mediafire đây:
http://www.mediafire.com/?zn9wxj0x5f096xa
http://www.mediafire.com/?dk16r2afcsg2bz2
http://www.mediafire.com/?v8xvw76xh9t83ct
Các bạn tải về nghiên cứu nha

nguyenmanhnam · 20/6/11

ndu96081631 đã viết:
Vừa post lên mediafire đây:
http://www.mediafire.com/?zn9wxj0x5f096xa
http://www.mediafire.com/?dk16r2afcsg2bz2
http://www.mediafire.com/?v8xvw76xh9t83ct
Các bạn tải về nghiên cứu nha

Tài liệu của thảy rất bổ ích; chắc chắn rất nhiều người sẽ muốn tiếp cận học hỏi được ở trong đó. Tuy nhiên em nghĩ nếu để ở một chủ đề cụ thể như thế này các thành viên khác nhiều người sẽ không biết nếu không vào đề tài này. Em có để nghị thày có thể tạo chữ ký kèm đường Link để tài liệu đến với mọi người rộng rãi hơn. xin cảm ơn thày

ndu96081631 · 20/6/11

nguyenmanhnam đã viết:
Em có để nghị thày có thể tạo chữ ký kèm đường Link để tài liệu đến với mọi người rộng rãi hơn. xin cảm ơn thày

Tôi chẳng biết TẠO CHỮ KÝ như thế nào nữa (trước giờ hổng có quan tâm)....
Thêm nữa: tôi chưa từng nghĩ đồ mình là đồ tốt nên "khoe" thì ngại lắm
Ẹc... Ẹc...

nguyenmanhnam · 20/6/11

ndu96081631 đã viết:
Tôi chẳng biết TẠO CHỮ KÝ như thế nào nữa (trước giờ hổng có quan tâm)....
Thêm nữa: tôi chưa từng nghĩ đồ mình là đồ tốt nên "khoe" thì ngại lắm
Ẹc... Ẹc...

Thày ơi, thế thì thày 'Ủy quyền" cho em cái vụ này nhé; các bài viết của thày luôn được đông đảo mọi người theo dõi, em chắc rằng sẽ có rất nhiều thành viên sẽ rất vui, bất ngờ với món quà này.

ndu96081631 · 20/6/11

nguyenmanhnam đã viết:
Thày ơi, thế thì thày 'Ủy quyền" cho em cái vụ này nhé; các bài viết của thày luôn được đông đảo mọi người theo dõi, em chắc rằng sẽ có rất nhiều thành viên sẽ rất vui, bất ngờ với món quà này.

Tùy ý... tự nhiên, thích làm gì cũng được --=0

Tôi đã đưa lên rồi thì cũng không có ý.. đòi tiền hay bản quyền gì đâu
Tôi chỉ cần 1 điều: Nếu trong quá trình nghiên cứu 1 file nào đó mà các bạn phát hiện có sai sót, vui lòng cho tôi biết để tôi hoàn thiện, như vậy là tôi cảm ơn các bạn vô cùng rồi
Ẹc... Ẹc...

viehoai · 21/6/11

ndu96081631 đã viết:
Tùy ý... tự nhiên, thích làm gì cũng được
Tôi đã đưa lên rồi thì cũng không có ý.. đòi tiền hay bản quyền gì đâu
Tôi chỉ cần 1 điều: Nếu trong quá trình nghiên cứu 1 file nào đó mà các bạn phát hiện có sai sót, vui lòng cho tôi biết để tôi hoàn thiện, như vậy là tôi cảm ơn các bạn vô cùng rồi
Ẹc... Ẹc...

Em có thắc mắc: Nếu đưa lên diễn đàn em có sử dụng Code của Sư Phụ thì làm thế nào để đảm bảo bản quyền code, trong khi đó trong code lại không để lại thông tin gì về tác giả ?

ndu96081631 · 21/6/11

viehoai đã viết:
Em có thắc mắc: Nếu đưa lên diễn đàn em có sử dụng Code của Sư Phụ thì làm thế nào để đảm bảo bản quyền code, trong khi đó trong code lại không để lại thông tin gì về tác giả ?

Ôi... trời... Tôi hổng có quan tâm (vì tôi không kinh doanh)
Tôi chỉ hy vọng khi áp dụng, các bạn đừng rập khuôn, hãy cố nghiên cứu và tìm ra sai sót... Chỉ vậy thôi
(mà bài này lý ra phải hỏi ở đây mới đúng chứ: http://www.giaiphapexcel.com/forum/...ghiên-cứu-của-thày-Ndu96081631-tặng-mọi-người)

Phanhanhdai · 21/6/11

ndu96081631 đã viết:
Ôi... trời... Tôi hổng có quan tâm (vì tôi không kinh doanh)
Tôi chỉ hy vọng khi áp dụng, các bạn đừng rập khuôn, hãy cố nghiên cứu và tìm ra sai sót... Chỉ vậy thôi
(mà bài này lý ra phải hỏi ở đây mới đúng chứ: http://www.giaiphapexcel.com/forum/...ghiên-cứu-của-thày-Ndu96081631-tặng-mọi-người)

ý tốt của sư phụ em xin ghi nhận, nhưng có thể có người nào đó họ có thể dùng Code của thày để bán ở diễn đàn khác (kinh doanh) thày ah?

ndu96081631 · 21/6/11

Phanhanhdai đã viết:
ý tốt của sư phụ em xin ghi nhận, nhưng có thể có người nào đó họ có thể dùng Code của thày để bán ở diễn đàn khác (kinh doanh) thày ah?

Kệ họ, bán được thì họ... có tiền thôi. Cũng tốt

TrungChinhs · 21/6/11

viehoai đã viết:
Em có thắc mắc: Nếu đưa lên diễn đàn em có sử dụng Code của Sư Phụ thì làm thế nào để đảm bảo bản quyền

Thì bạn ghi thêm code này học từ Ndu hoặc chế từ code của Ndu hoặc tham khảo từ bài này hoặc Cảm ơn Ndu đã giúp về đoạn code gì đó trong bài này...
miễn sao người đọc hiểu là ta có học hỏi từ ai đó.

trong khi đó trong code lại không để lại thông tin gì về tác giả ?

Nếu bạn chú ý thì bạn sẽ thấy code của mỗi người có một hồn riêng (đặc điểm về cách trình bày, thuật giải, sở trường về lĩnh vực nào đó...) với code của một số cao thủ như: Ndu96081631, HYen17 (SA_DQ, ChanhTQ@), Ptm0412, BNTT, Domfootwear, Sealand...thì tôi có thể xem code nhận biết được chủ của nó. Ẹc...Ẹc...

Quang_Hải · 19/11/12

ndu96081631 đã viết:
Vừa post lên mediafire đây:
http://www.mediafire.com/?zn9wxj0x5f096xa
http://www.mediafire.com/?dk16r2afcsg2bz2
http://www.mediafire.com/?v8xvw76xh9t83ct
Các bạn tải về nghiên cứu nha

Anh NDU ơi em tải 3 file về rồi nhưng giải nén ra bị lỗi, giải ra được 28M thôi, còn lại không biết làm sao nữa.
Không biết có phải join file lại hay để tự nhiên như vậy hả anh?

Xuất hiện thông báo thế này nè anh

! C:\Users\bk\Desktop\NDU\Excel.part1.rar: CRC failed in Excel\Download\Excel Pass\Excel Pass recovery\Accent Excel\crack\accent.excel.password.recovery.2.50.beta.cracked-tsrh\aexpr.exe. The file is corrupt
! C:\Users\bk\Desktop\NDU\Excel.part1.rar: Unexpected end of archive

ndu96081631 · 19/11/12

quanghai1969 đã viết:
Anh NDU ơi em tải 3 file về rồi nhưng giải nén ra bị lỗi, giải ra được 28M thôi, còn lại không biết làm sao nữa.
Không biết có phải join file lại hay để tự nhiên như vậy hả anh?

Tải lại thử xem! Ai mà biết chứ
Part1 báo lỗi, vậy tải lại part1 thôi
3 file tải về để chung thư mục là giải nén được mà không cần join gì gì cả

khamha · 23/11/12

Chắc mai phải vác máy tính ra cửa khẩu để dùng mạng viettel download mới được,cảm ơn ndu nhiều.

dothanhhuyen511 · 24/8/13

Các tài liệu của thầy rất là hữu ích. Cám ơn thầy rất nhiều !

chuot0106 · 24/8/13

Sao mình dùng trình duyệt google chrome không down được tài liệu của thầy ndu96081631 vậy nhỉ? Nó toàn bị phần quảng cáo che mất chữ download đi thôi.
Ai biết cách down giúp mình với.

Hoàng Trọng Nghĩa · 24/8/13

chuot0106 đã viết:
Sao mình dùng trình duyệt google chrome không down được tài liệu của thầy ndu96081631 vậy nhỉ? Nó toàn bị phần quảng cáo che mất chữ download đi thôi.
Ai biết cách down giúp mình với.

Mục đích của bạn là download file thì bạn chuyển qua trình duyệt FireFox hay IE để down về, xong thì tiếp tục trình duyệt yêu thích của bạn! Phải linh động trong mọi việc chứ bạn!

chuot0106 · 24/8/13

Anh Nghĩa có thể giải thích giúp em tại sao dùng google chrome lại ko down được không ạ?

Hoàng Trọng Nghĩa · 24/8/13

chuot0106 đã viết:
Anh Nghĩa có thể giải thích giúp em tại sao dùng google chrome lại ko down được không ạ?

Tôi đang dùng nó đây, nhưng chưa bao giờ xảy ra chuyện bị che nên tôi không thể biết được trường hợp của bạn như thế nào. Bạn thử chụp hình lại và gửi lên xem nó như thế nào nhé!

chuot0106 · 24/8/13

Đây anh xem giúp em với. Đầu tiên em nhìn thấy chữ down load nhưng sau đó quảng cáo nó che mất ạ.

Hoàng Trọng Nghĩa · 24/8/13

chuot0106 đã viết:
Đây anh xem giúp em với. Đầu tiên em nhìn thấy chữ down load nhưng sau đó quảng cáo nó che mất ạ.

Bạn thử bấm vào chữ Archive (.Rar) xem sao!

chuot0106 · 24/8/13

Vâng em sẽ thử ngay ạ.
Anh ơi em bấm vào chỗ đó nhưng không có tác dụng gì cả. Không biết nguyên nhân tại sao nữa. Chán quá!

Ngoai Thanh · 24/8/13

chuot0106 đã viết:
Anh Nghĩa có thể giải thích giúp em tại sao dùng google chrome lại ko down được không ạ?

Bạn phải gõ đúng các chữ hiện lên để kiểm tra vào hộp thoại đó. Mình vừa down và giải nén xong .

chuot0106 · 24/8/13

Mình cũng đã gõ rồi mà. Mình đang dùng google chrome ver29

Ngoai Thanh · 24/8/13

thế thì chịu, các phần mềm game quấy nhiễu vậy có thể do máy bạn nhiễm virusts, khi gõ ký hiệu đúng theo yêu cầu thì phần file cần tải mới hiện ra .

loinguyen212 · 11/4/15

ndu96081631 đã viết:
Vừa post lên mediafire đây:
http://www.mediafire.com/?zn9wxj0x5f096xa
http://www.mediafire.com/?dk16r2afcsg2bz2
http://www.mediafire.com/?v8xvw76xh9t83ct
Các bạn tải về nghiên cứu nha

Xin chào mọi người,
Link part2 và part3 bị hỏng. Thầy Ndu96081631 hoặc những ai đã tải về được có thể up lại link được không ạ, được mỗi part1 thì chắc em không đọc được gì rồi **~**

. Em cảm ơn mọi người.
Thân!

ndu96081631 · 12/4/15

loinguyen212 đã viết:
Xin chào mọi người,
Link part2 và part3 bị hỏng. Thầy Ndu96081631 hoặc những ai đã tải về được có thể up lại link được không ạ, được mỗi part1 thì chắc em không đọc được gì rồi . Em cảm ơn mọi người.
Thân!

Tải lại file tại đây thử xem:
http://www.giaiphapexcel.com/forum/...ghiên-cứu-của-thày-Ndu96081631-tặng-mọi-người

Code xoá Thư mục ? (1 người xem)

Người dùng đang xem chủ đề này

Thành viên tích cực

❆❆❆❆❆❆❆❆

Huyền thoại GPE

Huyền thoại GPE

Thành viên tích cực

Huyền thoại GPE

Thành viên tích cực

Thành viên tích cực

Huyền thoại GPE

Thành viên tích cực

Thành viên tiêu biểu

Huyền thoại GPE

Thành viên tiêu biểu

Huyền thoại GPE

Thành viên tiêu biểu

Huyền thoại GPE

Thành viên gắn bó

Huyền thoại GPE

Thành viên tiêu biểu

Huyền thoại GPE

Thành viên tích cực

Thành viên gạo cội

Huyền thoại GPE

Không có việc gì khó...

Thành viên mới

Thành viên gắn bó

Chuyên gia GPE

Thành viên gắn bó

Chuyên gia GPE

Thành viên gắn bó

Chuyên gia GPE

Thành viên gắn bó

Cánh Diều xanh

Thành viên gắn bó

Cánh Diều xanh

Thành viên thường trực

Huyền thoại GPE

Thời gian đếm ngược.