| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2769 人关注过本帖
标题:如何在filelistbox中显示指定文件夹下同类文件呢???请指点
只看楼主 加入收藏
ffcb
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2010-1-23
结帖率:0
收藏
已结贴  问题点数:1 回复次数:7 
如何在filelistbox中显示指定文件夹下同类文件呢???请指点
如题,下面是我写的代码问题是显示不出来好郁闷。。。
不知道错在哪里了
请教教我,谢谢

     Dim i As String
     Dim j As String
     Dim x As Long
     Dim y As Integer
     Dim Z As String
Private Sub Check_Click(Index As Integer)




Dim 后缀(8) As String

    后缀(1) = "*.exe"
    后缀(2) = "*.txt"
    后缀(3) = "*.doc"
    后缀(4) = "*.elx"
    后缀(5) = "*.jpg"
    后缀(6) = "*.htm"
    后缀(7) = "*.pdh"
    后缀(8) = "*.dll"


For x = 0 To 7
    If Check(x).Value = 1 Then
        For y = 0 To File1.ListCount - 1
        If UCase(Right(File1.List(y), 4)) = 后缀(x + 1) Then
        Z = Z & ":" & 后缀(x + 1)
        End If
        Next y
    End If
        
Next x

    Z = Mid(Z, 2)

End Sub



Private Sub Command1_Click()
    File1.Pattern = Z
End Sub

Private Sub Dir1_Change()

    File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

    Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

    i = File1.List(File1.ListIndex)
   
If UCase(Right(i, 4)) = ".TXT" Then

    Open (File1.Path & "\" & i) For Input As #1
    Do While Not EOF(1)
    Line Input #1, j
    j = Text & j & vbCrLf
    Loop
   
   
    Close #1
    j = Replace(j, ".a:", ".speed")
    j = Replace(j, ".b:", ".high")
    j = Replace(j, ".c:", ".weigth")
    j = Replace(j, "*", vbCrLf & "")
   
End If

    RichTextBox1.Text = j
   
End Sub



Private Sub Form_Load()

    File1.Path = Dir1.Path
    Dir1.Path = Drive1.Drive
    Drive1.Drive = "d:"
    Dir1.Path = "E:\mengyuan"
   
End Sub


搜索更多相关主题的帖子: 文件 同类 filelistbox 
2010-02-02 15:08
ffcb
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2010-1-23
收藏
得分:0 
其中的Z = Z & ":" & 后缀(x + 1)部分改成Z = Z & ";" & 后缀(x + 1)
File1.Pattern = Z改成File1.Parent = Z

结果也一样
2010-02-02 15:10
ffcb
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2010-1-23
收藏
得分:0 
版主帮帮忙吧!
2010-02-02 16:12
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
把工程打个包传上来,并且附2个你的数据文件.


授人于鱼,不如授人于渔
早已停用QQ了
2010-02-02 19:39
ffcb
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2010-1-23
收藏
得分:0 
文件夹下显示.rar (3.16 KB)

版主谢谢了,帮我看一下吧!
我是在菜单编辑器里做了一个文件栏,在“工具”选项里,选“TXT”
我希望能在filelistbox里显示出当前选择的文件夹下的TXT类文件,同理,当选择“EXE”时,只显示exe类文件。。。
请告诉我应该如何写代码???
菜鸟这里写过先!
2010-02-02 20:15
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
以下是引用ffcb在2010-2-2 20:15:00的发言:


版主谢谢了,帮我看一下吧!
我是在菜单编辑器里做了一个文件栏,在“工具”选项里,选“TXT”
我希望能在filelistbox里显示出当前选择的文件夹下的TXT类文件,同理,当选择“EXE”时,只显示exe类文件。。。
请告诉 ...
文件夹下显示.rar (3.43 KB)


   
   菜单名字, Exe 改成 了 Exefile

   每个菜单响应过程里增加一句命令.

  

授人于鱼,不如授人于渔
早已停用QQ了
2010-02-02 21:01
匡唐瑞
Rank: 2
等 级:论坛游民
帖 子:34
专家分:17
注 册:2010-1-29
收藏
得分:0 

2010-02-03 08:38
ffcb
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2010-1-23
收藏
得分:0 
OK 了,版主好强:)
多谢指点
不过还有个小问题
就是当我选择“光盘驱动器”时会报错
请问是什么原因??
应该如何添加代码解决呢?
2010-02-03 12:19
快速回复:如何在filelistbox中显示指定文件夹下同类文件呢???请指点
数据加载中...
 
   



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

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