国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

打開(kāi)APP
userphoto
未登錄

開(kāi)通VIP,暢享免費(fèi)電子書等14項(xiàng)超值服

開(kāi)通VIP
VB 遍歷指定目錄及子目錄所有文件函數(shù)
Private Function SearchFiles(Path As String, FileType As String)
    Dim Files()  As String '文件路徑
    Dim Folder() As String '文件夾路徑
    Dim a, b, c As Long
    Dim sPath As String
    If Right(Path, 1) <> "\" Then Path = Path & "\"
    sPath = Dir(Path & FileType) '查找第一個(gè)文件

    Do While Len(sPath) '循環(huán)到?jīng)]有文件為止
        a = a + 1
        ReDim Preserve Files(1 To a)
        Files(a) = Path & sPath '將文件目錄和文件名組合,并存放到數(shù)組中
        List1.AddItem Files(a) '加入list控件中
                '****************************************************
                Open App.Path & "\ml.txt" For Append As #1

                         Write #1, Files(a)
                 Close #1

                '*******************************************************
        sPath = Dir '查找下一個(gè)文件

        DoEvents '讓出控制權(quán)
    Loop

    sPath = Dir(Path & "\", vbDirectory) '查找第一個(gè)文件夾

    Do While Len(sPath) '循環(huán)到?jīng)]有文件夾為止

        If Left(sPath, 1) <> "." Then '為了防止重復(fù)查找
            If GetAttr(Path & "\" & sPath) And vbDirectory Then '如果是文件夾則。。。。。。
                b = b + 1
                ReDim Preserve Folder(1 To b)
                Folder(b) = Path & sPath & "\" '將目錄和文件夾名稱組合形成新的目錄,并存放到數(shù)組中


            End If
        End If

        sPath = Dir '查找下一個(gè)文件夾

        DoEvents '讓出控制權(quán)
    Loop

    For c = 1 To b '使用遞歸方法,遍歷所有目錄
        SearchFiles Folder(c), FileType
    Next

End Function





'調(diào)用示例
Private Sub Form_Load()

    ' * 星號(hào)表示多個(gè)任意字符
  '   SearchFiles "C:\Program Files\WinRAR\", "*" '查找所有文件
   SearchFiles App.Path & "\", "*.mid"   '查找所有exe文件
     SearchFiles App.Path & "\", "*.mp3" '查找所有exe文件
  '  SearchFiles "C:\Program Files\WinRAR\", "*in*.exe" '查找文件名中包含有 in 的exe文件

End Sub

本站僅提供存儲(chǔ)服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊舉報(bào)。
打開(kāi)APP,閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
vb 遍歷文件夾 與遍歷文件
把特定目錄里的文件每10個(gè)分裝到小文件夾里
Java刪除文件夾和文件
VBS 遍歷文件夾下所有Excel文件
如何用WindowsAPI函數(shù)遍歷指定驅(qū)動(dòng)器、目錄的所有文件
EXCEL數(shù)據(jù)快速匯總方法
更多類似文章 >>
生活服務(wù)
分享 收藏 導(dǎo)長(zhǎng)圖 關(guān)注 下載文章
綁定賬號(hào)成功
后續(xù)可登錄賬號(hào)暢享VIP特權(quán)!
如果VIP功能使用有故障,
可點(diǎn)擊這里聯(lián)系客服!

聯(lián)系客服