>Thank!!, I add this to complete the process...
>
>Local lcFileName
>lcFileName = Getfile("txt", ;
> this.Caption, ;
> "Escojer ..")
>
>If Empty(lcFileName)
> Return
>Endif
>
>
>Yournewfilename=chrtran(lcFileName,' ','_')
>
>RENAME [&lcFileName] TO [&Yournewfilename]
>lcFileName = Yournewfilename
>
>
>
>
Change this line:
RENAME [&lcFileName] TO [&Yournewfilename]
to
RENAME (lcFileName) TO (Yournewfilename)
If it's not broken, fix it until it is.
My Blog