- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 查看共享目录下所有子目录 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90418)
-- 发布时间：2016/9/12 12:35:00
-- 查看共享目录下所有子目录
Dim mypath = "\\\\192.168.40.100"
For Each StrFolder As String In FileSys.GetDirectories(mypath )
Output.Show(strfolder)
Next
此主题相关图片如下：无标题.jpg
该内容报错,请问不能获取共享的吗?
[此贴子已经被作者于2016/9/12 12:36:21编辑过]
-- 发布时间：2016/9/12 14:08:00
--
Dim mypath = "\\\\192.168.40.100\\某个共享目录"
For Each StrFolder As String In FileSys.GetDirectories(mypath )
Output.Show(strfolder)
Next
-- 发布时间：2016/9/12 15:30:00
--
\\\\192.168.40.100\\
那这个目录下的文件夹怎么获取?
-- 发布时间：2016/9/12 15:59:00
--
只能用windowapi了，参考
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:枚举局域网共享目录.table |
mark，关键字：枚举,列表,局域网,共享
[此贴子已经被作者于2016/9/12 16:12:40编辑过]
-- 发布时间：2016/9/12 16:00:00
--
例子代码来自
-- 发布时间：2016/9/13 8:49:00
--
挺难的,谢谢版主.
-- 发布时间：2016/9/13 9:16:00
--
照搬全局代码和内部函数到自己项目，调用方法参考按钮事件