Naming image files from vb

Option Explicit

Private Function RenameFiles(FolderName As String, fileType As String) As Long
    On Error GoTo RenameErr
    Dim FileName As String
    Dim CurrentID As Long
   
    RenameFiles = 0
    If (Right(FolderName, 1) <> "\") Then FolderName = FolderName & "\"
   
    FileName = Dir(FolderName & fileType)
    CurrentID = 0
    Do While FileName <> ""
        Name FolderName & FileName As FolderName & Format(CurrentID & "0000") & Right(fileType, 4)
        CurrentID = CurrentID + 1
        RenameFiles = RenameFiles + 1 ' return number of renamed files
        FileName = Dir ' get next file
    Loop
    Exit Function
RenameErr:
    MsgBox "Error renaming files.  " & Err.Number & " : " & Err.Description
    On Error GoTo 0
End Function

Private Sub Command1_Click()
    RenameFiles "c:\FileFolder", "*.jpg"
End Sub

supunr has it correct, only I am not sure but it seemed like you wanted to also copy those files over to another directory that had a name that you type in (or assign in some way).  Some name that groups the related photos under a directory.  That is simply a matter of changing the FolderName after the "As" in the name command to some other string variable that contains the name of the new directory that you want those files placed.

Mind you, a very elegent way of doing all of this is to drop a picture box on a form and then allow your program to walk through each picture and decide where you want that picture to be placed on the hard drive (which subdirectory).  You can also have a filebox, dirbox, and drivebox on the same form so that you can select where you want the images to be placed.  Better yet, I think it would be better to hard code a working directory and create subfolders under that working directory.  You can have another button that allows the user to select where that working directory is located (using the common file dialog).  That way you can list out all of the existing directory names (as photo classification names) in a list box or something.  Such would make it easy for you to select the directory that an image is meant to be placed into.  Of course you will also need a "New" button to create a new subdirectory for new images.

Anyway, such an approuch would allow you to just dump your camara images on your hard drive and then walk through them to group them under differnt catagories.  With these huge memory cards in camaras you can take hundreds and hundreds of pictures before you get around to uploading them to the computer.  You might end up with a number of different events in your life that you have taken pictures of on one card.  Such a program would allow you to just dump them all onto the computer and walk through them selecting where each picture needs to be filed away.  The program isn't too hard to create and clearly supunr's code will be at the core (in some form).  It should only be a few pages of code (only a few hours work that could save you a great deal of time organizing your photos).  Enjoy.