首页 > 电脑教程 > 电脑知识 > VB代码:如何编写删除电脑中指定文件的代码?

VB代码:如何编写删除电脑中指定文件的代码?

PHPz
发布: 2024-01-25 12:00:05
转载
1350 人浏览过

VB代码:如何编写删除电脑中指定文件的代码?

VB代码:如何编写删除电脑中指定文件的代码?

你可以看看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

我想楼主应该是将文件放入”回收站“的意思,所以。。。

vb中如何删除指定文本文档中的指定行的内容

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开头的文本行。

VB里面通过文件名删除指定文件

在窗体上添加一个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中文网其他相关文章!

来源:docexcel.net
本站声明
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn
热门教程
更多>
最新下载
更多>
网站特效
网站源码
网站素材
前端模板