| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 885 人关注过本帖
标题:VB求助:扫描文件将List1里文件名为收索对象路径显示在List2里
取消只看楼主 加入收藏
qq251357
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2012-3-23
结帖率:0
收藏
已结贴  问题点数:20 回复次数:0 
VB求助:扫描文件将List1里文件名为收索对象路径显示在List2里
'以下是收索代码
'问题是为:不知道怎么将List1的全部(全部哦!可以声明:i 依次扫描..)收索文件名为收索对象
'收索到了就会将文件的路径显示在List2的里面!
'我是新手拜托各位老大帮帮忙!

工程事例图片:
图片附件: 游客没有浏览图片的权限,请 登录注册


Private Function SearchPath(ByVal sPath As String, ByVal FindName As String) As Boolean
   
    Dim sChildDir() As String
    Dim sFileName   As String
    Dim lDirNum     As Long
    Dim lCount      As Long
    On Error GoTo SearchPathErr
   
    If Right(sPath, 1) <> "\" Then sPath = sPath + "\"
    sFileName = Dir(sPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)
    While sFileName <> ""
    Me.Caption = sPath '这里在标题栏显示当前查找的目录、你可以根据需要去掉
    '因为文件过多可能会给人死掉的假象、所以标题栏显示出当前查找的目录
        DoEvents

        If (GetAttr(sPath + sFileName) And vbDirectory) = vbDirectory Then
            If sFileName <> "." And sFileName <> ".." Then
                ReDim Preserve sChildDir(lDirNum) As String
                sChildDir(lDirNum) = sFileName
                lDirNum = lDirNum + 1
            End If

        Else

            If UCase$(FindName) = UCase$(sFileName) Then
            Text1 = sPath & sFileName
                'If MsgBox("已经找到文件、存在于目录:" & sPath & vbCrLf & "是否停止查找并运行?", vbQuestion + vbYesNo) = vbYes Then
                    'Call Shell("cmd /c start " & sPath & sFileName, vbHide)
               
                    'Exit Function
               ' End If
            End If
            
        End If

        sFileName = Dir
    Wend
   
    For lCount = 0 To lDirNum - 1
        Call SearchPath(sPath + sChildDir(lCount), FindName)
    Next
   
    Erase sChildDir
    SearchPath = True
    Exit Function
SearchPathErr:
    SearchPath = False
End Function

Private Sub Command1_Click()
SearchPath "c:\", "小明.txt"'不知道怎么设置不知道怎么将List1的全部(全部哦!可以声明:i 依次扫描..)收索文件名为收索对象

End Sub

如果老大们觉得以上的代码不符合要求请大家帮我想想这个问题吧!要的目的是:将List1的全部(全部哦!可以声明:i 依次扫描..)收索文件名为收索对象
'收索到了就会将文件的路径显示在List2的里面!
搜索更多相关主题的帖子: 工程 声明 
2012-03-23 15:18
快速回复:VB求助:扫描文件将List1里文件名为收索对象路径显示在List2里
数据加载中...
 
   



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

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