vb如何删除文件？

来源：百度知道 编辑：UC知道 时间：2024/05/12 01:04:14
1。我想写一个vb的小程序，但由于我是新手，不知道如何删除
我想把文件删除到回收站中而不是“kill filename”，请高手指点，由于我很笨，麻烦讲明白一点。
2.我使用kill删除windows目录下的文件时，提示我错误的权限，怎么办
麻烦说清楚点，好吗？

在公共模块之中：

Option Explicit

Public Const FO_MOVE = &H1
Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FO_RENAME = &H4

Public Const FOF_NOCONFIRMATION = &H10
Public Const FOF_NOCONFIRMMKDIR = &H200
Public Const FOF_ALLOWUNDO = &H40

Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type
Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

在frm模块之中：

Private Sub Command1_Click()
Dim SHFileOp As SHFILEOPSTRUCT
Dim Path As String, pFrom As String, i As Integer

pFrom ="c:\aa.txt"

SHFileOp.wFunc = FO_DELETE
SHFileOp.pFrom = pFrom
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_N