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