[發問] FileExists 方法能否找尋有無圖片檔存在？

baconbacons

是否該方法不能使用星號* 字元來找尋符合jpg格式的圖片檔？
程式碼如下，請指教

Sub photoConv()
    Dim myFSO As New FileSystemObject
    Dim myPath As String
    Dim myPhoto As String
    myPath = ThisWorkbook.Path
    myPhoto = myPath & "\" & "原始相片" & "\" & "*.jpg"
    If myFSO.FileExists(myPhoto) Then
        MsgBox "good job"
    Else
        MsgBox "not good"
    End If
End Sub

以上會顯示「not good」
-------------------------------------------------------------------------------
Sub photoConv()
    Dim myFSO As New FileSystemObject
    Dim myPath As String
    Dim myPhoto1 As String
    myPath = ThisWorkbook.Path      
    myPhoto1 = myPath & "\" & "原始相片" & "\" & "1Blue hills.jpg"
    If myFSO.FileExists(myPhoto1) Then
        MsgBox "good job"
    Else
        MsgBox "not good"
    End If
End Sub

則可以顯示「good job」

Hsieh

回復 1# baconbacons


   myPhoto = dir(myPath & "\" & "原始相片" & "\" & "*.jpg")
    If  myPhoto<>”” Then msgbox ”good job” else msgbox ”not found photo”

baconbacons

回復 2# Hsieh
Hsieh 大：
試過了 確實可行  感謝
但能否知道我原先的程式為何不可行？是FileExists 方法本身的問題嗎？

baconbacons

回復 3# baconbacons
追加一個問題請教
如果想得知該資料夾中的JPG檔數量的話 該使用什麼方式？

Hsieh

回復 3# baconbacons


    FileExists方法不能使用萬用字元
檔案路徑必須明確

yangjie

回復 4# baconbacons
試試看   我曾經寫過
Sub test()
    Dim FileName As Variant
    Dim xlfileName As String
    Dim FolderName As Variant
    Dim f1 As Object
    Set f1 = CreateObject("Scripting.FileSystemObject")
    Set myfiles = f1.GetFolder(ThisWorkbook.Path ).Files
    n = 0
    For Each myfile In myfiles
        If UCase(f1.getextensionname(Path:=myfile)) = "JPG" _
            Or UCase(f1.getextensionname(Path:=myfile)) = "JPEG" _
            Or UCase(f1.getextensionname(Path:=myfile)) = "GIF" _
            Or UCase(f1.getextensionname(Path:=myfile)) = "BMP" Then
            n = n + 1
        End If
    MsgBox n
    Set f1 = Nothing
End Sub

baconbacons

回復 6# yangjie
yangjie大：以下計算圖片數量的寫法是我先在網路上找到的方法「Files.Count」
                       但不知道為什麼數量結果總是會多出1，所以我必須要扣除1才會符合實際數目
                       我也有確認過並沒有隱藏檔，能否知道為何有這種情況？
                       ps：yangjie大 你的方法確實可以 感謝教導
                                另外再請教yangjie大，你在使用For Each ____  In  ____的寫法
                                是怎樣的思考方式，在什麼情境下會考慮使用到這種方法
                                這寫法看別人寫都是可以理解，但不知道怎麼用的出來
                                麻煩指教
  ----------------------------------------------------------------------------------------------------
Sub photoConv()
    Dim myFSO As New FileSystemObject
    Dim myPath As String
    Dim myPhoto As String, countPhoto As String
    myPath = ThisWorkbook.Path      
    myPhoto = Dir(myPath & "\" & "原始相片" & "\" & "*.jpg")
    countPhoto = myFSO.GetFolder(myPath & "\" & "原始相片").Files.Count - 1
    If myPhoto <> "" Then
        MsgBox (countPhoto)
    Else
        MsgBox "no photo"
    End If
End Sub

yangjie

回復 7# baconbacons
Sub test()
    Dim FileName As Variant
    Dim xlfileName As String
    Dim FolderName As Variant
    Dim f1 As Object
    Set f1 = CreateObject("Scripting.FileSystemObject")
    n= f1.GetFolder(ThisWorkbook.Path ).Files.Count
        MsgBox n
    Set f1 = Nothing
End Sub
以上  經測試是 OK  的
f1.GetFolder(ThisWorkbook.Path ).Files   僅是沒有篩選檔案類型的物件
我也是從版主們指導下  體會 學來的
for each a in Object
next
通常是 在每一個(each a)須做同一動作(或在篩選條件下) 使用
這是個人想法
希望對你有所幫助

baconbacons

回復 8# yangjie
yangjie大：
                     試了一下，發現一個有趣的答案，不知道是否為「GetFolder」預設的問題？
                     就是我如果在活頁簿所在資料夾又新增一個名為原始相片的資料夾
                     將相片（或檔案）放在該子資料夾 結果值一樣會多1
                     就算是把該子資料夾清空 結果值顯示「1」
                     不知道該如何解釋  煩請賜教

修改後程式碼如下：
Sub test1()
    Dim f1 As Object
    Set f1 = CreateObject("Scripting.FileSystemObject")
    n = f1.GetFolder(ThisWorkbook.Path & "\" & "原始相片").Files.Count
        MsgBox n
    Set f1 = Nothing
End Sub

yangjie

TEST.rar (6.52 KB)

下載次數: 4

2014-4-1 00:05

回復 9# baconbacons
我用上述 作測試 均正常