Em thường xóa file vào thùng rác ở VB6 theo hướng dẫn của cuốn sách thủ thuật lập trình VB6.0
Trong VBA thì cũng viết vậy thôi....
Tôi thì chẳng thích giấu bất cứ thứ gì mình biết, chẳng qua.. ngại thôi... không biết điều mình biết có cần với người khác hay không
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As LongPrivate Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End TypePrivate Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_NOCONFIRMATION = &H10Sub Main()
Dim SHFileOp As SHFILEOPSTRUCT, fle
fle = Application.GetOpenFilename()
If fle <> "False" Then
With SHFileOp
.wFunc = FO_DELETE
.pFrom = fle
.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
End With
SHFileOperation SHFileOp
End If
End Sub
Ủa, vậy không dùng câu này được à anh: Application.DisplayAlerta=False
SendKeys là thứ dở ẹc nhất nên... bùn lắm mới dùng
Sub XoaFile()
Dim item As Long
With Application.FileDialog(msoFileDialogOpen)
.Title = "Chon File de xoa"
.AllowMultiSelect = False
.Show
item = .SelectedItems.Count
If item = 0 Then
Exit Sub
Else
Kill .SelectedItems(item)
End If
End With
End SubXóa file thì em biết rồi. Ở đây em muốn di chuyển file vào thùng rác thôi (xóa tạm)
Thật ra code trên có thể xóa cả thư mục đấy anh à. Vấn đề là anh dùng loại Dialog nào? Dialog để duyệt file thì sẽ xóa file, Dialog duyệt thư mục thì sẽ xóa thư mục
