vb,如何将一个文件删除到桌面回收站？
- 提问者网友：锁深秋
- 2021-04-27 05:10
- 五星知识达人网友：洒脱疯子
- 2021-04-27 06:29
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As Long
End Type
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_DELETe = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Sub Form_Load()
Dim SHop As SHFILEOPSTRUCT
Dim strFile As String
strFile = "文件路径"
With SHop
.wFunc = FO_DELETE
.pFrom = strFile + Chr(0)
.fFlags = FOF_ALLOWUNDO
End With
SHFileOperation SHop
End Sub
- 1楼网友：蕴藏春秋
- 2021-04-27 13:01
回收站就是一个文件夹，你把文件移动到回收站里就可以了
- 2楼网友：末日狂欢
- 2021-04-27 11:57
你点鼠标右键删除 就行了
- 3楼网友：不甚了了
- 2021-04-27 10:53
单击文件右键，点删除即可
- 4楼网友：刀戟声无边
- 2021-04-27 09:17
kill Environ("USERPROFILE") & "\桌面\腾讯QQ.lnk" USERPROFILE=C:\Documents and Settings\Administrator 在命令提示符窗口里输入SET命令就可以看到所有已定义的环境变量 Environ 函数 返回 String，它关连于一个操作系统环境变量。 在 Macintosh 中不可用 语法 Environ({envstring | number}) Environ 函数的语法含有以下这些命名参数： 部分 描述 envstring 可选参数。包含一个环境变量名的字符串表达式。 number 可选参数。数值表达式，用来表示环境字符串在环境字符串表格中的数值顺序。number 参数可以是任意的数值表达式，不过在计算前，它会先转换为一个整数。 说明 如果在环境字符串表格中找不到 envstring，则会返回一个零长度字符串 ("")。如果找到，则 Environ 会返回一段文本，文本是赋值给指定的 envstring 的，也就是说，在环境字符串表格中对应那个环境变量的等号 (=) 后面的那段文本。 如果指定了 number，则在环境字符串表格中相应位置上的字符串会返回。在这种情况下，Environ 会返回整个文本，包括 envstring。如果在指定位置上没有环境字符串，那么 Environ 会返回一个零长度字符串。
- 5楼网友：思契十里
- 2021-04-27 08:06
Option Explicit
Private Const FO_DELETe = &H3 Private Const FOF_ALLOWUNDO = &H40 Private Const FOF_NOCONFIRMATION = &H10
Private Type SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Long fAnyOperationsAborted As Long hNameMappings As Long lpszProgressTitle As String End Type
Private Declare Function SHFileOperation Lib "Shell32" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Long
Private Sub Form_Load()
Dim sh As SHFILEOPSTRUCT sh.fFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION sh.wFunc = FO_DELETe sh.pFrom = "C:\a.txt" Call SHFileOperation(sh)
End Sub