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

[µo°Ý] ¦C¥X«ü©wªº¬ÛÃö¸ê®Æ§¨¦WºÙ

[µo°Ý] ¦C¥X«ü©wªº¬ÛÃö¸ê®Æ§¨¦WºÙ

·Q±N¸ê®Æ§¨A01¤º,¦WºÙÃþ¦üBªº¤l¸ê®Æ§¨¦WºÙ¦C¥X(B01,B02,...)
½Ð°Ýµ{¦¡À³¸Ó¦p¦ó¼g?ÁÂÁÂ

¦^´_ 1# ¤Ú§J´µ
  1. Sub ShowSubFolders()
  2.     Dim fs, f, f1, s
  3.     Set fs = CreateObject("Scripting.FileSystemObject")
  4.     Set f = fs.GetFolder(ThisWorkbook.Path & "\").SubFolders
  5.     For Each f1 In f
  6.        If f1.Name Like "B*" Then
  7.             s = s + 1
  8.             Cells(s, 1) = f1.Name
  9.        End If
  10.     Next
  11. End Sub
½Æ»s¥N½X

TOP

ÁÂÁ¨â¦ì«ü¾É,¨âºØ¤èªk³£ok
¤S¾Ç²ß¨ì¨âºØ¨S¥Î¹Lªº°µªk,ÁÂÁ ^ ^

TOP

¥»©«³Ì«á¥Ñ ¤Ú§J´µ ©ó 2022-12-28 15:24 ½s¿è

¦]¬°­n¬d¸ßªº¸ê®Æ§¨¤º¦³¤W¤d­Ó¤l¸ê®Æ§¨¡A­Y¬O¥Î°j°é³v¤@´M§ä¬Û¦ü¦WºÙªº¸ê®Æ§¨³t«×¸ûºC
¥Î Dir("D:\TEST\folder_11*", vbDirectory) ¥i¥Hª½±µ¨ú±o²Ä¤@­ÓÃþ¦ü¦WºÙªº¸ê®Æ§¨
¤£ª¾¬O§_¦³¤èªk¥i¥H¤£¶]°j°é¡Aª½±µÀòª¾Ãþ¦ü¦WºÙ¸ê®Æ§¨¼Æ©Î¦C¥XÃþ¦ü¦WºÙ

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD