Actually i want to reload the DirChooser contents not redraw the control.
2010/1/26 Demosthenes Koptsis <[email protected]>
> 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
------------------------------------------------------------------------------
The Planet: dedicated and managed hosting, cloud storage, colocation
Stay online with enterprise data centers and the best network in the business
Choose flexible plans and management services without long-term contracts
Personal 24x7 support from experience hosting pros just a phone call away.
http://p.sf.net/sfu/theplanet-com
_______________________________________________
Gambas-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user
