If File.ExternalWritable Then
If File.Exists(File.DirRootExternal, "click" ) = False Then '
File.MakeDir(File.DirRootExternal, "click") ' DIRROOT = CARTAO SD
fp = File.Combine(File.DirRootExternal,"click") '
Else
File.MakeDir(File.DirDefaultExternal, "click") '
fp = File.Combine(File.DirDefaultExternal,"click") ' DEFAULT EXTERNAL = CARTAO SD
End If '
Else
If File.Exists(File.DirInternal, "click" ) = False Then '
File.MakeDir(File.DirInternal, "click") ' INTERNAL = MEMORIA INTERNA DO TELEFONE
fp = File.Combine(File.DirInternal,"click") '
Else
File.MakeDir(File.DirInternalCache, "click") '
fp = File.Combine(File.DirInternalCache,"click") ' CACHE = CACHE INTERNO DO TELEFONE
End If
End If