- ©«¤l
- 161
- ¥DÃD
- 26
- ºëµØ
- 0
- ¿n¤À
- 187
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2011-1-2
- ³Ì«áµn¿ý
- 2022-2-16
|
¥»©«³Ì«á¥Ñ wufonna ©ó 2019-7-6 20:18 ½s¿è
¦^´_ 1# wufonna
§ï³o¼Ë¥i¥H¡A½Ð±Ð¤j¤j- Option Explicit
- '§å¦¸§ï¥Ø¿ý
- Sub Ex()
- Dim myPath As String, myFile As String, myname As String, n As Integer, strPath As String
- Dim S() As String, i As Integer, m As Variant
- myPath = ThisWorkbook.Path & "\" 'myPath = ThisWorkbook.Path Àɮ׸ô
- myFile = "*.JPG"
- myname = Dir(myPath & myFile)
- i = 0
- Do While myname <> ""
- n = n + 1
- ' Name myPath & myname As myPath & "FS" & Format(n, "00000") & ".jpg"
- strPath = myPath & Replace(myname, ".jpg", "")
- ReDim Preserve S(i)
- S(i) = strPath
- ' Debug.Print S(i)
- myname = Dir
- i = i + 1
- Loop
-
-
- For Each m In S
- ' Debug.Print m
-
- If Len(Dir(m, vbDirectory)) = 0 Then
- MkDir m
- End If
- Next
-
- ' MsgBox n
- End Sub
½Æ»s¥N½X |
|