[Gambas-user] Class File

[Charlie]

Salut Benoit,

useing File.Ext  or File.BaseName on a doupple doted Extention.

take ..\..\myProject.tar.gz
File.BaseName = myProject.tar
File.Ext = gz
so
    txtFile.text = File.BaseName(Dialog.Path)
    lblExt.text  = File.Ext(Dialog.Path)
from a Dialog.SaveFile() gives back wrong results

workround

  txtFile.text = file.Name(Dialog.Path)
  IF Instr(txtFile.text,".") > 0 THEN
    lblExt.text  = Mid$(txtFile.text,Instr(txtFile.text,"."))
    txtFile.text = Replace(txtFile.text,lblExt.text,"")
  ELSE
    lblExt.text = ""
  END IF

amicalement
Charlie