[Gambas-user] DirChooser1.Refresh ' Not refresh after delete

[Demosthenes Koptsis]

PUBLIC SUB Button1_Click()
  DIM hProcess AS Process
  DIM sPath AS String = DirChooser1.SelectedPath

  sPath = Replace$(sPath, " ", "\\ ")
  sPath = Replace$(sPath, "(", "\\(")
  sPath = Replace$(sPath, ")", "\\)")
  sPath = Replace$(sPath, "?", "\\?")
  sPath = Replace$(sPath, "<", "\\<")
  sPath = Replace$(sPath, ">", "\\>")
  sPath = Replace$(sPath, ";", "\\;")
  sPath = Replace$(sPath, ":", "\\:")
  sPath = Replace$(sPath, "\"", "\\\"")
  sPath = Replace$(sPath, "'", "\\'")
  sPath = Replace$(sPath, "|", "\\|")
  sPath = Replace$(sPath, "[", "\\]")
  sPath = Replace$(sPath, "]", "\\[")
  sPath = Replace$(sPath, "{", "\\{")
  sPath = Replace$(sPath, "}", "\\}")
  sPath = Replace$(sPath, "`", "\\`")
  sPath = Replace$(sPath, "!", "\\!")
  sPath = Replace$(sPath, "$", "\\$")
  sPath = Replace$(sPath, "&", "\\&")
  sPath = Replace$(sPath, "*", "\\*")
  sPath = Replace$(sPath, "=", "\\=")


  hProcess = SHELL "rm -rf " & sPath
  DirChooser1.SelectedPath = Application.Path & "/sets"
  DirChooser1.Refresh  '<--- Not refresh after delete


CATCH
Message.Error(Error.Text)



-- 

Γεια χαρα σε όλους!!!

Regards,

Demosthenes Koptsis