This problem is driving me crazy.... It seems like the textencoding becomes Macroman even if I try to set the encoding to UTF8. So in my example below the filename becomes √•√§√∂√Ö√Ñ√ñ instead of åäöÅÄÖ.

(In workarounds I don't want to copy files, since the main program is working with files that can be 100mb or more, I just want to change the filename to what it is supposed to be)

I will be very happy if someone has a workaround that works in RB 2006r2?

Arne

( Report id: iwrlzwfo )




  Dim dlg as  New SaveAsDialog
  Dim f as  FolderItem
  dim pic as  new Picture(100,100,32)

  dlg.InitialDirectory= SpecialFolder.Desktop

  dlg.promptText="Where do you want to save your picture?"
  dlg.SuggestedFileName="åäöÅÄÖ"
  dlg.Title="Save a folder example"
  dlg.Filter="Image/jpeg"

  f=dlg.ShowModal()
  If f <>  Nil then
    f.SaveAsJPEG pic
    //file saved
  Else
    //user canceled
  End if

  //try to fix encoding, problems with åäö.

  dim newf as FolderItem
  newf = GetFolderItem(f.AbsolutePath)
  newf.name = 
DefineEncoding("åäöÅÄÖ",encodings.UTF8)_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Reply via email to