'Método para construir la estructura de los directorios contenedores de la aplicacion
Public Sub crearEstructuraDirectorios
If File.Exists(File.DirRootExternal,"MuralShopping") = False Then
File.MakeDir(File.DirRootExternal, "MuralShopping")
File.MakeDir(File.DirRootExternal&"/MuralShopping/", "Recursos")
File.MakeDir(File.DirRootExternal&"/MuralShopping/", "BD")
File.MakeDir(File.DirRootExternal&"/MuralShopping", "Configuracion")
File.WriteString(File.DirRootExternal&"/MuralShopping/Configuracion","Configuracion.txt","Archivo de configuracion")
File.MakeDir(File.DirRootExternal&"/MuralShopping","Tests")
End If
End Sub