作者TKyo (啧啧水瓶座)
看板Programming
标题Re: [问题] 有点脑残的 My.Computer.FileSystem.Ge …
时间Sat Sep 6 03:44:23 2008
※ 引述《wahaha99 (此方不可长)》之铭言：
: My.Computer.FileSystem.GetFiles
: 这玩意虽然可以直接取回连同子目录的档案清单,
: 还可以用万用字元指定档名, 好用的很,
: 但如果从root开始做list, 会碰到 x:\System Volume Information
: 会直接产生 UnauthorizedAccessException
: 在网路上怎麽找也找不到个解, 该不会我得回去自己重新写递回来列举吧,
: 没这麽烂吧? 这样有等於没有了,
: 有没有人有解法,请指教了
两种解法
1.自行打开 System Volume Information 权限, 再去读取
2.就是你觉得 "很烂的递回", 加入判断要素
Private Sub ReadFolder(ByVal root As String)
Dim rootDIR As System.IO.DirectoryInfo
rootDIR = My.Computer.FileSystem.GetDirectoryInfo(root)
If (rootDIR.Name <> "System Volume Information") Then
For Each recursiveDIR As String In My.Computer.FileSystem. _
GetDirectories(root)
Console.WriteLine(recursiveDIR)
ChDir(recursiveDIR)
Call ReadFolder(recursiveDIR)
Next
For Each file As String In My.Computer.FileSystem.GetFiles(root, _
FileIO.SearchOption.SearchTopLevelOnly)
Console.WriteLine(file)
Next
End If
End Sub
--
私が生存への道は
今も未来も唯一つ
私自身の闇黑のためだ
即ち「ハ・ル・ヒ」
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.133.168.73