rename files

[2000a]

Is it possible to rename all the .jpg files in a folder... The new name should be continues, 1, 2, 3, 4...

ex: (how do I get the new name?)
old name new name
text001.jpg 1.jpg
text003.jpg 2.jpg
text007.jpg 3.jpg
text009.jpg 4.jpg
text015.jpg 5.jpg
text016.jpg 6.jpg

any ideas?


thanks

[Bruce Fox]

Use Name

Name oldName As NewName

What are all ur .jpg currently loaded in? An Array?

[2000a]

Bruce Fox: I don't know how to load the current file names in order...

Can you help?


thanks

[cafeenman]

this is an exectuable that I made recently. It does just what you're asking. I don't remember what controls I used, but it should work if you have vb6.

No viruses.

[cafeenman]

Here's the source code. It doesn't have a lot of error handling since I only made it for me, but I haven't had it crash on me either.

[Bruce Fox]

Something like:

Private Sub Form_Load()
Dim arr() As String
Dim sBuff As String
Dim i As Long
 
    sBuff = Dir("C:\New\*.jpg")
    
    Do
        ReDim Preserve arr(i)
        arr(i) = "C:\New\" & sBuff
        sBuff = Dir
        If sBuff = "" Then Exit Do
        i = i + 1
   Loop
    For i = 0 To UBound(arr) 'Rename each file starting with 1
        Name arr(i) As ("C:\New\" & i + 1 & ".jpg") 'Both paths MUST be the same
    Next
End Sub

NB:Practive on backup file first.

[nswan]

hi,

i have one text file i need renaming. Can i simply do this using 1 line of code?

Thanks
Nick

[cafeenman]

name oldfilename as newfilename

[nswan]

****....

it says that in the first reply!

sorry!

[Bruce Fox]

Opps,

Should be:

For i = 0 To UBound(arr) 'Rename each file starting with 1
        Name arr(i) As ("C:\New\" & i + 1 & ".jpg") 'Both paths MUST be the same
Next

U can also get rid of that ReDim statement (I have already edited ubove)