>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)