ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Ū¨ú¹Ï¤ù¹³¯À

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-2-20 02:55 ½s¿è

¦^´_ 1# acdx

¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý¬O¤£¬O§A­nªºµ²ªG ÁÂÁÂ
  1. Sub Ū¨ú«ü©w¸ê®Æ§X·Ó¤ù¤Ø¤o½m²ß()
  2.     Application.ScreenUpdating = False
  3.    
  4.     Application.FileDialog(msoFileDialogFolderPicker).Show
  5.     B = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
  6.     Set Sh = CreateObject("Shell.Application")
  7.     Set Dr = Sh.Namespace(B)

  8.     For Each F In Dr.Items
  9.         If F Like "*jpg" Then
  10.             E = F.extendedproperty("Dimensions")
  11.             Debug.Print Mid(E, 2, Len(E) - 2)
  12.         End If
  13.     Next
  14.    
  15.     Set Sh = Nothing
  16.     Set Dr = Nothing
  17.     Set F = Nothing
  18.     E = "": B = ""

  19.     Application.ScreenUpdating = True
  20. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD