yangjie

¦^´_ 4# baconbacons
¸Õ¸Õ¬Ý   §Ú´¿¸g¼g¹L
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

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
¥H¤W  ¸g´ú¸Õ¬O OK  ªº
f1.GetFolder(ThisWorkbook.Path ).Files   ¶È¬O¨S¦³¿z¿ïÀÉ®×Ãþ«¬ªºª«¥ó
§Ú¤]¬O±qª©¥D­Ì«ü¾É¤U  Åé·| ¾Ç¨Óªº
for each a in Object
next
³q±`¬O ¦b¨C¤@­Ó(each a)¶·°µ¦P¤@°Ê§@(©Î¦b¿z¿ï±ø¥ó¤U) ¨Ï¥Î
³o¬O­Ó¤H·Qªk
§Æ±æ¹ï§A¦³©ÒÀ°§U

yangjie

TEST.rar (6.52 KB)

¤U¸ü¦¸¼Æ: 4

2014-4-1 00:05

¦^´_ 9# baconbacons
§Ú¥Î¤W­z §@´ú¸Õ §¡¥¿±`