- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2025-3-24
|
不知會否重名，衹演示一下。
Sub zz()
Dim p$, f
p = "Z:\AAA"
f = Dir(p & "\" & "test*")
Do While f <> ""
If Mid(f, 7, 1) = 1 Then Debug.Print Mid(f, 1, 6) & 2 & Mid(f, 8)
If Mid(f, 8, 1) = "製" Then Debug.Print Mid(f, 1, 7) & 2 & Mid(f, 9)
f = Dir
Loop
End Sub |
|
發表於 2018-6-22 10:29
| 