12
返回列表 上一主題 發帖

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

baconbacons

帖子
36 
主題
6 
精華
0 
積分
50 
點名
0  
作業系統
windows xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-2-20 
最後登錄
2015-3-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-3-28 11:12 | 只看該作者

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

是否該方法不能使用星號* 字元來找尋符合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」
收藏 分享
HELLO !!

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2014-3-28 12:02 | 只看該作者
回復 1# baconbacons


   myPhoto = dir(myPath & "\" & "原始相片" & "\" & "*.jpg")
    If  myPhoto<>”” Then msgbox ”good job” else msgbox ”not found photo”
學海無涯_不恥下問

TOP

baconbacons

帖子
36 
主題
6 
精華
0 
積分
50 
點名
0  
作業系統
windows xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-2-20 
最後登錄
2015-3-6 
3#
發表於 2014-3-28 14:24 | 只看該作者
回復 2# Hsieh
Hsieh 大：
試過了 確實可行  感謝
但能否知道我原先的程式為何不可行？是FileExists 方法本身的問題嗎？
HELLO !!

TOP

baconbacons

帖子
36 
主題
6 
精華
0 
積分
50 
點名
0  
作業系統
windows xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-2-20 
最後登錄
2015-3-6 
4#
發表於 2014-3-28 15:04 | 只看該作者
回復 3# baconbacons
追加一個問題請教
如果想得知該資料夾中的JPG檔數量的話 該使用什麼方式？
HELLO !!

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2014-3-28 15:51 | 只看該作者
回復 3# baconbacons


    FileExists方法不能使用萬用字元
檔案路徑必須明確
學海無涯_不恥下問

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
6#
發表於 2014-3-29 11:19 | 只看該作者
回復 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

TOP

baconbacons

帖子
36 
主題
6 
精華
0 
積分
50 
點名
0  
作業系統
windows xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-2-20 
最後登錄
2015-3-6 
7#
發表於 2014-3-31 09:58 | 只看該作者
回復 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
HELLO !!

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
8#
發表於 2014-3-31 11:02 | 只看該作者
本帖最後由 yangjie 於 2014-3-31 11:09 編輯

回復 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)須做同一動作(或在篩選條件下) 使用
這是個人想法
希望對你有所幫助

TOP

baconbacons

帖子
36 
主題
6 
精華
0 
積分
50 
點名
0  
作業系統
windows xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-2-20 
最後登錄
2015-3-6 
9#
發表於 2014-3-31 16:11 | 只看該作者
回復 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
HELLO !!

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
10#
發表於 2014-4-1 00:06 | 只看該作者
TEST.rar (6.52 KB) 回復 9# baconbacons
我用上述 作測試 均正常

TOP

        靜思自在 : 改變自己是自救，影響別人是救人。
12
返回列表 上一主題