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

[µo°Ý] FileSearch ª«¥ó°ÝÃD½Ð¯q

[µo°Ý] FileSearch ª«¥ó°ÝÃD½Ð¯q

§Q¥Î.Filename = "AA*.jpg"¥i·j´M²Å¦X±ø¥óªºÀɮסA½Ð¯q¦p¦ó¤@¦¸¤ñ¹ï¦hºØ±ø¥óªºÀɮסA±ø¥ó¦³AA*.jpg¡AAB*.jpg¡BBB*.jpg¡BBC*.jpg¡C«ÜÁÂÁ¤j®aªºÀ°¦£^__^
¤p«Ä

¦^´_ 1# child
§Ú·Q§A¥i¥H¦Ò¼{§â·j´MÀɦW¤å¦r¨Ì§Ç©ñ¤J°}¦C©Î¦r¨å¤º,
µM«á¦A¥Î For Each °}¦C(©Î¦r¨å) ...  ªº¤è¦¡³v­Ó·j´M¥X·Q­nªºÀÉ®×.

TOP

¦^´_ 1# child
¥u¤ñ¹ï¨ì¤j¼g   .FoundFiles(i) Like "*\[A-Z][A-Z]*.jpg"   
¥u¤ñ¹ï¨ì¤p¼g   .FoundFiles(i) Like "*\[a-z][a-z]*.jpg"   
¤ñ¹ï¤j¤p¼g   .FoundFiles(i) Like "*\[A-z][A-z]*.jpg"
  1. Sub Ex()
  2.     Dim i As Integer, ii As Integer
  3.     With Application.FileSearch
  4.         .NewSearch                  '­«·s³]©w©Ò¦³·j´M·Ç«h¬°¨ä¹w³]³]©w¡C
  5.         .LookIn = "D:\"             '¨î­q·j´M¥Ø¿ý
  6.         .Filename = "*.jpg , *.gif"         '·j´Mªº°ÆÀɦW
  7.         .SearchSubFolders = False   '¤£©¹¤U·j´M¤l¥Ø¿ý  ¤Ï¤§¬° True
  8.         .Execute                    '¶}©l·j´M«ü©wªºÀÉ®×
  9.         If .FoundFiles.Count > 0 Then
  10.             ii = 1
  11.             For i = 1 To .FoundFiles.Count
  12.                 If .FoundFiles(i) Like "*\[A-Z][A-Z]*.jpg" Then
  13.                     Cells(ii, "A") = .FoundFiles(i)
  14.                     ii = ii + 1
  15.                 End If
  16.             Next
  17.         End If
  18.     End With
  19. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD