Chat Audition

Naked Kissingsweetundressedmomanddaughter Fi Hybrid Car Rental From Driveaway Holidays Chat Audition 高手请进！怎么生成用DIR命令列出某个文件夹的全部文件夹和文件 - VB技巧 - VB爱好者乐园(VBGood)

Naked Kissingsweetundressedmomanddaughter Fi Hybrid Car Rental From Driveaway Holidays Chat Audition

� Hybrid s Holidays asearchc Kissingsweetundressedmomanddaughter � From Hybrid Holidays From assearchbo Naked 源码 excel format 数组 instr split mid shell
VB爱好者乐园(VBGood) › 论坛 › VB 讨论区 › VB技巧 › 高手请进！怎么生成用DIR命令列出某个文件夹的全部文件夹 ...
返回列表
查看: 3466|回复: 2

高手请进！怎么生成用DIR命令列出某个文件夹的全部文件夹和文件 [复制链接]

桂林仔 当前离线
在线时间
13 小时
威望
3
金钱
52
人气
0
最后登录
2007-12-3
注册时间
2005-10-20
帖子
60
精华
0
积分
184
阅读权限
10
UID
31040

初级程序员, 积分 184, 距离下一级还需 16 积分
擂点
0
人气
0
威望
3
注册时间
2005-10-20
精华
0
帖子
60
1楼
发表于 2006-4-27 00:38:51 |只看该作者 |倒序浏览
怎么生成用DIR命令生成下面的格式？

Function FindDirFile(Path As String)
    Dim i As String, j() As String, k As Integer
    i = Dir(Path, vbArchive )
    On Error Resume Next
    ReDim j(0)
    i = Dir(Path, vbArchive )
    While i <> ""
        If i <> "." And i <> ".." Then
            ReDim Preserve j(UBound(j) + 1)
            j(UBound(j)) = i
            End If
        i = Dir
        DoEvents
    Wend
    i = Dir(Path, vbArchive)
    k = 1
    Do While i <> ""
        Do While k <= UBound(j)
            If j(k) = i Then Exit Do
            k = k + 1
        Loop
        If k = UBound(j) + 1 Then Exit Do
        j(k) = ""
            
Dim D As String, T As String
D = Left(FileDateTime(Path & i), InStr(FileDateTime(Path & i), " ") - 1)
T = Right(FileDateTime(Path & i), Len(FileDateTime(Path & i)) - InStrRev(FileDateTime(Path & i), " "))
D = Format(D, "yyyymmdd")
T = Format(T, "hhmmss")
        
        Print #1, (Path & i) & "|" & FileLen(Path & i) & "|" & D & T
        l = l + FileLen(Path & i)
        Text2.Text = l & " 字节"
        iCount = iCount + 1
        Text3.Text = iCount & " 个文件"
        i = Dir
        DoEvents
    Loop
    For k = 1 To UBound(j)
        If j(k) <> "" Then
            Print #1, Path & j(k) & "\"
            Text4.Text = IDir & " 个文件夹"
            IDir = IDir + 1
            FindDirFile Path & j(k) & "\"
        End If
    Next
End Function

……………………………………………………………………………………………………………………

\\192.168.1.250\netgame\劲舞团\
2006-4-26 14:21:57
根目录开始
Abm
Data
Script
Sound
Tbm
根目录结束
根文件开始
a.mp3|1210956|20060316113818
AudiLog.txt|112|20060412082337
Audition.exe|2465866|20060309132602
au_unins_web.exe|23040|20051219164916
fmod.dll|161280|20041018120442
ijl15.dll|372736|20041110093150
INSTALL.LOG|99869|20060404084042
macro.txt|237|20060317105514
patcher.exe|462848|20051223171234
REGXP.reg|216|20060412125811
s.mp3|2098573|20060316113820
TaskKeyHookCN.dll|102400|20050718144746
UNREG.reg|218|20060412125747
Unwise.exe|149504|20001205093948
《劲舞团》《超级舞者》联合宣传片.wmv|13048636|20060309170012
劲舞团官网.url|149|20050720235122
道具拍卖超市.url|122|20060328112028
根文件结束
Abm目录开始

Abm目录结束
Abm文件开始
c0001.tbm|1686656|20050929164108
c0013.tbm|1649008|20050929164110
c0043.tbm|1552440|20050506153136
c0045.tbm|2062616|20051020101120
c0046.tbm|1686384|20051216134652
c0047.tbm|1628544|20051216134654
c0048.tbm|1798704|20050929164122
c0049.tbm|1699384|20050929164122
c0050.tbm|1778880|20050929164122
c0051.tbm|1615544|20050929164124
c0052.tbm|1692152|20050929164124
c0053.tbm|1505960|20050929164124
c0054.tbm|1883432|20051216134654
c0055.tbm|1854288|20050929164126
c0056.tbm|2050936|20050929164126
c0057.tbm|1540384|20050929164126
c0058.tbm|1619904|20050929164128
c0059.tbm|1738376|20050929164128
c0060.tbm|2011192|20050929164128
c0061.tbm|1769472|20050929164128
c0062.tbm|1542904|20050929164130
c0063.tbm|1872496|20050929164130
c0064.tbm|2083016|20051216134654
c0065.tbm|1890192|20051216134654
c0066.tbm|2053656|20051216134654
c0067.tbm|1695632|20051216134656
c0068.tbm|1925856|20051216134656
c0069.tbm|1796376|20051216134656
c0070.tbm|1122608|20051010113528
c0071.tbm|1589856|20050929174136
c0072.tbm|1584216|20051011181416
c0073.tbm|2018464|20051216134656
c0074.tbm|1696264|20051216134656
c0075.tbm|1657536|20051205111624
c0076.tbm|1846640|20051205111624
c0077.tbm|2473376|20051205111624
c0078.tbm|1625520|20051205111624
c0079.tbm|2050912|20051205111626
c0080.tbm|1770024|20051205111626
c0081.tbm|1909104|20051205111626
c0082.tbm|1948496|20051205111626
c0083.tbm|2133672|20051205111628
c0084.tbm|1841792|20051205111628
c0085.tbm|1713176|20051205111628
c0086.tbm|1561896|20051205111628
c0087.tbm|2267992|20051205111630
c0088.tbm|2147560|20051205111630
c0089.tbm|1818336|20051205111630
c0090.tbm|1504032|20051205111630
c0091.tbm|1437808|20051205111630
c0092.tbm|1859504|20051205111632
c0093.tbm|2134208|20051205111632
c0094.tbm|1681080|20051205111632
c0095.tbm|1798784|20051205111632
c0096.tbm|1924648|20060112102532
c0097.tbm|1973208|20060112102524
c0098.tbm|1866000|20060112102526
c0099.tbm|1635112|20060112102526
c0100.tbm|1480824|20060112102526
c0101.tbm|1754360|20060112102526
c0102.tbm|2290664|20060112102528
c0103.tbm|2271544|20060112102528
c0104.tbm|1990544|20060112102528
c0105.tbm|1499880|20060112102530
c0106.tbm|1923536|20060112102530
c0107.tbm|2165968|20060112102530
c1000.tbm|1665088|20050929164136
c1001.tbm|1734536|20050929164136
c1002.tbm|1917256|20050616175038
c1004.tbm|2003200|20050929164138
c1005.tbm|1898928|20050616175038
c1006.tbm|2161224|20050929164138
c1007.tbm|1905688|20050929164138
c1008.tbm|1393472|20050929164140
c1009.tbm|2217384|20050929164140
c1010.tbm|1827992|20050929164140
c1011.tbm|1854160|20050929164142
c1012.tbm|1955992|20050929164142
c1013.tbm|2406384|20050929164142
c1014.tbm|2032424|20050929164144
c1015.tbm|1536032|20050929164144 cNaked Kissingsweetundressedmomanddaughter Fi Hybrid Car Rental From Driveaway Holidays Chat Audition 高手请进！怎么生成用DIR命令列出某个文件夹的全部文件夹和文件 - VB技巧 - VB爱好者乐园(VBGood)s k What's Real Chat Audition uNaked Kissingsweetundressedmomanddaughter Fi Hybrid Car Rental From Driveaway Holidays Chat Audition 高手请进！怎么生成用DIR命令列出某个文件夹的全部文件夹和文件 - VB技巧 - VB爱好者乐园(VBGood)q Chat Audition s Sex s s Chat Audition Chat Audition