Hỏi về lệnh Kill

[kyo]

Cháu đang nghiên cứu một số lệnh quản lý file, thì trong sách VBA có đoạn

Sub RemoveMe()

Dim folder As String
Dim myFile As String

folder = "E:\test\"
myFile = Dir(folder, vbNormal)
Do While myFile <> ""
Kill folder & myFile
myFile = Dir
Loop

End Sub

Cháu đã tạo thư mục test trong ổ E, đã tạo các file ra, nhưng khi đến lệnh Kill thì xuất hiện lỗi "Path/File access error"
Xin mọi người giúp cháu về cái lỗi này

 

[MinhCong]

Không biết thủ tục trên bạn có cho vào trong cái file nằm trong thư mục test không?

 

[ndu96081631]

Cháu đang nghiên cứu một số lệnh quản lý file, thì trong sách VBA có đoạn

Sub RemoveMe()

Dim folder As String
Dim myFile As String

folder = "E:\test\"
myFile = Dir(folder, vbNormal)
Do While myFile <> ""
Kill folder & myFile
myFile = Dir
Loop

End Sub

Cháu đã tạo thư mục test trong ổ E, đã tạo các file ra, nhưng khi đến lệnh Kill thì xuất hiện lỗi "Path/File access error"
Xin mọi người giúp cháu về cái lỗi này

Không biết bạn định "Kill" cái gì? Có phải là xóa toàn bộ thư mục test cùng file và thư mục con trong nó không?
Nếu đúng thế thì chẳng cần vòng lập đâu. Xem cái này:
http://www.giaiphapexcel.com/forum/showthread.php?50420-Code-xoá-Thư-mục

 

[nghiaphuc]

Cháu đang nghiên cứu một số lệnh quản lý file, thì trong sách VBA có đoạn

Sub RemoveMe()

Dim folder As String
Dim myFile As String

folder = "E:\test\"
myFile = Dir(folder, vbNormal)
Do While myFile <> ""
Kill folder & myFile
myFile = Dir
Loop

End Sub

Cháu đã tạo thư mục test trong ổ E, đã tạo các file ra, nhưng khi đến lệnh Kill thì xuất hiện lỗi "Path/File access error"
Xin mọi người giúp cháu về cái lỗi này

Có thể file đang xóa có đặt thuộc tính Read Only, kyo kiểm tra lại nhé.

 

[kyo]

Đúng là file đã đặt thuộc tính Read Only nên không thể xóa được, xin cám ơn mọi người. Do thực hành thử đoạn code trong sách mà không chú ý đến việc thiết lập thuộc tính thành ra gặp lỗi khi Kill, hì hì

 

[ndu96081631]

Ah... quên... mà dùng code này cho nó sướng:

Sub RemoveMe()
  Dim folder As String
  folder = "D:\test\"
  CreateObject("Wscript.Shell").Run "cmd /c Del """ & folder & """" & "*.* /F /Q", 0, True
End Sub

ReadOnly file gì cũng chơi tuốt