[µo°Ý] ½Ð±Ð¤j¤j¦pªG¥Ø¿ý¦s¦b²¤¹L¤£­n½Æ»s¡A¦p¦ó§ï¡AÁÂÁÂ

wufonna

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim myPath As String, myFile As String, myname As String, n As Integer, strPath As String
   
4.     myPath = ThisWorkbook.Path & "\" 'myPath = ThisWorkbook.Path Àɮ׸ô
   
5.     myFile = "*.JPG"
   
6.     myname = Dir(myPath & myFile)
   
7. 
   
8.     Do While myname <> ""
   
9.         n = n + 1
   
10. '       Name myPath & myname As myPath & "FS" & Format(n, "00000") & ".jpg"
    
11. strPath = myPath & Replace(myname, ".jpg", "")
    
12. 
    
13. 
    
14. 
    
15.    MkDir strPath
    
16. '¿ù»~
    
17. 'If Len(Dir("c:\test\aaa", vbDirectory)) = 0 Then
    
18. ' MkDir "c\test\aaa"
    
19. 'End If
    
20. '
    
21.         myname = Dir
    
22.     Loop
    
23.     MsgBox n
    
24. End Sub

½Æ»s¥N½X

wufonna

¦^´_ 1# wufonna
§ï³o¼Ë¥i¥H¡A½Ð±Ð¤j¤j

1. Option Explicit
   
2. '§å¦¸§ï¥Ø¿ý
   
3. Sub Ex()
   
4.     Dim myPath As String, myFile As String, myname As String, n As Integer, strPath As String
   
5.     Dim S() As String, i As Integer, m As Variant
   
6.     myPath = ThisWorkbook.Path & "\" 'myPath = ThisWorkbook.Path Àɮ׸ô
   
7.     myFile = "*.JPG"
   
8.     myname = Dir(myPath & myFile)
   
9.     i = 0
   
10. 
    
11.     Do While myname <> ""
    
12.         n = n + 1
    
13. '       Name myPath & myname As myPath & "FS" & Format(n, "00000") & ".jpg"
    
14. strPath = myPath & Replace(myname, ".jpg", "")
    
15. 
    
16.     ReDim Preserve S(i)
    
17.     S(i) = strPath
    
18.   ' Debug.Print S(i)
    
19.          myname = Dir
    
20. 
    
21. i = i + 1
    
22.     Loop
    
23. 
    
24. 
    
25.     For Each m In S
    
26. '    Debug.Print m
    
27. 
    
28.      If Len(Dir(m, vbDirectory)) = 0 Then
    
29.       MkDir m
    
30.      End If
    
31.     Next
    
32.    
    
33.    ' MsgBox n
    
34. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 2# wufonna
'**Dir ·|¶Ç¦^²Ä¤@­Ó»P_¸ô®|¦WºÙ_¬Û²ÅªºÀɮצWºÙ¡C ­Y­n¨ú±o¥ô¦ó»P_¸ô®|¦WºÙ_¬Û²Åªº¨ä¥LÀɮצWºÙ¡A½Ð¦A¦¸©I¥s¤£§t¤Þ¼Æªº Dir
§AªþÀɪºµ{¦¡½X¦³ª¼ÂI    If Dir(strPath, vbDirectory) = "" Then MkDir strPath
'**¤W¦¡µ{¦¡½X¦A¦¸¨Ï¥Î Dir(strPath, vbDirectory)   ¾É­P   myname = Dir ¶Ç¦^ªÅ¦Û¦r¦ê

§A³oµ{¦¡½X¥i¥Hªº
¤]¥i¥ÎFileSystemObject ª«¥ó ¸Õ¸Õ

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim myPath As String, myFile As String, myname As String, n As Variant, strPath As String
   
4.     Dim AR(), Folder As String
   
5.     myPath = ThisWorkbook.Path & "\" 'myPath = ThisWorkbook.Path Àɮ׸ô®|
   
6.     myFile = "*.JPG"
   
7.     myname = Dir(myPath & myFile, vbDirectory) ' 'Dir ´M§äÀɮ׸ô®|\ *.JPG"ªºÀÉ®×
   
8.     Do While myname <> ""
   
9.         strPath = myPath & Replace(myname, ".jpg", "")
   
10.         With New FileSystemObject  '¤Þ¥Î¶µ¥Ø Microsoft Scripting Runtime
    
11.             On Error Resume Next    'ªí¥Ü·í¤@­Ó°õ¦æ¶¥¬q¿ù»~²£¥Í®É¡Aµ{¦¡±±¨î¥ß¨è¨ìµo¥Í¿ù»~³¯­z¦¡±µ¤U¥hªº³¯­z¦¡¡A¦ÓÄ~Äò°õ¦æ¤U¥h
    
12.             If .GetFolder(strPath) Is Nothing Then MkDir strPath                                 '**¥[¤J¹Ï¤ù¦WºÙªº¸ê®Æ§¨
    
13.             On Error GoTo 0                '°±¤î²{¦bµ{§ÇùØ¥ô¦ó¤w±Ò°Êªº¿ù»~³B²zµ{¦¡
    
14.         End With
    
15.         myname = Dir
    
16.     Loop
    
17. End Sub

½Æ»s¥N½X