以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  判断指定的文件是否存在  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57216)
--  作者：明丰
--  发布时间：2014/9/21 9:51:00
--  判断指定的文件是否存在

FileExists

判断指定的文件是否存在。

如：FileSys.FileExists("c:\\fox.jpg")。

如果文件不含路径（(“fox.jpg")），该文件目录不确定，可能包括n级目录，请问如何判断？
--  作者：有点甜
--  发布时间：2014/9/21 9:54:00
--  

 那就需要查所有的文件

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=28215&replyID=177536&skin=1

 
--  作者：明丰
--  发布时间：2014/9/21 10:12:00
--  
分级查找效率太低，如果能够获得系统存放文件目录的位置，查找应该快很多（如某些软件安装时会搜索之前数据库存放位置，速度很快）。
--  作者：有点甜
--  发布时间：2014/9/21 10:24:00
--  
 无法理解你什么意思，请说明意图
--  作者：明丰
--  发布时间：2014/9/21 16:02:00
--  
请问如何判断指定目录是末级目录，以下代码会出错。

For Each dir As String In FileSys.GetDirectories("D:\\")
 If FileSys.GetDirectories(dir).count = 0 Then
output.show(Dir & "   是末级目录")
End If
Next
--  作者：有点甜
--  发布时间：2014/9/21 16:11:00
--  
For Each dir As String In FileSys.GetDirectories("D:\\")
    Dim ifo As new FileInfo(dir)
    If ifo.Hidden = False AndAlso FileSys.GetDirectories(dir).count = 0 Then
        output.show(Dir & "   是末级目录")
    End If
Next
--  作者：lsy
--  发布时间：2014/9/21 16:13:00
--  
For Each dir As String In FileSys.GetDirectories("D:\\")
    If dir.Contains("System Volume Information") = False AndAlso FileSys.GetDirectories(dir).count = 0 Then
        output.show(Dir & "   是末级目录")
    End If
Next
--  作者：lsy
--  发布时间：2014/9/21 16:27:00
--  
文件系统不允许读取"System Volume Information”，普通的隐藏和只读文件夹还是可以的。