Need VB6 code to renname files using a database

your question asked for a vb6 program read the cvs file and preform the operation. Here's a stab at it:

' program to copy from source to destination with ' rename
srcpth$=inputbox$(".jpg sources are in...","source file path")
destpath$=inputbox$("send to path...","destination file path")
cvsfile$=inputbox$("transscribe is...","rules file ")
open srcpth$+"\"+destpath$ for input as #1
while not eof(1)
input #1,fil1$,fil2$
shell "copy "+srcpth$+fil1$+" "+destpth$+fil2$
' kill srcpth$+fil1$ ' remove rem statement to 'remove the source
wend
close
end

regards
rick

Hello,
I made the application under your specs. Drop me a line at juanja01@optonline.net and I will be more than happy to send it to you by e-mail. The only thing I ask in return is that you rate my answer. I have stopped checking the forums lately because people just take the answer and don't give the points. >:(

Your question is great and well focused on the subject of this forum, programming.
I would also like to take the time on this answer (I hope you don't mind) to send a little message to other users out there:

PLEASE DO NOT POST QUESTIONS RELATED TO COMPUTER MAINTENACE, ACCESS, OR OTHER SUBJECTS UNRELATED TO PROGRAMMING ON THIS FORUM.

This forum's category is programming, so please, ASK PROGRAMMING QUESTIONS ONLY.

Will save you and everyone else time.

My 2 cents.

Thanks.

I have already figured out how to do it. It may not be efficient since I'm not a programmer, but it did the job and saved me a week of work. My code is pasted below.

To Wiz03..I tried your code, but it gave the error message "bad file name or number" when it reached the line "open srcpth$+"\"..." I'll give a chance for the other poster to send their code, and if their code generates an error, I'll give you the points for posting first. If their code does not generate an error, I'll give them the points. Fair?

To KeeBored, I will email you, and will award the 1000 points to whichever code works best between you and Wiz03. Fair?

Here was my try at it:
Private Sub cmdRename_Click()
Dim strSource, strDest, strcsv, strOj, strNj As String
Dim strOpOn, strNpOn As String
strSource = txtSource.Text
strDest = txtDest.Text
strcsv = txtCsv.Text
Open strcsv For Input As #1
Do While Not EOF(1)
Input #1, strOj, strNj
picOld.Print strOj
picNew.Print strNj
strOpOn = strSource + strOj
strNpOn = strDest + strOj
strNpNn = strDest + strNj
Set fs = CreateObject("scripting.filesystemobject")
fs.copyfile strOpOn, strNpOn, overwrite
Name strNpOn As strNpNn
picOld.Cls
picNew.Cls
Loop
End Sub
Thanks for the ideas though.

To KeeBored, I will email you, and will award the 1000 points to whichever code wors best between you and Wiz03.