Long File Name to Short File Name converter

[Silvio.Falconi]

I allways used lfn2sfn function

but I read that it is no longer supported, so if we had to read in a database field a very long string of an image file, how could we load it?

Example:

".\ Folder1 \ folder2 \ folder3 \ Folder4 \ Folder5 \ images \ name_file_image_mine.jpg"

any solution ?

[Marc Venken]

I have the path not in the database, only the name (can be up tot 256 C)

In a string

Code: Select all  Expand view  RUN

         cSource = "r:\pictures\"+alltrim(STRTRAN(nofoto->id, '.', ''))+".jpg"

For Xbrowse

Code: Select all  Expand view  RUN

      WITH OBJECT :file
       :bStrImage     := { || "r:\pictures\kleuronline\"+alltrim(str(oBrwOnline:SelectedCol():Value))+".jpg" }
       :oDataFont     := oFontS
       :nDataStrAlign := AL_CENTER + AL_BOTTOM
       :nDataBmpAlign := AL_CENTER
       :aImgRect      := { nil, nil, -10, nil }
      END

to show

Code: Select all  Expand view  RUN

   @ 280,270 XIMAGE oBmp3 SIZE 50, 50 OF oDlg SOURCE "r:\pictures\kleuronline\"+alltrim(str(oBrwOnline:ID:value))+".jpg"

   @ 280,330 XIMAGE oBmp1 SIZE 70, 70 OF oDlg SOURCE "r:\pictures\origineel\"+alltrim(tempfoto->foto)

If I correct think what you mean