- 在线时间
- 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
|
|
怎么生成用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
c1016.tbm|1633896|20050929164144
c1017.tbm|2040472|20050929164146
c1018.tbm|1760216|20050929164146
c1019.tbm|1939040|20050929164146
c1022.tbm|2034160|20050929164148
c1023.tbm|1430552|20050929164054
c1024.tbm|1862664|20050929164056
c1025.tbm|1771720|20050929164056
c1026.tbm|2199848|20050929164056
c1027.tbm|2130520|20060202165916
c1028.tbm|2060488|20060202165916
c1029.tbm|1289976|20060202165916
c1030.tbm|1968248|20060202165916
c1031.tbm|1971984|20060202165918
c1032.tbm|1935272|20060202165918
c1033.tbm|1911224|20060202165918
c1034.tbm|1535520|20060202165918
c1035.tbm|2409672|20060202165920
c1036.tbm|1551816|20060202165920
c1037.tbm|1795616|20060302103232
c1038.tbm|1780504|20060302103222
c1039.tbm|1562912|20060302103224
c1040.tbm|1672824|20060302103226
c1041.tbm|2451432|20060302103228
c1042.tbm|1798536|20060302103230
c1043.tbm|1857168|20060302103220
c1044.tbm|1683536|20060302103232
c1045.tbm|1950200|20060302103234
c1046.tbm|1523704|20060302103236
c1047.tbm|1561696|20060309172654
cb1000.tbm|1122592|20051010113730
cb1001.tbm|1798520|20060302130704
cb1002.tbm|1683536|20060302130702
cb1003.tbm|1950208|20060302130706
cb1004.tbm|1696256|20051021184334
e0001.tbm|1738800|20050412143212
e0002.tbm|2326360|20050412143212
e0005.tbm|1680152|20050412143214
e0008.tbm|2759136|20050412143202
e0009.tbm|1466896|20050412143202
e0011.tbm|1845520|20050929164100
e0012.tbm|1821376|20050506153132
e0013.tbm|1760768|20050929164100
e0014.tbm|1755312|20050506153130
e0015.tbm|1717176|20050506153132
e0016.tbm|2244864|20050506153138
e0017.tbm|2176248|20050506153134
e0018.tbm|1620040|20050506153134
e0019.tbm|1646944|20050506153132
e0021.tbm|2046280|20050506153128
k0050.tbm|1714232|20060112102530
k0270.tbm|1784264|20060221145038
k0277.tbm|1685576|20060112102532
k0322.tbm|1866280|20051020101120
k0334.tbm|1895152|20060221145034
k0500.tbm|2559376|20060112102524
k0510.tbm|1882000|20060112102532
k0511.tbm|1682992|20060112102534
k0530.tbm|1695064|20060221145034 |
|
sea Kissingsweetundressedmomanddaughter searchasearchssearchh Naked T Kissingsweetundressedmomanddaughter gssearch