Advertisement
Advertisement
| 06.27.2008 at 08:10AM PDT, ID: 23521884 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: |
Sub RenameFiles(ByVal strFolder As String)
Dim strFile As String
Dim strFiles() As String
Dim f As Integer
Dim i As Integer
Dim strFileParts() As String
strFile = Dir$(strFolder & "\*.*")
Do Until strFile = ""
ReDim Preserve strFiles(f)
strFiles(f) = strFile
f = f + 1
strFile = Dir$()
Loop
For i = 0 To f - 1
strFileParts = Split(strFiles(i), ".")
strFileParts(UBound(strFileParts)) = "backup"
Name strFolder & "\" & strFiles(i) As Join(strFileParts)
Next i
End Sub
|