你可以看看kill函数：
kill从磁盘中删除文件。
Kill pathname
pathname 参数是用来指定一个文件名的字符串表达式。
pathname 可以包含目录或文件夹、以及驱动器。
说明
在 Microsoft Windows 中，Kill 支持多字符 （*） 和单字符 （？） 的通配符来指定多重文件。
例子：
Private Sub Command1_Click()
Kill ＂C:aa.txt＂ '文件的绝对路径＂
End Sub
如果是把文件彻底删除，楼上都是对的！
但是如果你是把文件放到“回收站”之中，而不是彻底的删除就要用到vb的
api函数了！
例子：
在公共模块之中：
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_NOCONFIRMATION
SHFileOperation SHFileOp
End Sub
我想楼主应该是将文件放入”回收站“的意思，所以。。。
Dim newfile As New List(Of String)
For Each line As String In System.IO.File.ReadAllLines(＂TextFile1.txt＂)
If Not line.StartsWith(＂3＂) Then newfile.Add(line)
Next
System.IO.File.WriteAllLines(＂TextFile1.txt＂, newfile)建个集合，用System.IO.File的ReadAllLines读出所有内容，逐个判断，如果是需要的加入集合，如果是要删除的什么都不做，最后用WriteAllLines写入即可。
这里说明一下，上面那个代码是用来删除所有以3开头的文本行。
在窗体上添加一个FILELISTBOX控件，设置为不可见
Private Sub Form_Load()
On Error GoTo MyError '设置错误陷阱
Dim MyPath As String '定义要删除文件目录路径
Dim MyPattern As String '定义要删除文件类型
Dim YesterdayName, TodayName As String '定义昨天及今天的文件名
MyPath = '＂D:TempPath＂
MyPattern = ＂*.TXT＂ '含日期的文件名，比方说YYYY-MM-DD.TXT
File1.Path = MyPath
File1.Pattern = MyPattern
YesterdayName = Format(DateAdd(＂d＂, -1, Date), ＂YYYY-MM-DD＂) + ＂.TXT＂ '含昨天日期的文件名
TodayName = Format(Date$, ＂YYYY-MM-DD＂) + ＂.TXT＂ '含今天日期的文件名
If File1.ListCount > 0 Then
For i% = 0 To File1.ListCount - 1
File1.ListIndex = i%
If File1.FileName CurrentName And File1.FileName CurrentName Then '如果文件名不等于今天或者昨天的文件名，则删除
Kill File1.Path + ＂＂ + File1.FileName
End If
Next i%
End If
MyError:
File1.Refresh '全部删除完毕以后，刷新列表
End Sub
以上是VB代码：如何编写删除电脑中指定文件的代码？的详细内容。更多信息请关注PHP中文网其他相关文章！
