请教一下如何
解决My.Co
mputer.FileSy
stem.GetFiles终于到的权限问题 我想实现
删除系统盘里面的所有.log
文件 [code] Dim files As Sy
stem.Collections.ObjectModel.ReadOnlyCollection(Of String) files = My.Co
mputer.FileSy
stem.GetFiles(Sy
stem.Environment.Sy
stemDirectory,FileIO.SearchOption.SearchAllSubDirectories,*.log ) ProgressBar1.Maximum = files.Count Dim i As Int16 For Each strfile As String In files i += 1 ProgressBar1.Value = i My.Co
mputer.FileSy
stem.DeleteFile(strfile) Next Message
Box.Show( 操作完成 ) End Sub [/code] 但是
搜索到某些
文件的时候会报错 Access to the path C:/Windows/Sy
stem32/LogFiles/WMI/RtBackup is denied. 如何跳过这些不具有访问权限的
文件 __________________________________________________________________________ try { } catch { } __________________________________________________________________________ 我试演过 Try files = My.Co
mputer.FileSy
stem.GetFiles(Sy
stem.Environment.Sy
stemDirectory,*.log ) Catch ex As Exception Exit Try End Try 但这样做files变量就取不到任何值了阿 __________________________________________________________________________ 还有别的办法吗? __________________________________________________________________________ 看来这个问题还是比较棘手的阿 __________________________________________________________________________ 可以用API 但是具体我也不知道 __________________________________________________________________________ 可以先用GetDirectories
搜索,对那些可以访问的
文件夹再使用GetFiles,对不能访问的就跳过,或者用AccessControl来
添加权限…… __________________________________________________________________________ 呵呵~ 我还是用api吧 .net类看来还是不够完善阿 __________________________________________________________________________
原文地址:https://www.jb51.cc/vb/263420.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。