c#实现遍历文件夹里的所有文件内容,然后删除某个内容?

c#实现遍历文件夹里的所有文件内容,然后删除某个内容?,第1张

C是氏慧御一个通用的计算机编程语言创建的丹尼斯·里奇在1972年贝尔实验室。它是一种程序性歼岩和低级语言,提供对系统内存的访问。C是一个成千上万的计算机编程语言碧或用来创建列表的指令。今天仍然非常广泛使用和影响力。有许多资源网上学习C语言,比如learn-c.org提供了一个免费互动教程。

Function SearchFiles(Path As String, FileType As String)

Dim Files() As String '文件路径

Dim Folder() As String '文件夹路径

Dim a, b, c As Long

Dim sPath As String

sPath = Dir(Path &FileType) '查找第一个文件

Do While Len(sPath) '循环到没有文件为止

a = a + 1

ReDim Preserve Files(1 To a)

Files(a) = Path &sPath '将文件目录和文件名组合,并存放到数组中御枣

List1.AddItem Files(a) '加入list控件中

sPath = Dir '查找下一个文件

DoEvents '让出控制权

Loop

sPath = Dir(Path &"\镇弊拆", vbDirectory) '查找第一个文件夹

Do While Len(sPath) '循环到没有文件夹为止

If Left(sPath, 1) <>"." Then '为了防止重复查找

If GetAttr(Path &"\" &sPath) And vbDirectory Then '如果是文件夹则。。。。。。

b = b + 1

ReDim Preserve Folder(1 To b)

Folder(b) = Path &sPath &"\" '将目录和文件夹名称组合形成新的目录,并存放到数组中

End If

End If

sPath = Dir '查找下一个文件夹

DoEvents '让出控制权

Loop

For c = 1 To b '使用递归方法,遍历所有目录

SearchFiles Folder(c), FileType

Next

End Function

Private Sub Command1_Click() '调卜碧用

SearchFiles "e:\", "*.exe"

End Sub

现成的没有搏唯基,给你参考下:

c++:

1、CFileFind类实现遍历文件,FindNext()查找下基谨一个文件

2、比较文件后缀,符合要求就写入txt

有不懂得话山宽加Q:2311776177!


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/tougao/12143233.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-21
下一篇 2023-05-21

发表评论

登录后才能评论

评论列表(0条)

保存