Renaming files in a directory (1 Viewer)
- Thread starter petko
- Start date
arnelgp
..forever waiting... waiting for jellybean!
- Local time
- Today, 19:34
- Joined
- May 7, 2009
- Messages
- 19,242
what is the naming pattern?
something like this:
something like this:
Code:
const sFolder As String = "D:\data\"
const Pattern As String = "*.pdf"
Dim strFile As String
Dim i As Integer
Dim coll As New Collection
strFile = Dir(sFolder & Pattern)
While strFile <> ""
coll.Add strFile
strFile = Dir()
Wend
For i = 1 To coll.Count
Name sFolder & coll.Item(i) As sFolder & Format(Date(), "mmmyyyy") & "_" & Format(i, "000") & ".pdf
Next
Last edited:
adrianscotter
Registered old fart!
- Local time
- Today, 12:34
- Joined
- Jul 7, 2014
- Messages
- 124
Maybe Allen Browne has the answer here: http://allenbrowne.com/func-02.html
If not what you want, browse his site, it's a wealth of information.
