嘿，我有一個代碼，我想在不同的檔案夾中找到 .jpg 檔案，所以我的代碼如下所示：
file = Dir(folder & "\*.jpg")
但事實證明這些檔案夾中也有 .png 檔案，有沒有一種簡單的方法可以讓 Dir() 也找到 png 影像？也許以某種方式使用正則運算式，甚至是我沒想到的更簡單的方法？我知道有很多方法，但是如果我不必更改所有代碼，我會喜歡它...感謝任何回答的人:)
uj5u.com熱心網友回復：
請嘗試下一個方法：
Dim file as string, folder as string, arrExt
folder = "your folder path"
file = Dir(folder & "\*.*")
Do While file <> ""
arrExt = split(file, ".")
If UCase(arrExt(Ubound(arrExt))) = "JPG" Or _
UCase(arrExt(Ubound(arrExt))) = = "PNG" Then
' do whatever you need
End If
file = Dir
Loop
uj5u.com熱心網友回復：
用于Dir(folder & "\*.*")列出所有檔案并手動檢查它是否是您感興趣的檔案，例如使用如下函式：
Function isImage(fileName As String) As Boolean
Dim ext As String, p As Long
p = InStrRev(fileName, ".")
If p = 0 Then Exit Function
ext = LCase(Mid(fileName, p 1))
isImage = (ext = "jpg" Or ext = "jpeg" Or ext = "png")
End Function
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/410266.html
標籤：