擅长:python、mysql、java
<p>{/strong>在使用{/strong>循环的文件名时,使用{/strong}的通配符来使用{/strong}命令。在</p>
<pre><code>Function FileList(fldr As String, Optional fltr As String = "*.*") As Variant
Dim sTemp As String, sHldr As String
If Right$(fldr, 1) <> "\" Then fldr = fldr & "\" 'append backslash if not already supplied
sTemp = Dir(fldr & fltr)
If sTemp = "" Then
FileList = False
Exit Function
End If
Do
sHldr = Dir
If sHldr = "" Then Exit Do
sTemp = sTemp & "|" & sHldr 'ensures an array is returned
Loop
FileList = Split(sTemp, "|")
End Function
</code></pre>
<p>再加上我的一些代码来利用它:</p>
^{pr2}$