会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前'第一个类，命名为FileSearh： |
Dim pLookIn As String Dim pSearchSubFolders As Boolean Dim pFileName As String |
Public FoundFiles As New Collection |
Public Property Get LookIn() As String |
LookIn = pLookIn |
End Property |
Public Property Let LookIn(value As String) |
pLookIn = value |
End Property |
Public Property Get SearchSubFolders() As Boolean |
LookIn = pSearchSubFolders |
End Property |
Public Property Let SearchSubFolders(value As Boolean) |
pSearchSubFolders = value |
End Property |
Public Property Get fileName() As String |
fileName = pFileName |
End Property |
Public Property Let fileName(value As String) |
pFileName = value |
End Property |
Public Function Execute() As Long |
Dim ex As Long |
Dim sLookIn As String |
Dim sDirName As String |
Dim sSubDir As String |
Dim sFileName As String |
Dim ff As FilesFound |
Set ff = New FilesFound |
sLookIn = LookIn |
sDirName = Dir(sLookIn, vbDirectory) |
sFileName = Dir(sLookIn & "", vbNormal) |
Do Until Len(sFileName) = 0 |
If sFileName Like fileName Then |
ff.AddFile sLookIn, sFileName |
FoundFiles.Add (ff.FoundFileFullName) |
End If |
sFileName = Dir |
Loop |
If SearchSubFolders Then |
Do Until Len(sDirName) = 0 |
If GetAttr(sLookIn & sDirName) = vbDirectory Then |
sSubDir = sDirName |
Do Until Len(sFileName) = 0 |
If GetAttr(sDirName) = vbNormal Then |
sFileName = sDirName |
ff.AddFile sDirName, sFileName |
FoundFiles.Add (ff) |
End If |
Loop |
End If |
sDirName = Dir |
Loop |
End If |
Execute = FoundFiles.Count |
End Function |
'第二个类，命名为FilesFound ： |
Public FoundFileFullName As String |
Public Function AddFile(path As String, fileName As String) |
FoundFileFullName = path & "" & fileName |
End Function |
'使用： |
Dim sFile as String |
Dim fs As New FileSearh |
With fs |
.LookIn = sPath |
.SearchSubFolders = True |
.fileName = "*" |
If .Execute > 0 Then |
For i = 1 To .FoundFiles.Count |
sFile = .FoundFiles(i) |
' your code here |
Next |
End If |
End With |
