以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用Webbrower加载本地目录,有没有方式可以设置文件夹的排序方式?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149709)

--  作者:magus1123
--  发布时间:2020/5/9 17:16:00
--  用Webbrower加载本地目录,有没有方式可以设置文件夹的排序方式?
我用Webbrower加载本地目录,每次刷新重新加载之后文件夹就变回默认按名称排序了,有没有方式可以设置这个加载的文件夹里面的文件的排序方式?改成按文件名倒序排列。
翻了论坛和帮助,都没有找到相关的教程,还请老师指点,谢谢!


--  作者:有点蓝
--  发布时间:2020/5/9 17:27:00
--  
写了什么代码?
--  作者:magus1123
--  发布时间:2020/5/9 17:37:00
--  
\'前面用输入框输入文档名称,通过FTP将指定的文档名称下载到本地目录
dldar = xxx
Dim ftp1 As New FtpClient
ftp1.Host=xxx
ftp1.Port=xxx
ftp1.UTF8=True
ftp1.Account = xxx
ftp1.Password = xxx
ftp1.Download(dladr,ProjectPath & "tmp\\" & filename",True)
\'WebBrower加载本地文件夹 
Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = ProjectPath & "tmp"

现在遇到的文件是,下载一百多个文件之后要滚动到最后才找的到最后一个下载的文件,有没有方式可以在用webbrower加载本地目录的设置好目录的排序方式?


--  作者:有点蓝
--  发布时间:2020/5/9 17:49:00
--  
没有办法控制
--  作者:magus1123
--  发布时间:2020/5/9 17:52:00
--  
在VB里面可以用
Dim dr As New DirectoryInfo("E:\\文件夹")
Dim files As New List(Of FileInfo)()
For Each wj As FileInfo In dr.GetFiles
files.Add(wj)
Next
Dim ls = From file In files Order By (file.LastWriteTime)
Dim fileList As List(Of FileInfo) = ls.ToList()
来设置,但是我放到狐表上貌似行不通,有什么变通的办法吗?

--  作者:有点酸
--  发布时间:2020/5/10 10:03:00
--  
一样可以的:

Dim dr As New System.Io.DirectoryInfo("E:\\文件夹")
Dim files As New List(Of System.Io.FileInfo)()
For Each wj As System.Io.FileInfo In dr.GetFiles
    files.Add(wj)
Next
Dim ls = From file In files Order By (file.LastWriteTime)
Dim fileList As List(Of System.Io.FileInfo) = ls.ToList()