遍历文件，如何判断(跳过)"拒绝的权限"文件？

ning84 · 发表于 2024-6-20 07:10

本帖最后由 ning84 于 2024-6-20 07:20 编辑

Function FindAllFiles(sFolder As Folder)
Dim oFile As file
Dim oFld As Folder
For Each oFile In sFolder.Files '遍历目录下所有文件
With oFile
Debug.Print .Name, .Type
If .Type Like "JPG" Then
Range("U" & i).Value = .DateLastAccessed '将文件路径及文件名填充到表的A列
Range("V" & i).Value = .Name '将文件路径及文件名填充到表的A列
Range("W" & i).Value = .Path '将文件路径及文件名填充到表的A列
End If
i = i + 1
End With
Next
For Each oFld In sFolder.SubFolders '遍历子文件夹
FindAllFiles oFld '嵌套调用自身
Next
Range("R" & i).Value = Format(Time - T, "h:mm:ss")
Range("R" & i + 1).Value = sFolder.Path
End Function

复制代码

权限被否定（错误 70）
请参阅特性

试图对写保护的磁盘进行写操作，或要访问加锁文件。此错误有以下的原因和解决方法：

为顺序 Output 或 Append 写，打开一个写保护文件。
用 Input 方式打开文件，或者修改文件的写保护属性。

用顺序 Output 或 Append 方式，打开有写保护的磁盘上的文件。
从磁盘上删除写保护，或者使用 Input 方式文件。

写入已被其他进程锁定的文件。
等其他进程释放后再打开此文件。

试图访问注册表，但用户权限不包括此类注册表访问。
在 32 位 Microsoft Windows 系统上，用户必须有访问当前系统注册表的权限。改变用户权限，或由系统管理员来修改。

详细信息，可选取有问题的项目，并按下 F1 （在Windows中）或HELP（在Macintosh中）键。

ning84 · 发表于 2024-6-20 08:16

遍历13万多个文件，用时5分钟多。

'在模块1中输入如图代码:
Public i, T
Function FindAllFiles(sFolder As Folder)
Dim oFile As file
Dim oFld As Folder
On Error Resume Next
For Each oFile In sFolder.Files '遍历目录下所有文件
With oFile
'Debug.Print .Name, .Type
'If .Type Like "JPG" Then
Range("U" & i).Value = .DateLastAccessed '将文件路径及文件名填充到表的A列
Range("V" & i).Value = .Name '将文件路径及文件名填充到表的A列
Range("W" & i).Value = .Path '将文件路径及文件名填充到表的A列
'End If
i = i + 1
End With
Next
For Each oFld In sFolder.SubFolders '遍历子文件夹
FindAllFiles oFld '嵌套调用自身
Next
Range("R" & i).Value = Format(Time - T, "h:mm:ss")
Range("R" & i + 1).Value = sFolder.Path
End Function
Sub 遍历选定目录()
Dim Rng As Range
Set Rng = Selection
Dim Arr, Str
Dim Sht As Worksheet
Set Sht = Rng.Parent
With Sht.Cells
.Clear
.Font.Size = 9
End With
T = Time
Dim Fso As New FileSystemObject
Dim sFolder As Folder, sPath As String
i = 5 '初始化
ii = i
Range("V:AA").ClearContents
For kk = 0 To UBound(Arr)
If Fso.FolderExists(Arr(kk)) Then '判断文件是否存在
Set sFolder = Fso.GetFolder(Arr(kk))
FindAllFiles sFolder '调用函数
End If
Next kk
Set Rng = Sht.Range("U" & ii & ":W" & i - 1)
Debug.Print Rng.Address
Str = "=""Traverse All File:"" & " & "Count( " & Rng(, 1).Resize(Rng.Rows.Count, 1).Address(0, 0) & ")"
Debug.Print Str
With Sht
.Cells(1, 1) = Str
.Cells(1, 4) = Format(Time - T, "h:mm:ss")
.Cells(4, 1) = "=" & Rng.Address(0, 0)
End With
End Sub

复制代码

ning84 · 发表于 2024-6-23 05:58

Public DictFolder As Dictionary, DictFolder1 As Dictionary
Function TraverseFolderDelBlankFolder(sFolder As Folder)
Dim oFld As Folder
Dim oArr
''
For Each oFld In sFolder.SubFolders '遍历子文件夹
With oFld
'Debug.Print InStr(.Path, "System Volume Information"), .Path,
If InStr(.Name, "System Volume Information") = 0 Then
If .Files.Count = 0 And .SubFolders.Count = 0 Then
Debug.Print .Path, .Files.Count, .SubFolders.Count
'Stop
oFld.Delete True
Else
oArr = Array(.Path, .SubFolders.Count, .Files.Count)
DictFolder(.Path) = oArr ' Array(.Path, .SubFolders.Count, .Files.Count)
'Stop
'DictFolder1(.Path) = .SubFolders.Count
'Debug.Print .Files.Count, .SubFolders.Count
If InStr(.Name, "System Volume Information") = 0 Then
TraverseFolderDelBlankFolder oFld '嵌套调用自身
End If
End If
End If
End With
Next
End Function
Private Sub delFolder()
Set DictFolder = New Dictionary
Set DictFolder1 = New Dictionary
Dim Rng As Range
Set Rng = Selection
Dim Sht As Worksheet
Set Sht = Rng.Parent
Dim Arr, tArr
Arr = Array("C:", "D:", "E:", "F:")
Arr = Array("e:")
'Arr = Array("D:", "E:", "F:")
Dim Rr, Cc
Rr = 10
Cc = 1
With Sht
.Cells.Clear
.Cells.Font.Size = 9
tArr = Array("oFolderPath", "SubFolderCount", "FilesCount")
.Cells(Rr, Cc).Resize(, UBound(tArr) + 1) = tArr
End With
''
Dim Fso As FileSystemObject
Set Fso = New FileSystemObject
Dim Folder As Folder
For ii = 0 To UBound(Arr)
TraverseFolderDelBlankFolder Fso.GetFolder(Arr(ii))
Next ii
''
'Debug.Print DictFolder.Count
With WorksheetFunction
'Sht.Cells(Rr + 2, Cc).Resize(DictFolder.Count, 3) = .Transpose(.Transpose(DictFolder.Items))
With DictFolder
For ii = 0 To DictFolder.Count - 1
For jj = 0 To UBound(.Items(0))
Sht.Cells(Rr + 2 + ii, Cc + jj) = .Items(ii)(jj)
If jj = 0 Then
Sht.Cells(Rr + 2 + ii, Cc + jj).Hyperlinks.Add Sht.Cells(Rr + 2 + ii, Cc + jj), .Items(ii)(jj)
End If
Next jj
Next ii
End With
'Sht.Cells(Rr + 2, Cc).Resize(DictFolder.Count, 1) = .Transpose(DictFolder.Keys)
'Sht.Cells(Rr + 2, Cc + 1).Resize(DictFolder.Count, 1) = .Transpose(DictFolder1.Items)
'Sht.Cells(Rr + 2, Cc + 2).Resize(DictFolder.Count, 1) = .Transpose(DictFolder.Items)
End With
End Sub

复制代码

ning84 · 发表于 2024-6-23 20:02

VB 遍历文件，经常出现如下提示。
964d193a99e4facf3275a83c953096fe_070914vsml0g0gmrsa5grx.png

Documents and Settings文件夹被锁打不开怎么办-百度经验 https://jingyan.baidu.com/article/c910274bc7530acd361d2dca.html

Documents and Settings属于系统保护文件，默认情况是隐藏的且拒绝读取，平时显示时文件件上还带有一把小锁！但是有时候我们需要对文件夹进行清理，必须进去怎么办呢，即使你是administrator也拒绝访问！

system volume information是什么？怎么删除教程-电脑知识-U盘量产网 https://www.upantool.com/sense/2017/10767.html

电脑内存空间不足，我们在清理磁盘文件时，经常会看到“system volume information”文件夹，而且占用的空间还大。那么“system volume information”到底是什么呢？能删除吗？怎么删除？
system volume information是windows系统文件夹，中文名称可以翻译为"系统卷标信息"。系统还原的备份信息就是保存在这个文件夹里的。
通常System Volume Information 文件夹是一个隐藏的系统文件夹，"系统还原"工具使用该文件夹来存储它的信息和还原点。随着用户使用系统时间的增加，还原点会越来越多，导致硬盘空间越来越少，最后还要被警告"磁盘空间不足"。
System Volume Information是在你的硬盘分区格式为NTFS的情况下才会出现，现在电脑一般都是几百G的大硬盘，FAT32格式又不支持大硬盘，所以一般的大硬盘都采用NTFS格式分区，在这种情况下，即使你删除了它，系统还会自动生成，因为这是NTFS分区必须要的文件夹。所以不建议大家删除，你可以在文件夹选项里勾选“隐藏受保护的操作系统文件”，自然就看不到了。
System Volume Information 除了是系统文件夹外，还有可能是木马病毒。利用"System Volume Information"文件夹自动生成的原理，进行线程插入免杀下载器到自动生成"System Volume Information"文件夹的系统进程里面，然后把加壳加密的木马下载到"System Volume Information"文件夹。在"System Volume Information"文件夹的保护下，杀毒软件无权查杀该木马。在设定条件下夺取SYSTEM权限运行木马预运行模块查杀杀软，然后再脱壳解密启动木马，启用保护进程防止该目录被删。此类木马无法手工删除，杀软无权查杀，就算FAT32的分区也由于加密原因无法脱壳。
那么“system volume information”该怎么删除呢？
我们分两部分来介绍怎么删除“system volume information”。

ning84 · 发表于 2024-6-24 04:20

$RECYCLE.BIN

$RECYCLE.BIN是什么文件夹？$RECYCLE.BIN可以删除吗？ - 系统之家 https://www.xitongzhijia.net/xtjc/20170926/107979.html

$RECYCLE.BIN是什么文件夹？虽然$RECYCLE.BIN文件夹删除之后没有多大的影响，但笔者依然想说，这个文件夹是无辜的，TA没有做任何不利计算机的事，该文件纯粹是回收站的一个资源占用文件夹。

$RECYCLE.BIN是什么文件夹？

　　$RECYCLE.BIN文件夹是系统重要的隐藏文件，一般存在于磁盘根目录下。是系统“回收站”在每一个磁盘上的链接文件夹，用于保存磁盘上删除的文件或者文件夹信息，我们恢复误删除到回收站中的文件或者文件夹时大有用处。一般我们设置显示磁盘的隐藏文件后，才能看到它。

　　Win Vista以前Windows系统，该文件夹名称为：Recycle ；Win Vista（Win7/8）以后系统一般名称为$RECYCLE.BIN 。

$RECYCLE.BIN可以删除吗？

　　$RECYCLE.BIN文件夹是正常的系统文件，不是病毒、不用删除的。如果回收站设置成“删除文件时不进入回收站”，该文件夹是可以删除的，而且会自动恢复！

　　这里还要提醒大家，显示隐藏文件后，磁盘根目录下还会出现一个System Volume Information文件夹，它是NTFS格式磁盘的系统文件，汉语意思是“系统卷标信息”，用于存储系统还原的备份信息。如果系统开启了系统还原功能，每个盘符根目录下都会生成System Volume Information文件夹。如果强制删除之后，相应磁盘就打不开了！

　　以上内容便是关于$RECYCLE.BIN是什么文件夹的解决，$RECYCLE.BIN文件最好不要删除，因为这个文件夹是用户删除文件后保留文件信息的位置，每个盘符都有这个这样的文件。

ning84 · 发表于 2024-6-24 07:26

10个回答#热议# 不吃早饭真的会得胆结石吗？
新航道留学问答
2019-03-13 · 百度知道视频达人
关注
00:00 / 00:34
841 评论分享举报
velocity_2005 高粉答主
2020-02-02 · 关注我不会让你失望
关注
展开全部
电脑里的Boot是引导的意思。

以system boot（系统引导）为例：

系统引导通常是由一个被称为启动引导程序的特殊代码完成的，它位于系统ROM中，用来完成定位内核代码在外存的具体位置、按照要求正确装入内核至内存并最终使内核运行起来的整个系统启动过程。

该过程中，启动引导程序要完成多个初始化过程，当这些过程顺利完成后才能使用系统的各种服务。这些过程包括初始引导、内核初始化、全系统初始化。

ning84 · 发表于 2024-6-24 07:34

msocache是什么文件夹
iteye_3759

于 2014-04-06 18:13:00 发布

阅读量1k[url=]

收藏[/url]

点赞数

　　这是Offiece的本地安装源 (Msocache)。“本地安装源”是一种安装功能，它将安装源文件从 Microsoft Office 2003 安装媒体(例如 Office 2003 光盘)复制到 Msocache 文件夹。一般情况，采用NTFS格式分区的D盘有这样一个文件，且隐藏，通常有几百兆。当然我们在安装Office 2003的时候就会生出这个文件夹，如果不想生成msocache文件，必须在装光盘里FILESSETUPSETUP.INI文件，把[Cache]那个小节下面的CDCACHE=AUTO修改为CDCACHE=0，保存，然后重新刻盘即可。一般用户不敢删除这个文件，就是不知道是什么类型文件。但是msocache文件到底可不可以删除?

　　答案是是可以的。当你安装office之后，删除msocache文件夹具体步骤如下：

　　1、单击“开始”，依次指向“所有程序”、“附件”、“系统工具”，然后单击“磁盘清理”。

　　2、在“选择驱动器”对话框中的“驱动器”列表中，单击“C:”，然后单击“确定”。

　　3、等待磁盘清理工具完成对该驱动器的检查。

　　4、在“要删除的文件”列表中，单击以选中“Office 安装文件”复选框，然后单击“确定”。(注意：如果 Office 安装文件的大小为零，则 Office 安装文件位于另一硬盘上)。

　　5、询问是否删除时消息时，请单击“是”这样就删除了该文件。

ning84 · 发表于 2024-7-31 04:46

ning84 发表于 2024-6-23 05:58

简化

Public DictFile As Dictionary
Public i, T
Function FindAllFiles(sFolder As Folder)
Dim oFile As file
Dim oFld As Folder
For Each oFile In sFolder.Files '遍历目录下所有文件
With oFile
'Debug.Print .Name, .Type, .ParentFolder.Path
DictFile(.Path) = Array(Format(.DateLastModified, "yyyy年"), Format(.DateLastModified, "yyyy年mm月"), Format(.DateLastModified, "yyyy年mm月dd日"), .DateLastModified, .Name, Round(.Size / 1024 ^ 2, 1), .Type, oStr, 1, .ParentFolder.Path, "", "", "", "", "")
End With
Next
For Each oFld In sFolder.SubFolders
FindAllFiles oFld
Next
End Function
Sub T()
T = Time
Set DictFile = New Dictionary
Dim Arr, Str
Dim Sht As Worksheet
Set Sht = Sheet1
With Sht.Cells
.Clear
.Font.Size = 9
End With
T = Time
Dim Fso As New FileSystemObject
Set Fso = New FileSystemObject
Dim sFolder As Folder, sPath As String
FindAllFiles Fso.GetFolder("F:\JPGMP4Office")
Debug.Print DictFile.Count
Dim Rng As Range
With WorksheetFunction
Sht.Cells(15, 1).Resize(DictFile.Count, 10) = .Transpose(.Transpose(DictFile.Items))
End With
Sht.Cells(1, "D") = Format(Time - T, "h:mm:ss")
Stop
Stop
End Sub

复制代码

ning84 · 发表于 2024-8-1 23:18

ning84 发表于 2024-7-31 04:46
简化

Delete Folder

Function DelFolder(sFolder As Folder)
Dim oFld As Folder
For Each oFld In sFolder.SubFolders
DelFolder oFld
With oFld
Debug.Print .Path, .SubFolders.Count, .Files.Count
If .SubFolders.Count = 0 And .Files.Count = 0 Then
.Delete False
End If
End With
Next
End Function
Sub T()
Dim Fso As New FileSystemObject
Set Fso = New FileSystemObject
Dim sFolder As Folder, sPath As String
DelFolder Fso.GetFolder("F:\JPGMP4Office")
End Sub

复制代码

		自动登录	找回密码
密码			免费注册