ZKX's LAB

vb目录列表介绍

2020-07-16知识7
vb 获取目录所有文件名 Private Sub Command1_Click() Dim fso As Object Dim folder As Object Dim subfolder As Object Dim file As Object Set fso=CreateObject(\"scripting.filesystemobject\")'创建FSO对象 Set folder=fso.getfolder(\"C:\\\") For Each file In folder.Files '遍历根文件夹下的文件 MsgBox file '输出文件名 Next Set fso=Nothing Set folder=Nothing End Sub 不包含子目录里的文件,你运行一下代码,写成通用函数即可 VB如何只列表根目录文件? Private Sub Command1_Click() Dim a As String a=Dir$(\"e:\\*.*\",vbArchive Or vbHidden Or vbNormal Or vbHidden Or vbReadOnly Or vbSystem) While a<>\" List1.AddItem a a=Dir$ Wend End Sub vb目录列表的索引可以为负数么 可以为负数: 1 代表当前目录 2 代表当前目录的父目录 3 代表当前目录的祖父目录 4…依此类推,一直到当前驱动器的根目录为止… 如果是0及正数,则代表当前目录的子目录 VB用驱动器、目录、文件列表框来完成 Private Sub Command1_Click() On Error Resume Next P1.Picture=LoadPicture(File1.Path&File1.FileName) End Sub Private Sub Command2_Click() On Error Resume Next Shell File1.Path&File1.FileName End Sub Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path=Drive1.Drive End Sub Private Sub Form_Load() Command1.Caption=\"加载文件图形 Command2.Caption=\"执行应用程序 End Sub 在VB程序设计中,目录列表框的Path属性的作用是什么? 设置filelist要列出的是哪个路径下的文件目录 一道VB题 A应该是正确答案吧!自己测试一下啊? vb 选择目录(文件夹)的方法 方法如下:属性Drive本属性用于返回或设置运行时选择的驱动器.默认值为当前驱动器改变Drive属性会触发Change事件. 示例: Drive1.Drive=“c:” 设置C盘为当前驱动器. 事件Change当选择一个新驱动器或通过代码改变了Drive属性时触发该事件代码如下: Private Sub Drive1_Change() Dir1.Path=Drive1.Drive 当选择一个新驱动器时,将驱动器列表中选中的当前驱动器,赋给目录列表的路径. End Sub 在VB程序设计中,目录列表框的Path属性的作用是什么? 在VB程序设计中,目录列表框的Path属性的作用是什么?设置filelist要列出的是哪个路径下的文件目录 VB控件列表框的常用属性 VB控件列表框的常用属性,下图中红色圈起来的,即是列表框(LitBox)。首先,在窗体中拉一个列表框。列表框的默认属性在下图中的属性窗口。下面小编给大家具体讲解它的常用... ·vb怎么加驱动器目录框 目录列表 文件列表框等控件啊 十万火急!!! 添加工具箱中的drivelistbox,dirlistbox和filelistbox控件,并写以下代码 Private Sub Drive1_Change()Dir1.Path=Drive1.Drive ' 当驱动器改变时,设置目录路径.End Sub ...

#sub

随机阅读

qrcode
访问手机版