| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3766 人关注过本帖
标题:能同时选择一个或多个文件夹是个世界难题?
只看楼主 加入收藏
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
其实很简单的,如图:
图片附件: 游客没有浏览图片的权限,请 登录注册

程序代码:
'在窗体界面隐藏 Drive1 磁盘控件,即 Drive1.Visible = False
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive    '这里只能打开D盘的所有目录
End Sub

Private Sub File1_Click()
List1.AddItem Dir1.Path    '在List1 控件中就可以显示你选择的所有目录,包括子目录,怎么使用就看你了。
End Sub

Private Sub Form_Load()
Drive1.Drive = "d:\"   '这里只需要确定你操作的盘符就可以
List1.Clear
List1.Text = ""
End Sub

请不要选我!!!
2016-05-11 13:07
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:331
专家分:561
注 册:2013-10-30
收藏
得分:0 
回复 11楼 ZHRXJR
谢谢。
不要误解7楼和8楼的意思。7楼和8楼的说明是个例,
文件夹的展开应象1楼一样,即人工点击后,可展开下一级文件夹,而且根目录应由使用者自主选择才是。

[此贴子已经被作者于2016-5-11 16:48编辑过]

2016-05-11 15:19
快速回复:能同时选择一个或多个文件夹是个世界难题?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.041959 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved