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

[Demosthenes Koptsis]

Actually i want to reload the DirChooser contents not redraw the control.

2010/1/26 Demosthenes Koptsis <demosthenesk at ...626...>

> 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
>



-- 

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

Regards,

Demosthenes Koptsis