I had not seen the reply when I wrote this. I don't see a delete button, so moderator, please delete this post.
The following may not be very helpful, but it does update the filename. I also had trouble overriding the initialization, so I didn't initialize it.
Clear["Global`*"];
Manipulate[
Row[{Graphics@Disk[],Graphics[Text[Dynamic[filename],{0,0}],
ImageSize->{200}]}],
Button["Imagen?",filename=SystemDialogInput["FileOpen"]]]